●GotFocus イベント
【機能】フォーカスが設定されたときに発生します。
【書式例】Private Sub Text1_GotFocus()
【イベントの発生順→】
| |
| クリック | MouseDown | GotFocus | MouseUp | Click |
|
※ ほかのコントロールの有効/無効または表示/非表示を切り替えるという処理はここで記述します。
●KeyDown、KeyUp イベント
【機能】キーを押したとき／離したときに発生します。
【書式例】Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
【書式例】Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
| |
KeyCode : F1キーのときは vbKeyF1、Homeキーのときは vbKeyHome など、キーコードを示す定数。
Shift : Shift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
| Shift | vbShiftMask | 1 |
| Ctrl | vbCtrlMask | 2 |
| Alt | vbAltMask | 4 |
|
【 例 】
If ((Shift And vbShiftMask) > 0) Then
Debug.Print "シフトキーが押されています。"
End If
【イベントの発生順→】
| |
| テキストの編集 | KeyDown | KeyPress | Change | KeyUp |
| BSキーで修正 | KeyDown | KeyPress | Change | KeyUp |
| DELキーで修正 | KeyDown | Change | KeyUp | |
| 移動キーを叩いた | KeyDown | KeyUp | | |
|
| ※ | Tabキーは、キーイベントが発生しません。 |
| ※ | KeyDown、KeyUpイベントでは、大文字と小文字('A'と'a')は同じキーコード(文字)として認識されます。 |
|
●KeyPress イベント
【機能】文字キーを押したときに発生します。
【書式例】Private Sub Text1_KeyPress(KeyAscii As Integer)
【 例 】
If (KeyAscii = 13) Then Combo2.SetFocus '改行ならフォーカスを次へ移動
【イベントの発生順→】
| |
| 改行キーを叩いた | KeyDown | KeyPress | KeyUp | |
| テキストの編集 | KeyDown | KeyPress | Change | KeyUp |
|
| ※ | KeyPressイベントでは、大文字と小文字('A'と'a')は異なるキーコード(文字)として認識されます。 |
| ※ | ファンクションキー、編集キー(Ins,Del,BS)、移動キー、およびこれらのキーと補助キーとの組み合わせなど、KeyPressイベントでは認識できないキー操作を処理する場合は、KeyDown、KeyUpイベントを使用します。 |
●LostFocus イベント
【機能】フォーカスを失ったときに発生します。
【書式例】Private Sub Text1_LostFocus()
【イベントの発生順→】
| |
| フォーカスを失った | Validate | LostFocus |
|
※ GotFocusイベントで設定した値を元に戻す場合はここで記述します。
※ フォーカスを失いたくない場合は、Validate イベントで制御します。
●Validate イベント
【機能】フォーカスが移動する前に発生します。
【書式例】Private Sub Text1_Validate(Cancel As Boolean)
| |
| Cancel | コントロールがフォーカスを失うかどうかを決定する値です。真 (True) に設定すると、コントロールはフォーカスを維持します。 |
|
【イベントの発生順→】
| |
| フォーカスの移動 | Validate | LostFocus |
|
【 例 】
If (Flg = 1) Then
Cancel = True
End If
※ フォーカスを受け取るコントロールが CausesValidation プロパティを真 (True) に設定している場合に限り、Validate イベントが発生します。
●MouseDown、MouseUp イベント
【機能】マウスボタンを押したとき／離したときに発生します。
【書式例】Private Sub Text1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
【書式例】Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
| |
Button : 押されたボタンに対応するビットのいずれか１つがオンになります。
| 左ボタン | vbLeftButton | 1 |
| 右ボタン | vbRightButton | 2 |
| 中央ボタン | vbMiddleButton | 4 |
Shift : Shift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
| Shift | vbShiftMask | 1 |
| Ctrl | vbCtrlMask | 2 |
| Alt | vbAltMask | 4 |
X、Y : マウス ポインタの現在位置を表す数値です。(関連：ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop)
|
【イベントの発生順→】
| |
| クリック | MouseDown | MouseUp | Click | | |
| ダブルクリック | MouseDown | MouseUp | Click | DblClick | MouseUp |
|
|
●MouseMove イベント
【機能】グリッド上でマウスを移動したときに発生します。 ※実際はマウスポインタの下をグリッドが移動したとき
【書式例】Private Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
| |
Button : 押されたボタンに対応するビットがオンになります。
| 左ボタン | vbLeftButton | 1 |
| 右ボタン | vbRightButton | 2 |
| 中央ボタン | vbMiddleButton | 4 |
Shift : Shift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
| Shift | vbShiftMask | 1 |
| Ctrl | vbCtrlMask | 2 |
| Alt | vbAltMask | 4 |
X、Y : マウス ポインタの現在位置を表す数値です。(関連：ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop)
|
【 例 】
If (Button And vbLeftButton) > 0 Then
MsgBox "左ボタンが押されています。"
End If
※ フォーカスの状態に関係なく、マウスポインタの下をグリッドが移動しているとイベントが発生します。
※ MouseMove内でグリッドを移動させるとイベントの連鎖が発生して、エラーの原因になります。
|
|
|
|
|
