-- 作者:小肥牛
-- 发布时间:2013/5/25 13:43:00
--
一些很简单的代码,放出来,供跟我一样的菜鸟借鉴
窗口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
[此贴子已经被作者于2013-5-25 13:43:52编辑过]
|