在VB中健个命令按钮和一个文本框单击按钮时文本框消失

VB中建一个文本框，一个命令按钮，单击命令按钮则文本框中有字，再单击，字就消失~怎么编程呢？~

是不是这样：
Private Sub Command1_Click()
Text1.Enabled = Text1.Enabled = False
End Sub

如果只是要实现有字无字的效果就是这样：
Private Sub Command1_Click()
If Text1.Text = "" Then Text1.Text = "Hello ~~" Else Text1.Text = ""
End Sub

这个你需要用到CommonDialog控件，这个控件你可以在VB工程设计状态下按CTRL + T，然后选择Microsoft Common Dialog Control 6.0 然后将工具箱中刚刚添上的那个控件放在窗体上，再在按钮中输入以下代码： private sub command1_click() on error resume next commondialog1.showopen text1.text = commondialog1.filename end sub

1、首先，在窗体上面添加一个文本框。

2、单击文本框，在属性窗口设置文本框的属性，清空文本内容。

3、将文本框的enabled属性设置为False。

4、在窗体上添加一个命令按钮，如下图所示。

5、在属性窗口，设置命令按钮的Caption属性为“允许输入”。

6、双击命令按钮，编辑其代码。

7、运行程序，输入“百度”。直接在文本框中无法输入内容，点击“允许输入”命令按钮，则可以输入相应内容。

假设按钮是“command1”，文本框是“text1”，在按钮单击事件下输入以下代码：

private sub command1_click（） ——指明过程，单击按钮触发。
text1.visible=false ——指明触发程序，文本框不可见
end sub ——结束过程。

Private Sub Command1_Click()
Text1.Visible = False
End Sub

Private Sub Command1_Click()
Text1.Visible = False
End Sub

text1.visible=false

---

在VB中健个命令按钮和一个文本框单击按钮时文本框消失视频