Question

vb程序设计：编写一个窗体程序,窗体中有一个文本框,要求在文本框中只能输入整数

急用，求vb大神！

Answer 1

这段代码你参考下吧 这是只能输入数 连小数点也不输入哟 经过验证是没有问题的 在代码里加入以下一段 其中TxtScore改为你的text控件的名字
Private Sub TxtScore_Change() 'text框的Change事件里

Dim Str As String
Str = TxtScore.Text
For i = Len(TxtScore.Text) To 1 Step -1
If Asc(Mid(TxtScore.Text, i, 1)) < Asc("0") Or Asc(Mid(TxtScore.Text, i, 1)) > Asc("9") Or Asc(Mid(TxtScore.Text, i, 1)) = Asc(".") Then
Str = Replace(Str, Mid(TxtScore.Text, i, 1), "")
End If
Next
TxtScore.Text = Str
TxtScore.SelStart = Len(Str)
End Sub