- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]文本框提示内容的隐藏显示 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=60398)
-- 发布时间：2014/11/24 12:10:00
-- [求助]文本框提示内容的隐藏显示
这种效果如何做？
比如缺省看到的有提示内容，鼠标在文本框点击一下，提示内容消失，然后可以直接输入自己想输入的内容。完了之后文本框再次显示提示内容。
此主题相关图片如下：请输入.png
-- 发布时间：2014/11/24 12:14:00
--
在控件的ENTER和LEAVE事件中写代码
-- 发布时间：2014/11/24 12:24:00
--
在控件的ENTER和LEAVE事件中写代码
请问该怎么写呢？
-- 发布时间：2014/11/24 14:22: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
-- 发布时间：2014/11/24 14:26:00
--
狐爸正在开发的功能：
e.Sender.提示文字 = "请输入邮件号"
-- 发布时间：2014/11/24 14:43: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
If e.Sender.Text = "请输入临时版本编号" Then
e.Sender.ForeColor = Color.Black
e.Sender.Text = ""
End If
If e.Sender.Text = "" Then
e.Sender.Text = "请输入临时版本编号"
e.Sender.ForeColor = Color.gray
Else
e.Sender.ForeColor = Color.Black
End If
好像没生效。是怎么回事呢？
-- 发布时间：2014/11/24 14:45:00
--
两个事件的代码啊
-- 发布时间：2014/11/24 14:46:00
--
两个事件的代码啊
是啊。一个enter，一个leave。
此主题相关图片如下：是2个事件.png
-- 发布时间：2014/11/24 14:48:00
--
不可能，请认真测试。
-- 发布时间：2014/11/24 14:53:00
--
不可能，请认真测试。
是文本框的enter和leave事件吧。
在临时版本跟踪表，请看一下临时版本编号查询文本框。
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:临时版本跟踪系统26.rar |