Question

如何实现VB里当鼠标点击输入框时,输入框内的提示文字自动消失

Answer 1

Private Sub Text1_GotFocus()
If Text1.Text = "提示文字" Then Text1.Text = ""
End Sub

Private Sub Text1_LostFocus()
If Text1.Text = "" Then Text1.Text = "提示文字"
End Sub

Answer 2

在text的单击事件下：

text1.text=""