如何在条件为 vb.net 的复选框列表中创建自动 select 项
How to make auto select item in checkbox list with condition in vb.net
我有一个复选框列表,其中的项目是和否。例如,如果 textbox1 <= 90,则复选框列表中的 1stitem "Yes" 将自动 select。如果 textbox1 >90,则复选框列表中的第 2 项 "No" 将自动 select。如何在vb中编写这段代码?
谢谢!
一种方法是在文本框离开事件中,检查文本的数值,然后在复选框列表中检查适当的值。您可以使用 IsNumeric 来确保文本框中的值是一个数字。
您需要处理TextBox 控件的OnTextChanged 事件。以下是示例 aspx 文件代码
<asp:TextBox ID="TextBox1" runat="server" AutoPostBack="true" OnTextChanged="TextBox1_TextChanged"></asp:TextBox>
<asp:CheckBoxList ID="CheckBoxList1" runat="server">
<asp:ListItem Value="Yes" Text="Yes"></asp:ListItem>
<asp:ListItem Value="No" Text="No"></asp:ListItem>
</asp:CheckBoxList>
后端代码
Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valueString As String = TextBox1.Text
Dim value As Integer
If Integer.TryParse(valueString, value) Then
If value <= 90 Then
CheckBoxList1.Items.FindByValue("Yes").Selected = True
CheckBoxList1.Items.FindByValue("No").Selected = False
Else
CheckBoxList1.Items.FindByValue("Yes").Selected = False
CheckBoxList1.Items.FindByValue("No").Selected = True
End If
End If
End Sub
我有一个复选框列表,其中的项目是和否。例如,如果 textbox1 <= 90,则复选框列表中的 1stitem "Yes" 将自动 select。如果 textbox1 >90,则复选框列表中的第 2 项 "No" 将自动 select。如何在vb中编写这段代码?
谢谢!
一种方法是在文本框离开事件中,检查文本的数值,然后在复选框列表中检查适当的值。您可以使用 IsNumeric 来确保文本框中的值是一个数字。
您需要处理TextBox 控件的OnTextChanged 事件。以下是示例 aspx 文件代码
<asp:TextBox ID="TextBox1" runat="server" AutoPostBack="true" OnTextChanged="TextBox1_TextChanged"></asp:TextBox>
<asp:CheckBoxList ID="CheckBoxList1" runat="server">
<asp:ListItem Value="Yes" Text="Yes"></asp:ListItem>
<asp:ListItem Value="No" Text="No"></asp:ListItem>
</asp:CheckBoxList>
后端代码
Protected Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
Dim valueString As String = TextBox1.Text
Dim value As Integer
If Integer.TryParse(valueString, value) Then
If value <= 90 Then
CheckBoxList1.Items.FindByValue("Yes").Selected = True
CheckBoxList1.Items.FindByValue("No").Selected = False
Else
CheckBoxList1.Items.FindByValue("Yes").Selected = False
CheckBoxList1.Items.FindByValue("No").Selected = True
End If
End If
End Sub