主题：文本框默认提示文字

如何写文本框默认提示文字，以前看到有个狐友分享的例子，但是只有进入控件，再离开控件，而且文本是空值的时候才显示。不够完美。

 

如下：一打开窗口就提示，进入控件，消失，再离开控件，如果是空值，继续提示。

 

 

此主题相关图片如下：提示.png

呵呵，我刚发完帖子，然后自己又仔细看了这一段话：一打开窗口就提示，进入控件，消失，再离开控件，如果是空值，继续提示。 发现问题挺简单的，跟Bin神的思路一样，只需要再把字体颜色改灰点就行。

 

谢谢Bin神，

一些很简单的代码，放出来，供跟我一样的菜鸟借鉴

 

窗口1_AfterLoad

 

Dim aa As WinForm.TextBox = e.Form.Controls("TextBox1")

If aa.Value = Nothing Then

    aa.Value ="搜索你的文件"

    aa.ForeColor =  Color.LightGray

End If

 

窗口1_TextBox1_Enter

 

If e.Sender.text="搜索你的文件" Then

    e.Sender.Text=Nothing

    e.Sender.ForeColor =  Color.black

End If

 

窗口1_TextBox1_Validating

 

If e.Sender.Text=Nothing Then

    e.Sender.Text="搜索你的文件"

    e.Sender.ForeColor =  Color.LightGray

End If