在 Visual Basic 中使用复选框启用和禁用 TextBox答案

【问题标题】：Enable and disable TextBox with a checkbox in visual basic在 Visual Basic 中使用复选框启用和禁用 TextBox
【发布时间】：2013-01-30 08:44:21
【问题描述】：

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

Edit1 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`

【问题讨论】：

What have you tried?
我不知道该怎么办！我找到了这个mrexcel.com/forum/excel-questions/… 但我不工作！
我们很乐意在这里帮助初学者，但是为了学习编程，您需要为初学者准备一本好书并从那里开始。本网站的问答形式并不是学习基础知识的理想方式。
对不起，我是初学者，我知道。我会找到一本好书！
一旦遇到无法自行解决的问题，请回来，我们很乐意提供帮助！

标签： vb.net checkbox textbox

【解决方案1】：

这对我有用：

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

【讨论】：

好的，那么 Jean-Francois... 我查看了一个网站并尝试了该代码。但发现它只以一种与我想要的相反的方式起作用。所以我做了更多的研究并找到了第一部分（第一个私人子）。它没有单独工作，所以我将它们结合起来。我还不是一个编码员。刚开始是出于需要。谢谢。更好？

【解决方案2】：

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

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

【讨论】：

【解决方案3】：

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

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 属性设置为启用或禁用。如果您希望从一开始就启用它，这是默认设置....否则在其属性视图中将其设置为禁用。

【讨论】：

【解决方案4】：

Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
    TextBox1.Enabled = CheckBox1.Checked
End Sub

【讨论】：

【解决方案5】：

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

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

【讨论】：