主题：[求助]文本框默认提示效果

afterload

e.Form.controls("combobox1").text = "请输入公司名称查找"
e.Form.controls("combobox1").Forecolor = Color.gray

textchanged

If e.Sender.Text <> "请输入公司名称查找" Then
    e.Sender.ForeColor = Color.black
End If

click

If e.Sender.Text = "请输入公司名称查找" Then
    e.Sender.SelectAll
End If

leave

If e.Sender.Text = "" Then
    e.sender.ForeColor = Color.gray
    e.Sender.Text = "请输入公司名称查找"

End If