以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]如何实现textbox中的类似foxmail搜索邮件框效果  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=64795)
--  作者：chnfo
--  发布时间：2015/3/2 10:51:00
--  [求助]如何实现textbox中的类似foxmail搜索邮件框效果
用过foxmail的知道右上角有个检索框，里面有个放大镜图标，还有搜索邮件四个字，当鼠标点击此框时，框内变成空白，如果不输入任何内容点击别处，会回复原样。这个能做到吗？
--  作者：Bin
--  发布时间：2015/3/2 10:55:00
--  
放大镜图标放到旁边啊. 文本框 设置默认值为  搜索邮件   并且在Enter事件 判断
if e.sender.text="搜索邮件"   then
e.sender.text=""
end if


Lave离开焦点事件

if e.sender.text=""   then
e.sender.text="搜索邮件"
end if
--  作者：有点甜
--  发布时间：2015/3/2 10:55:00
--  

Enter

 

If e.Sender.Text = "请输入邮件号" Then
    e.Sender.ForeColor = Color.Black
    e.Sender.Text = ""
End If

 

Leave

 

If e.Sender.Text = "" Then
    e.Sender.Text = "请输入邮件号"
    e.Sender.ForeColor = Color.gray
Else
    e.Sender.ForeColor = Color.Black
End If