vb中"当text文本失去焦点" 这条语句怎么写代码

显示全部楼层 · 2013-10-12 21:10:59

文本框焦点事件onBlur:当失去输入焦点后产生该事件onFocus:当输入获得焦点后，产生该文件Onchange:当文字值改变时，产生该事件Onselect:当文字加亮后，产生该文件onpropertychange 当属性改变发生该事件无论粘贴 keyup onchange等...

千问 · 2013-10-12 21:10:59

'有一个事件,名字叫Text1_LostFocus,相关语句为'取得焦点控件的名称
Dim ctl As Control
Set ctl = Screen.ActiveControl
Print "当前得到焦点的是:" & ctl.Name'可以以此来判断if ctl.Nametext1 then MsgBo...

千问 · 2013-10-12 21:10:59

Private Sub Form_Load()
txtText1.MaxLength = 6End SubPrivate Sub txtText1_Change()
If Not IsNumeric(txtText1.Text) And txtText1.Text"" Then
MsgBox "请输入正确...