Validate事件

vb

Validate事件编辑
在焦点转换到一个(第二个)控件之前发生,此时该控件的 CausesValidation属性值设置为True。

语法

Private Sub object_Validate(KeepFocus As Boolean)。
Validate事件语法包含下面几部分:

部分描述

object一个对象表达式,其值为“应用于”列表中的一个对象。
KeepFocus 确定控件是否失去焦点的值。KeepFocus设置为True时,控件保持焦点。

说明

Validate 事件和CausesValidation 属性协同工怍,防止控件失去焦点直到满足确定的准则。
重点 只有在即将获得焦点的控件的CausesValidation属性值设置为True时,Validate事件才发生。
Private Sub Text1_LostFocus()
'If Not IsNumeric(Text1.Text) Or Val(Left(Text1.Text, 1)) = 0 Then
  
  MsgBox "请输入有效数字.", vbCritical, "Error"
  End If
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
If Not IsNumeric(Text1.Text) Or Val(Left(Text1.Text, 1)) = 0 Then
  MsgBox "请输入有效数字.", vbCritical, "Error"
    Cancel = True
End If
End Sub
也就是说,当你离开textbox的时候,首先触发Validate事件(前提:textbox的CauseValidation要设置成True),执行if语句,用IsNumeric函数判断textbox.text是否是数字,如果不是数字,textbox keepfocus也就是继续保持焦点。如果不是数字提示"请输入有效数字."。Val(Left(Text1.Text, 1)) = 0用来判断文本的第一个数字是否是0。

附,MSDN对IsNumeric函数的说明:

IsNumeric 函数
     
返回 Boolean 值,指出表达式的运算结果是否为数。
语法
IsNumeric(expression)
必要的 expression 参数是一个 Variant,包含数值表达式或字符串表达式。
说明
如果整个 expression 的运算结果为数字,则 IsNumeric 返回 True;否则返回 False。
如果 expression 是日期表达式,则 IsNumeric 返回 False

IsNumeric 函数示例

本示例使用 IsNumeric 函数判断变量的值是否可为数值。
Dim MyVar, MyCheck
MyVar = "53"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。
MyVar = "459.95"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 True。
MyVar = "45 Help"   ' 指定值。
MyCheck = IsNumeric(MyVar)   ' 返回 False。

相关推荐

  • 浅谈校园霸凌事件 最近,中关村第二小学的霸凌事件引起了公众的广泛关注。这并不是第一起校园霸凌事件,但由于涉事学生的年龄较小,人们愈发察觉到这个事件的严重性。就我个人而言,当我在微博热搜榜单上看到这一消息时,真的感到十分惊讶!今天,我想浅显地谈谈我对校园霸凌事
  • 清博配合“甘南县记者被打事件”调研的声明 今日,清华大学沈阳教授宣布将启动对“甘南县记者被打事件”的舆情调研,清博将全力从大数据层面配合,将获取的事件海量数据随时共享给调研成员及社会公众,力求客观真实全面地反映事件全貌及社会真实民意!另附以下说明:1、对近期少数自媒体报道的说明因公
  • JavaScript中的事件处理 作者:武东链接:https://zhuanlan.zhihu.com/p/24482655来源:知乎著作权归作者所有。商业转载请联系作者获得授权,非商业转载请注明出处。事件处理概述  事件处理是对象化编程的一个很重要的环节,没有了事件处理,
  • 不怕神对手,就怕猪队友!2016,六大失败的危机公关事件 2016年,即将过去了。这一年,作为吃瓜群众,我们围观了太多太多的事件,这其中很多的事件,都堪称危机公关的成功案例,比如顺丰小哥被打事件的应急处理博得好评,比如德云社一手太极将师徒之争搅成稀泥。但是神操作不是每个人都有,猪队友和昏招倒是在今
  • 国海证券事件   国海证券三度澄清  12月18日,国海证券发布停牌事项进展公告称,自12月15日停牌以来,国海证券就对“国海证券股份有限公司”印章被伪造的事件采取了一系列应对措施。根据司法鉴定机构出具的鉴定结果显示,相关涉事协议中加盖的“国海证券股份有
  • 使用 inotify 监控 Linux 文件系统事件 Inotify是文件系统事件监控机制,计划包含在即将发布的Linux内核中作为dnotify的有效替代。dnotify是较早内核支持的文件监控机制。Inotify是一种强大的、细粒度的、异步的机制,它满足各种各样的文件监控需要,不仅限于安全
  • 伊塔事件:解密新疆X档案 解密新疆X档案明月出天山,天山故事新。西北博闻第一的“兵团斯诺登”张松老师,将为大家逐一解密扑朔迷离、波诡云谲的“新疆X档案”…▼先有伊塔事件,后有185团!既然标志中苏分歧从意识形态扩大至外交层面的“伊塔事件”与185团在内的
  • 由中关村二小事件看领导艺术 由中关村二小事件看领导艺术北京中关村二小发生了一件校园暴力事件,话说一个孩子上厕所,被另外几个淘气的孩子跟踪并恶作剧,把厕所的纸篓子掀翻,扣在了这个孩子身上,还说要看看这个孩子的屁股之类,给这个孩子造成了比较严重的心理反应。受害者的妈妈找学
  • 国海证券假章门事件逐渐发酵 新三板企业会受“牵连”吗? 【导读】国海证券假章门事件在市场上掀起一场“风雨”,而受国海证券萝卜章事件的影响,国债期货开盘再度暴跌。国金证券系新三板多家企业的主办券商,还参股了24家新三板公司。那么新三板的企业会当我们都在关注新三板挂牌企业数量破万,市场进入“万家灯火
  • c# 线程同步:详解lock,monitor,同步事件和等待句柄以及mutex c#线程同步:详解lock,monitor,同步事件和等待句柄以及mutexc#线程同步:详解lock,monitor,同步事件和等待句柄以及mutex2007-12-14博客园  最近由于在准备Collection对象培训的PPT,因为涉
  • 2016年度十大营销事件 2016十大营销事件Top1:杜蕾斯全程直播“百人试套”【事件回顾】4月26日晚9点,杜蕾斯在B站、乐视、斗鱼等内地多家在线直播平台直播"百人试戴"活动。由于节目名字令人充满遐想,吸引了超过500万人的在线观看,万万没想到,充满期待的网友们
  • 振动筛厂家-先锋振动官网被攻击事件 振动筛厂家-先锋振动官网被攻击事件。大家好!先锋小编又和大家见面了,小编这会可真是突出重围才能和大家见面的!为啥?因为先锋公司的网站被攻击了!通过这一攻击事件令小编深思,为什么企业站总是受到这样的对待?企业站就是一个弱势群体么?企业站又可以

你的评论

就没有什么想说的吗?

最新博客

关于我们 加入传客 媒体报道 帮助中心 传客活动 免责声明 联系我们 移动版 移动应用

©2017传客网    琼ICP备15003173号-2    

本站部分文章来源于互联网,版权归属于原作者。
本站所有转载文章言论不代表本站观点,如是侵犯了原作者的权利请发邮件联系站长(weishubao@126.com),我们收到后立即删除。
站内所有资源仅供学习与参考,请勿用于商业用途,否则产生的一切后果将由您自己承担!

X