[已解决]运行数据要“1”，用TextBox误输入“A”或“”，运行程序就会出现错误，如何解决？

dxzgl

如，运行数据要“1”这样的整型数据，用TextBox误输入“A”或“”，运行程序就会出现错误，如何解决？

最佳答案

月排行榜 / 总排行榜

那么的帅

2012-3-1 11:56

加个判断

1. 
   
2.     '判断文本框只能输入数字
   
3.     On Error Resume Next
   
4.     x = Right(TextBox1.Text, 1)
   
5.     tt = TextBox1.Text
   
6.     If Not IsNumeric(tt) Then
   
7.         MsgBox "文本框中只能录入数字!"
   
8.         TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
   
9.     End If
   
10.    
    
11.     '文本框文本型数据转换数值型
    
12.     s = Val(TextBox1.Value)
    
13. 
    

复制代码

跳转到最佳答案楼层

cjainwei

1. If IsNumeric(Textbox.Value) Then
   
2. 
   
3. End If
   

复制代码

liuguansky

可以限制TEXTBOX的输入数据类型。

那么的帅

加个判断

1. 
   
2.     '判断文本框只能输入数字
   
3.     On Error Resume Next
   
4.     x = Right(TextBox1.Text, 1)
   
5.     tt = TextBox1.Text
   
6.     If Not IsNumeric(tt) Then
   
7.         MsgBox "文本框中只能录入数字!"
   
8.         TextBox1.Text = Left(TextBox1.Text, Len(TextBox1.Text) - 1)
   
9.     End If
   
10.    
    
11.     '文本框文本型数据转换数值型
    
12.     s = Val(TextBox1.Value)
    
13. 
    

复制代码

dxzgl

那么的帅 发表于 2012-3-1 11:56
加个判断

非常好，谢谢。我能在for语句用到TextBox中的数据，数据不符合要求，就返回特定的数据。

ztccsj

楼主说的不清楚，那么的帅都能中奖，佩服