Private Sub Text1_Change()
Dim S as string
S=Text1.text
If Len(S)>0 Then
If Val(S)<=0 Then Msgbox "请输入一个正整数"
End If
End Sub
textbox中的值发生变化会触动Change事件
Private Sub Text1_Change()
End Sub
TextBox Change事件:
TextBox的文字发生变化．
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024