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

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

 尽量用2楼的方式去做，全选的话，更贴合实际。