Question

设置vb 文本框 提示文字 设置

文本框中，在未输入之前，文本框中出现文字说明。要输入字体时，里面的提示文字消失，在很多搜索栏里，或者写心情的框中均会出现这种情形，如何做啊？
首先出现阴影字体效果，要输入时自动清空。我的问题表述清楚了吗？

Answer 1

Private Sub Form_Load()
Text1.Text = "请输入你的信息！"
End Sub

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

如果你的窗体中控件数多，而且文本框控件不是第一时间获取焦点的话，也可以这样！

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

Answer 2

你们太复杂了，只需5行代码即可，手机上写不好，hi我

Answer 3

Private Sub Form_Load()
Text1.Text = "请输入你的信息！"
End Sub

Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
If Text1.Text = "请输入你的信息！" Then Text1.Text = ""
End Sub

Answer 4

Private SysChange As Boolean
Private UsrInput As Boolean

Private Sub Form_Load()
SysChange = True
Text1.Text = "请输入内容"
Text1.ForeColor = &H80000011 '阴影特效
End Sub

Private Sub Text1_Change()
If SysChange = False Then
UsrInput = True
Else
SysChange = False
End If
End Sub

Private Sub Text1_GotFocus()
If UsrInput = False Then
SysChange = True
Text1.Text = ""
Text1.ForeColor = &H80000008 '阴影特效
End If
End Sub

Private Sub Text1_LostFocus()
If UsrInput = False Then
SysChange = True
Text1.Text = "请输入内容"
Text1.ForeColor = &H80000011 '阴影特效
End If
End Sub