表紙へ

テキストボックス

８．フォーカスを移動させない

　

以下のどのサンプルを実行するにもＶＢ６が必要。

　

１．単純な例

　

Private Sub Text1_Validate(Cancel As Boolean)

    Cancel = True

End Sub

　

２．数値以外のものが入力された場合にフォーカスを移動させない例

Private Sub Text1_Validate(Cancel As Boolean)

    If Not IsNumeric(Text1.Text) Then

        Cancel = True

    End If

End Sub

メモ：わかりやすさを重視するためによく上のようなサンプルを書くが、私が自分用にプログラムするときはいつも次のようにしている。

Private Sub Text1_Validate(Cancel As Boolean)

    Cancel = Not IsNumeric(Text1.Text)

End Sub