Private Sub Text1_LostFocus()
If Text1.Text <> "123456" Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command1_Click()
Text1.Text = "vb"
End Sub
代码如上
请问
为什么文本框输入123456
点击COMMAND1 为什么直接改了TETX值,没有触发LOSTFOCES事件
最后焦点还在COMMAND1上
If Text1.Text <> "123456" Then
Text1.Text = ""
Text1.SetFocus
End If
End Sub
Private Sub Command1_Click()
Text1.Text = "vb"
End Sub
代码如上
请问
为什么文本框输入123456
点击COMMAND1 为什么直接改了TETX值,没有触发LOSTFOCES事件
最后焦点还在COMMAND1上