Question

VB如何让TEXT只保留数字， 其他字符全部删除

Answer 1

'窗体上建立一个文本败颂框控裤冲件text1，下面胡枯歼代码第二行abc123更改成你想要的内容。
Private Sub Form_Load()
Text1.Text = "abc123"
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If IsNumeric(s) Then t = t & s
Next i
Text1.Text = t
End Sub

Answer 2

Private Sub Command1_Click()
For i = 1 To Len(Text1.Text)
s = Mid(Text1.Text, i, 1)
If IsNumeric(s) Then t = t & s
Next i
Text1.Text = t
End Sub