проверка, является ли строка числовой, не работает в vb

Question

Я пытаюсь проверить, является ли строка числовой, но напрасно. Вот мой код:

If Val(fnumField.Text.Trim) > 0 Or fnumField.Text.Trim = "0" Or Val(phnField.Text.Trim) > 0 Or phnField.Text.Trim = "0" Or Val(ophnField.Text.Trim) > 0 Or _ 
     ophnField.Text.Trim = "0" Or Val(treeField.Text.Trim) > 0 Or treeField.Text.Trim = "0" Then 
    messageBox.Show("number") 
Else 
    messageBox.Show("not number") 
EndIf 

У меня есть проблема в том, что, когда я запускаю программу и вставить строку символов, как «ABCD» в одном из текстовых полей, как «fnumField», он по-прежнему выполняет код в " если ", а не в" else ". Что я не делаю правильно?

Answer 1

попробовать это:

If (Val(fnumField.Text.Trim) > 0 Or fnumField.Text.Trim = "0") And (Val(phnField.Text.Trim) > 0 Or phnField.Text.Trim = "0") And (Val(ophnField.Text.Trim) > 0 Or 
     ophnField.Text.Trim = "0") And (Val(treeField.Text.Trim) > 0 Or treeField.Text.Trim = "0") Then 
    messageBox.Show("number") 
Else 
    messageBox.Show("not number") 
EndIf