Private Sub Form_Load()
Form1.KeyPreview = True '控件前拦截按键激活
Text1.CausesValidation = True '激活使之可以引发验证事件
End Sub
Private Sub Command1_Click()
Text2.SetFocus '转移焦点到文本2
End Sub
Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Text2.SetFocus '窗体接收任意键盘,转移焦点
End Sub
Private Sub Text1_Validate(Cancel As Boolean)
MsgBox "文本1失去焦点前验证"
End Sub
点击命令可以激活
鼠标点击,可以激活
TAb可以激活
但其它按键时,在失去焦点时,却没有引发,原因不明。