Проверьте, является ли ввод целым в текстовом поле в VB2010

Question

Если пользователь вводит что-то кроме целого числа, программа не будет работать, но выдаст окно с сообщением об ошибке.

Вот что у меня сейчас, и оно не работает:

   Sub Validation0()
            If IsNumeric(curBat) Then
                ' Here, it still could be an integer or a floating point number
                If CLng(curBat) = curBat Then

                Else
                    MessageBox.Show("Please enter a number greater than 0.", "Error",
 MessageBoxButtons.OK, MessageBoxIcon.Exclamation, MessageBoxDefaultButton.Button1)
                End If
            End If

        End Sub

Answer 1

Попробуйте диверсифицировать свой код

1) определить, является ли строка целым числом

2), а затем определить, является ли она больше 0

  Sub Validation0()
        If IsNumeric(curBat) Then
            ' Here, it still could be an integer or a floating point number          
            dim curBat2 as integer = Convert.ToInt32(curBat)
            If curBat2 >  0 Then

            Else
                MessageBox.Show("Please enter a number greater than 0.", "Error",
                MessageBoxButtons.OK, MessageBoxIcon.Exclamation, 
                MessageBoxDefaultButton.Button1)
            End If
        End If

    End Sub

Если вы хотитеокруглите целочисленное значение, затем используйте

     Math.Roundoff(curBat2)