以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  文本框默认提示文字  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=33830)

--  作者:小肥牛
--  发布时间:2013/5/25 10:38:00
--  文本框默认提示文字

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

 

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

 

 


图片点击可在新窗口打开查看此主题相关图片如下:提示.png
图片点击可在新窗口打开查看

--  作者:Bin
--  发布时间:2013/5/25 10:40:00
--  
在哪个例子的基础上
在窗口ALterLoad事件中为它赋值不就行了吗?
--  作者:小肥牛
--  发布时间:2013/5/25 10:45:00
--  

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

 

谢谢Bin神,图片点击可在新窗口打开查看


--  作者:everybody
--  发布时间:2013/5/25 11:18:00
--  
呵呵,我也受启发了,谢谢!!!
--  作者:小肥牛
--  发布时间: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编辑过]

--  作者:hrlong
--  发布时间:2019/6/19 17:15:00
--  
文本框赋值