Question

VB中的textbox设置问题

VB中的textbox的text中可以设置文字，但是程序运行后，点击TEXTbox 要输入的时候 那个文字不能消失，需要手动删除。有没有办法设置成 鼠标点击后显示空白

Answer 1

Private sub Text1.Click
Text1.text = ""
end sub

就是在代码框里选择Text1,后面选择Click(默认的是change),点击后就清空文本。

追问

照着做了 但是还是不对啊 现在变成点击后显示文字了

Answer 2

#芝麻开门#

Dim sTxt As String
 
Private Sub Form_Load()
sTxt = Text1.Text
End Sub
 
Private Sub Text1_Click()
If Text1.Text = sTxt Then Text1.Text = ""
End Sub

追问

呃 还要声明变量？能解释一下这段代码吗 谢谢

追答

声明变量是为了保存 textbox原有的文字
如果在点击textbox的时候检查到是textbox原有的文字 才会清空textbox
不会是你点击textbox就清空只有符合条件才会清空