在vb中,把一个文本框中的内容添加到时另一个文本框时,如何限定只添加数字?
点击按钮command1把一个文本框text1中的内容添加到时另一个文本框text2中时,如何限定只添加文本框text1中的数字(也就是说:在点击按钮command1向文...
点击按钮command1把一个文本框text1中的内容添加到时另一个文本框text2中时,如何限定只添加文本框text1中的数字(也就是说:在点击按钮command1向文本框text2中添加文本框text1中的内容时,自动不添加text1中除数字以外的其他字符,比如汉字、字母)?
展开
3个回答
展开全部
我可以用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;
}
判断他们的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;
}
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
可以直接用FOR循环检测每个字符
ASC码在48-57的都在text2中显示就好了
ASC码在48-57的都在text2中显示就好了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
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
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
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询