文字列が数字であるかどうかを調べるのが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 

私が持っている問題は、私はプログラムを実行し、「fnumField」のようなテキストフィールドの一つに「ABCD」のような文字列を挿入すると、それはまだ内のコードを実行していることです」 if "と" 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