Question

我正在尝试在VB项目中工作，但是由于这是我第一次在VB中工作，因此遇到了一些困难。我有一个复选框和一个文本框。我希望如果用户选中复选框以启用文本框。

 <tr>
 <td></td>
 <td style="width:100px; ">Staff:&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp                                                                          

  <asp:CheckBox ID="CheckBox3" runat="server" AutoPostBack="True" 
      OnCheckedChanged="CheckBox3_CheckedChanged" />
 </td>
 <td style="width:200px; ">

 <edititemtemplate>

 <telerik:RadTextBox ID="RadTextBox2" width="100%" Runat="server" 
     Enabled="false">

 </telerik:RadTextBox>

</edititemtemplate>
</td>  
   <td class="Validator_Cls"></td>                                                                  
   </tr>

这是背后的代码

Dim RadTextBox2 As New TextBox
Dim WithEvents CheckBox3 As New CheckBox

    Public Sub CheckBox3_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox3.CheckedChanged
    If CheckBox3.Checked = True Then
        RadTextBox2.Enabled = True
    End If

End Sub

问题是，即使我选中了该复选框，if子句也会指出该复选框未选中，并且不会在if语句中输入。我还可以看到该函数的sender参数按预期变为True。

知道我在哪里做错了吗？请帮助，因为这花费的时间比应该的要长。

Answer 1

您能告诉我这是否有效吗？我删除了Handles Me.Load

Protected Sub CheckBox3_CheckedChanged(ByVal sender As Object, ByVal e As EventArgs)         
If CheckBox3.Checked = True Then
        RadTextBox2.Enabled = True
    Else
        RadTextBox2.Enabled = False
    End If
End Sub

OnCheckedChanged事件返回复选框始终为未选中状态

1 个答案: