0

如何多重验证文本框？我只希望用户输入整数，但整数不应该是 0 或更少，我该怎么做？这就是我所做的：

If Val(txtCopies.Text) <= 0 Then
    ErrorProvider1.SetError(txtCopies, "Number should be bigger than 0 ")  

    If IsNumeric(txtCopies.Text) = False Then
      ErrorProvider1.SetError(txtCopies, "Number only")
    Else
      blabla
    End If
End If
4

4 回答 4

1 
If IsNumeric(txtCopies.Text) = True AND CINT(txtCopies.Text) >= 0 Then

  'Validation Passed
Else
  ErrorProvider1.SetError(txtCopies, "Number should be bigger than 0 ")  

End If

你去吧，否则请解释得更好

你也可以

If IsNumeric(txtCopies.Text) = True AND CINT(txtCopies.Text) >= 0 Then

  'Validation Passed
Else
     if not(IsNumeric(txtCopies.Text) = True) then
       ErrorProvider1.SetError(txtCopies, "Numbers Only")
     else
       ErrorProvider1.SetError(txtCopies, "Number should be bigger than 0 ")  
    end if  
End If
于 2013-07-08T14:56:21.297 回答
0

以你的风格..

If Not IsNumeric(txtCopies.Text) And Val(txtCopies.Text) <= 0 Then
  ErrorProvider1.SetError(txtCopies, "Number only")
Else
  If Val(txtCopies.Text) <= 0 Then
    ErrorProvider1.SetError(txtCopies, "Number should be bigger than 0 ") 
  Else
    'Blabla 
  End If
End If
于 2013-07-08T13:06:05.443 回答
0 
Dim intValue As Integer

If Not Integer.TryParse(TxtBox.Text, intValue) OrElse intValue < 0 Then


Else


End If
于 2013-07-08T11:59:37.563 回答
0

自从我完成 VB 以来已经有很长时间了，但是你去吧：

它必须能够将文本框中的任何内容转换为整数。为此，它检查字符串是否为数字，如果是，则 num 变量取其值（因此可以检查）。如果此值大于 0，则表示它无效。

它需要是一个嵌套的 If 语句才能发生这种情况。

    Sub OnClick()
        Dim str As String
        Dim num As Integer

        str = TextBox1.Text
        If IsNumeric(str) Then
            num = str
            If num <= 0 Then
                TextBox1.Text = "Sorry, not valid"
            End If
        Else
            TextBox1.Text = "Sorry, not a number"
        End If
    End Sub
于 2013-07-08T12:21:48.353 回答