'****コードビハインド Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DataBind()
Dim a As Integer = lbIATANo.SelectedIndex() Dim b As String = lbIATANo.Value.ToString Dim c As Integer = lbIATANo.Items.Count Dim d As String = lbIATANo.Items(1).Text()
DOBON.NETプログラミング掲示板過去ログ
分類:[ASP.NET]
こんにちは。ASP.NET初心者です。
ToolBoxのHTML欄にあるListBoxを使用しています。
ボタンクリック時に、ListBoxの値を取得できず困っています。
コードはこんな感じです。
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="WebForm1.aspx.vb" Inherits="HTMLTOOL.WebForm1"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>WebForm1</title>
<meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
<meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
<meta name="vs_defaultClientScript" content="JavaScript">
<meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
<script language="javascript">
function newIataOption( inputobj, as_text , selectobj )
{
var ll_idx;
if (selectobj.length > 0);
{
tmp_option = new Option( as_text, as_text, false, false );
ll_idx = selectobj.length;
selectobj.options[ll_idx] = tmp_option;
selectobj.options[ll_idx].selected = true;
inputobj.focus();
}
}
</script>
</HEAD>
<body MS_POSITIONING="GridLayout">
<form id="Form1" method="post" runat="server">
<INPUT style="Z-INDEX: 102; LEFT: 96px; POSITION: absolute; TOP: 48px" type="text" id="TextBox"><INPUT style="Z-INDEX: 103; LEFT: 272px; POSITION: absolute; TOP: 48px" type="button" value="Button"
onclick="newIataOption(TextBox, TextBox.value, lbIATANo)" id="BtnAdd">
<SELECT style="Z-INDEX: 104; LEFT: 96px; WIDTH: 140px; POSITION: absolute; TOP: 96px; HEIGHT: 192px"
size="12" name="lbIATANo" id="lbIATANo" runat="server">
<OPTION value="dummy">IATA Numbers</OPTION>
</SELECT>
<asp:Button id="Button1" style="Z-INDEX: 105; LEFT: 104px; POSITION: absolute; TOP: 336px" runat="server"
Text="Button" Width="136px"></asp:Button>
</form>
</body>
</HTML>
'****コードビハインド
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Me.DataBind()
Dim a As Integer = lbIATANo.SelectedIndex()
Dim b As String = lbIATANo.Value.ToString
Dim c As Integer = lbIATANo.Items.Count
Dim d As String = lbIATANo.Items(1).Text()
End Sub
AddボタンクリックでリストボックスにTextBoxの値を追加していきます。
そこまでは問題なにのですが、その後、Updateボタンを押してHTMLリストボックスの追加した値の取得に失敗しています。
どなたかアドバイス、宜しくお願い致します。