-2

我有 6 个文本框和 6 个复选框。现在我想用 CheckBox1 禁用 TextBox1 并用 Same CheckBox 重新激活它。怎么能做到？

编辑1 15.55 14/02/2013

我这样做是为了解决我的问题！

Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked = True Then
TextBox1.Enabled = False
ElseIf CheckBox1.Checked = False Then
TextBox1.Enabled = True End If End Sub `

4

5 回答 5

5

这将起作用，只需为其他复选框添加更多

Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Enabled = True
        Else
            TextBox1.Enabled = False
        End If
End Sub

这是做什么的：如果 checkbox1 被选中，checked_changed 事件触发并且里面的代码被运行。if 语句查看复选框是否被选中。如果选中，则将 textbox1 设置为启用，否则将其设置为禁用。确保在创建程序时将 enabled 属性设置为启用或禁用。如果您希望从一开始就启用它，这是默认设置....否则在其属性视图中将其设置为禁用。

于 2013-02-14T16:02:47.230 回答
1 
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    TextBox1.Enabled = CheckBox1.Checked
End Sub
于 2013-02-14T14:29:41.130 回答
0

看看下面的这个教程。之后，查看复选框控件的事件并选择最合适的一个。您将在文本框上更改的属性是Enabled。

http://www.youtube.com/watch?v=4PbUryXqZ50

于 2013-02-14T14:14:54.613 回答
0

如果您有一个内置的层，您可以将对象发送到后面（因此隐藏事物），则此方法有效。我使用它作为使文本框和其他项目根据其他选择出现和消失的一种方式。

Private Sub checkbox_Click()
    If (checkbox = True) Then

    ActiveSheet.Shapes("textbox").ZOrder msoSendToFront
    ActiveSheet.Shapes("textbox").ZOrder msoSendToFront

    Else

    ActiveSheet.Shapes("textbox").ZOrder msoSendToBack
    ActiveSheet.Shapes("textbox").ZOrder msoSendToBack

    End If

End Sub
于 2013-11-15T16:05:54.613 回答
0

这对我有用：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load


        TextBox1.Enabled = False

        If Not TextBox1.Enabled Then
            TextBox1.BackColor = Color.White
        End If
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        If CheckBox1.Checked = True Then
            TextBox1.Enabled = True
        Else
            TextBox1.Enabled = False
        End If
    End Sub
End Class
于 2017-09-02T20:59:01.207 回答