VB中 如何在text中加如一句话 当点击text时 这句话就消失

来源：百度知道 编辑：UC知道 时间：2024/09/22 01:03:16
就像Google搜索条一样 text中的句子要淡一点的颜色 当点击text时 这句话就消失 然后就可以在text中输入 怎么做? 满意答案我给分!20~30

Private Sub Form_Load()
Text1.ForeColor = &H8000000C
End Sub

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

用命令按纽设置文本要显示的值text1.text=~~，用gotfocus事件写text1=""

Private Sub Form_Load()
Text1.ForeColor = &H888888
Text1.text="请在此输入内容"
End Sub

Private Sub Text1_Gotfocus()
if text1.text="请在此输入内容" then
Text1.ForeColor = &H0
Text1.Text = ""
endif
End Sub