例026：在事件过程中检查输入的数据是否是数值

1. 建立一个EXE工程，建立如图24的窗体(显示的是运行时状态)。

                   图24

1. 输入代码：

Sub Form1_Command1_BN_Clicked(hWndForm As hWnd, hWndControl As hWnd)

   check()'当检查按钮被按下时触发

End Sub

Sub Form1_txtInput_EN_KillFocus(hWndForm As hWnd, hWndControl As hWnd)

    check()'当离开文本框，失去焦点时触发

End Sub

Sub check()'通用过程

    If Val(txtInput.Text) <> 0 Or txtInput.Text = "0" Then

      MsgBox("输入是数值")

   Else

      MsgBox("输入不是数值")

   End If

End Sub