[求助]如何在text控件中只输入数字?
在窗体上放置一个文本框和一个按钮,如何在文本框中只输入数字,输入其它字符时文本内容不做变化,
按下按钮将文本框的内容转化为数值赋给一个变量,改变文本框内容,改变变量值。
还有,在其它窗体中调用上述变量,该注意什么,我怎么调用都不成功。
谢谢大虾们了!!!
Dim TXT As String
Private Sub Form_Load()
TXT = Text1
End Sub
Private Sub Text1_Keyup(KeyCode As Integer, Shift As Integer)
If Text1 <> "" Then
Dim Str As String
Str = Right(Text1.Text, 1)
If Not (StrComp(Str, "0") <> -1 And StrComp("9", Str) <> -1) Then '输入的字符在1-9之外
Text1.Text = ""
Clipboard.SetText TXT
Text1.SelText = Clipboard.GetText()
End If
End If
TXT = Text1
End Sub