当前位置: 传客网 > Validate事件

Validate事件

2017-01-04 作者:vb_visualbasic
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四大「燒鵝」事件

    2016年12月21日陳少平霧線之下2017四大「燒鵝」事件今年燒鵝事件很多(彷彿看了一齣黑天鵝湖的表演),從英國公投,再到美國大選,讓投資者大跌眼鏡。除了美國外,全球經濟增速低迷,失業率高位徘徊,導致民粹主義抬頭,並開啟逆全球化的進程。展

  • 违约事件传导链显现 债市杠杆迎三路径“去化”

      国海证券(6.970,0.00,0.00%)“假章门”带给债券市场的影响远不止于事件本身。  21世纪经济报道记者从多位固收人士处了解到,伴随着国海证券事件的发酵,此前一路高歌猛进的债券市场,正在从三个维度迎来“去杠杆”压力。  一方面

  • 【盘点】2016中国B2B行业十大事件

    时近年底,很有必要对2016年的B2B发展进行盘点。首先是行业事件十宗“最”,在行业的快速前行下,我们往年的七宗“最”,首次有机会凑齐十条。从十大事件综合来看,今年的核心关键词是转型落地与探索前行,有收获有阵痛,相信行业将有更美好的未来。一

  • 盘点:2016中国B2B行业十大事件

    时近年底,很有必要对2016年的B2B发展进行盘点。托比网就此策划一系列盘点文章,试图还原这一年中国B2B行业的发展现状。首先是行业事件十宗“最”,在行业的快速前行下,我们往年的七宗“最”,首次有机会凑齐十条。从十大事件综合来看,今年的核心

  • 媒体记者被打事件藏着多少黑幕

      营养餐事件需要彻查,记者被打事件同样需要彻查。在一个健康的社会,有一些底线必须守住,这其中就包括,保护孩子的营养餐安全;保护记者的合法监督权。  16日,中国教育报记者刘博智、刘盾在黑龙江省齐齐哈尔市甘南县就学生营养午餐问题进行采访时,

  • 一周大事件来啦!竟然爆出这么多猛料?!

    一不留神,2016年就只剩15天了维妹赶紧抓住2016的尾巴想跟你们多多分享发生的新鲜事所以——《一周大事件》上线了!每周五用一首歌的时间了解智能科技界的大新闻快来一睹为快!亚马逊完成首单无人机快递:从下单到送达只要13分钟

  • 俄驻土大使被枪杀 俄土表示事件不影响双方关系

      莫斯科12月19日电当地时间19日,俄罗斯驻土耳其大使安德烈·卡尔洛夫在土首都安卡拉出席活动时遭枪杀。事发后,俄土双方均表示,事件不会对双方关系发展造成影响。  据公布的事发时现场显示,一名身穿黑色西服打领带的年轻人从后方接近正在活动中

  • “裸条”事件持续发酵,关于借贷那点儿事

    “求种子,求种子......”大学生“裸条”事件,还在持续发酵当中,网络上“求种子”的声音依旧络绎不绝。最近有一个大约10个G名字叫“女大学生裸条”的图片和视频压缩包在网上疯传。据报道,如果女大学生借款,且在规定时间之内没有办法还款就得“肉

返回
顶部