1个回答
2013-07-22
展开全部
Private Sub Command1_Click()
Text1.SetFocus '设置焦点 即光标至text2.text
End SubPrivate Sub Text1_Change()
MsgBox "当前文本框的值为" & Text1.Text
End SubPrivate Sub Text1_GotFocus()
MsgBox "当前文本框获得焦点"
End SubPrivate Sub Text1_LostFocus()
MsgBox "当前文本框失去焦点"
End Sub
Text1.SetFocus '设置焦点 即光标至text2.text
End SubPrivate Sub Text1_Change()
MsgBox "当前文本框的值为" & Text1.Text
End SubPrivate Sub Text1_GotFocus()
MsgBox "当前文本框获得焦点"
End SubPrivate Sub Text1_LostFocus()
MsgBox "当前文本框失去焦点"
End Sub
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询