Vb. 网络按钮第二次点击

Question

第一次单击时，我希望看到列表框和一些按钮被禁用。
第二次单击时，我希望看到该列表框和按钮再次启用。

我当前的代码是：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) _
        Handles Button2.Click
    lstbx_1.Enabled = False
    lstbx_2.Enabled = False
    outbtn.Enabled = False
    Button2.Text = "remove approval"
End Sub

Answer 1

试试这段代码：

 Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        lstbx_1.Enabled = Not (lstbx_1.Enabled)
        lstbx_2.Enabled = Not (lstbx_2.Enabled)
        outbtn.Enabled = Not (outbtn.Enabled)
        If lstbx_1.Enabled = False Then
            Button2.Text = "remove approval"
        Else
            Button2.Text = "Your Text"
        End If
    End Sub