Private Sub Form_Load() Form1.KeyPrevIEw = True '控件前拦截按键激活 Text1.CausesValIDation = True '激活使之可以引发验证事件End SubPrivate Sub Command1_Click() Text2.SetFocus '转移焦点到文本2End SubPrivate Sub Form_KeyDown(KeyCode As Integer,Shift As Integer) Text2.SetFocus '窗体接收任意键盘,转移焦点End SubPrivate Sub Text1_ValIDate(Cancel As Boolean) MsgBox "文本1失去焦点前验证"End Sub
点击命令可以激活
鼠标点击,可以激活
TAb可以激活
但其它按键时,在失去焦点时,却没有引发,原因不明。
总结以上是内存溢出为你收集整理的VB 失去焦点时验证事件没有引发全部内容,希望文章能够帮你解决VB 失去焦点时验证事件没有引发所遇到的程序开发问题。
如果觉得内存溢出网站内容还不错,欢迎将内存溢出网站推荐给程序员好友。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)