- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 鼠标停在按钮上的时候出现一个提示消息“只能输入数字“ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=3074)
-- 发布时间：2009/6/9 16:21:00
-- 鼠标停在按钮上的时候出现一个提示消息“只能输入数字“
鼠标停在按钮上的时候出现一个提示消息“只能输入数字“
这个代码怎么写
移开鼠标 就消失
谢谢
[此贴子已经被作者于2009-6-9 16:23:13编辑过]
-- 发布时间：2009/6/9 16:24:00
--
不用写代码的。
设计窗口的时候，设置该按钮的提示信息即可
-- 发布时间：2009/6/9 16:25:00
--
此主题相关图片如下：未命名+.jpg
-- 发布时间：2009/6/9 16:26:00
--
窗口设计中：
在 行为 〉 提示 中填写
编码：
控件参考 〉 通用属性 〉 ToolTip
[此贴子已经被作者于2009-6-9 16:26:24编辑过]
-- 发布时间：2009/6/9 16:29:00
--
那怎么让他只能输入数字
-- 发布时间：2009/6/9 16:30:00
--
以下是引用hlxz在2009-6-9 16:29:00的发言：
那怎么让他只能输入数字
那怎么让他只能输入数字
If Char.IsPunctuation(e.KeyChar) OrElse Char.IsSymbol(e.KeyChar) OrElse Char.IsLetter(e.KeyChar) OrElse Char.IsLetter(e.KeyChar) Then
e.Cancel = True
End If
-- 发布时间：2009/6/9 16:34:00
--
谢谢你mr725 回去弄弄 快下班了 也谢xie dajia
-- 发布时间：2009/6/9 17:26:00
--
if not isnumeric(e.Form.Controls("文本框").Value ) then
MessageBox.Show("对不起,只允许输入数字!", "系统提示:",MessageBoxButtons.OK,MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
end if
-- 发布时间：2009/6/9 17:37:00
--
在论坛的库管系统之五金建材版，里面有一段判断电话号码是否合法的代码，仅供参考：
if e.col.name = "联系方式_电话" and e.row("联系方式_电话") isnot nothing then
if not isnumeric(e.row("联系方式_电话").replace("-","").replace("-","").replace("/","")) then
MessageBox.Show("对不起,您输入的电话号码不合法!", "系统提示:",MessageBoxButtons.OK,MessageBoxIcon.Exclamation,MessageBoxDefaultButton.Button1)
end if
end if
-- 发布时间：2009/6/9 19:23:00
--
谢谢！这个简单