Question

VB中，如何实现：当鼠标点击文本框时，文本框内的提示字符会自动消隐

Answer 1

代码 Option Explicit
Dim defs As String
Private Sub Form_Activate()
defs = "请在这里输入" '定义提示字符
Command1.SetFocus '给按钮置焦点
End Sub

Private Sub Text1_GotFocus() '文本框得到焦点
If Text1 = defs Then Text1 = ""
End SubPrivate Sub Text1_LostFocus() '文本框失去焦点
If Text1 = "" Then Text1 = defs
End Sub

Answer 2

Private Sub Text1_Click()
Text1.Text = ""
End Sub

Answer 3

在控件的点击事件中设置文本框内容为空。比如on txttest clickset txttest.text=''

Answer 4

Dim str
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
ToolTipText = str
End SubPrivate Sub Text1_Click()
str = ToolTipText
Text1.ToolTipText = ""
End Sub