Question

在vb中，把一个文本框中的内容添加到时另一个文本框时，如何限定只添加数字？

点击按钮command1把一个文本框text1中的内容添加到时另一个文本框text2中时，如何限定只添加文本框text1中的数字（也就是说：在点击按钮command1向文本框text2中添加文本框text1中的内容时，自动不添加text1中除数字以外的其他字符，比如汉字、字母）？

Answer 1

我可以用C#的思想给你说
判断他们的Char值 在48和57之间的就是数字 相关代码如下
char[] ch = new char[str.Length];
ch = str.ToCharArray();
for (int i = 0; i < ch.Length; i++)
{
if (ch[i] < 48 || ch[i] > 57)
return false;
}

Answer 2

可以直接用FOR循环检测每个字符
ASC码在48-57的都在text2中显示就好了

Answer 3

Private Sub Command1_Click()
dim i as long ,s as integer
For i = 1 To Len(Text1)
l = Mid(Text1.Text, i, 1)
If Chr(48) <= l And l <= Chr(57) Then s = s & l
Next i
Text2.Text = s
End Sub