VB6 リファレンス お品書き へ戻ります
Visual Basic6 リファレンス


VB6 グリット イベント
MSHFlexGridのイベントについてのリファレンス

階層フレキシブル グリッド(MSHFlexGrid) コントロール
テーブル データの表示および操作を行なえるコントロールです。

[コンポーネント] Microsoft Hierarchical FlexGrid Control 6.0 (SP3) (OLEDB) (MSHFLXGRD.OCX)

お品書き
●Clickマウスボタンをクリックした
●DblClickマウスボタンをダブルクリックした
●MouseMoveマウスを移動した
●MouseDownマウスボタンを押した
●MouseUpマウスボタンを離した
●KeyPress文字キーを押した
●KeyDownキーを押した
●KeyUpキーを離した
●LeaveCellセルが別のセルに変更される直前
●EnterCellセルが別のセルに変更された
●RowColChangeセルが別のセルに変更された
●SelChangeセル範囲が別のセルまたはセル範囲に変更された
●Validateフォーカスを移動する直前
●GotFocusフォーカスが設定された
●LostFocusフォーカスを失った
●Scrollスクロールした
●Collapseグリッド内の行を折りたたんだ
●CompareSortプロパティが Custom Sort (9)に設定された
●DragDropコントロールをオブジェクト上までドラッグした
●DragOverドラッグ アンド ドロップ操作の進行中
●Expandグリッド内の行を拡張した
●
▲TOP


●Click、DblClick イベント
【機能】マウスボタンをクリック／ダブルクリックしたときに発生します。
【書式例】Private Sub MSHFlexGrid1_Click()
Private Sub MSHFlexGrid1_DblClick()
【イベントの発生順→】
クリックMouseDownMouseUpClick  
ダブルクリックMouseDownMouseUpClickDblClickMouseUp

※ Click イベントに対してコードが記述されている場合、DblClick イベントが発生しなくなります。
※ マウスの左ボタン、右ボタン、中央ボタンを区別するときは、MouseDownまたは、MouseUp イベントを使います。
▲TOP


●EnterCell、RowColChange イベント
【機能】アクティブなセルが別のセルに変更されたときに発生します。
【書式例】Private Sub MSHFlexGrid1_EnterCell()
Private Sub MSHFlexGrid1_RowColChange()
【イベントの発生順→】
マウスでセル移動(クリック)LeaveCellEnterCellRowColChangeMouseDownSelChangeMouseUpClick
移動キーでセル移動LeaveCellEnterCellRowColChangeSelChangeKeyDown  

※ 固定型の行をクリックすると、その行の最初の非固定型の列でこのイベントが発生します。
▲TOP


●GotFocus イベント
【機能】フォーカスが設定されたときに発生します。
【書式例】Private Sub MSHFlexGrid1_GotFocus()
【イベントの発生順→】
クリックMouseDownGotFocusMouseUpClick  
ダブルクリックMouseDownGotFocusMouseUpClickDblClickMouseUp

※ ほかのコントロールの有効/無効または表示/非表示を切り替えるという処理はここで記述します。
▲TOP


●KeyDown、KeyUp イベント
【機能】キーを押したとき／離したときに発生します。
【書式例】Private Sub MSHFlexGrid1_KeyDown(KeyCode As Integer, Shift As Integer)
Private Sub MSHFlexGrid1_KeyUp(KeyCode As Integer, Shift As Integer)

KeyCodeF1キーのときは vbKeyF1、Homeキーのときは vbKeyHome など、キーコードを示す定数。
ShiftShift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
ShiftvbShiftMask1
CtrlvbCtrlMask2
AltvbAltMask4
【例】
If ((Shift And vbShiftMask) > 0) Then
Debug.Print "シフトキーが押されています。"
End If
【イベントの発生順→】
文字キーを叩いたKeyDownKeyPressKeyUp
特殊キー/編集キーを叩いたKeyDownKeyUp 
移動キーを叩いたKeyDown  

※ Tabキーはキーイベントが発生しません。
※ KeyDown、KeyUpイベントでは、大文字と小文字('A'と'a')は同じキーコード(文字)として認識されます。
▲TOP


●KeyPress イベント
【機能】文字キーを押したときに発生します。
【書式例】Private Sub MSHFlexGrid1_KeyPress(KeyAscii As Integer)
【例】If (KeyAscii = 13) Then Combo2.SetFocus '改行ならフォーカスを次へ移動
【イベントの発生順→】
文字キーを叩いたKeyDownKeyPressKeyUp

※ KeyPressイベントでは、大文字と小文字('A'と'a')は異なるキーコード(文字)として認識されます。
※ ファンクションキー、編集キー(Ins,Del,BS)、移動キー、およびこれらのキーと補助キーとの組み合わせなど、KeyPressイベントでは認識できないキー操作を処理する場合は、KeyDown、KeyUpイベントを使用します。
▲TOP


●LeaveCell イベント
【機能】アクティブなセルが別のセルに変更される直前に発生します。
【書式例】Private Sub MSHFlexGrid1_LeaveCell()
【イベントの発生順→】
マウスでセル移動(クリック)LeaveCellEnterCellRowColChangeMouseDownSelChangeMouseUpClick
移動キーでセル移動LeaveCellEnterCellRowColChangeSelChangeKeyDown  

※ フォーカスが別のコントロールに移ったときには、このイベントは発生しません。
▲TOP


●LostFocus イベント
【機能】フォーカスを失ったときに発生します。
【書式例】Private Sub MSHFlexGrid1_LostFocus()
【イベントの発生順→】
フォーカスを失ったValidateLostFocus

※ GotFocusイベントで設定した値を元に戻す場合はここで記述します。
※ フォーカスを失いたくない場合は、Validate イベントで制御します。
▲TOP


●MouseDown、MouseUp イベント
【機能】マウスボタンを押したとき／離したときに発生します。
【書式例】Private Sub MSHFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
Private Sub MSHFlexGrid1_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)

Button押されたボタンに対応するビットのいずれか１つがオンになります。
左ボタンvbLeftButton1
右ボタンvbRightButton2
中央ボタンvbMiddleButton4
ShiftShift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
ShiftvbShiftMask1
CtrlvbCtrlMask2
AltvbAltMask4
x、ｙマウス ポインタの現在位置を表す数値です。(関連：ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop)
【イベントの発生順→】
クリックMouseDownMouseUpClick  
ダブルクリックMouseDownMouseUpClickDblClickMouseUp
▲TOP


●MouseMove イベント
【機能】グリッド上でマウスを移動したときに発生します。　※実際はマウスポインタの下をグリッドが移動したとき
【書式例】Private Sub MSHFlexGrid1_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)

Button押されたボタンに対応するビットのいずれか１つがオンになります。
左ボタンvbLeftButton1
右ボタンvbRightButton2
中央ボタンvbMiddleButton4
ShiftShift、Ctrl、Alt の押されたキーに対応するビットがオンになります。
ShiftvbShiftMask1
CtrlvbCtrlMask2
AltvbAltMask4
x、ｙマウス ポインタの現在位置を表す数値です。(関連：ScaleHeight、ScaleWidth、ScaleLeft、ScaleTop)
【例】
If (Button And vbLeftButton) > 0 Then
MsgBox "左ボタンが押されています。"
End If
※ フォーカスの状態に関係なく、マウスポインタの下をグリッドが移動しているとイベントが発生します。
※ MouseMove内でグリッドを移動させるとイベントの連鎖が発生して、エラーの原因になります。
▲TOP


●Scroll イベント
【機能】スクロールしたときに発生します。
【書式例】Private Sub MSHFlexGrid1_Scroll()
【イベントの発生順→】
マウスでセル移動(クリック)LeaveCellEnterCellRowColChangeMouseDownScrollSelChangeMouseUpClick
移動キーでセル移動LeaveCellScrollEnterCellRowColChangeSelChangeKeyDown  

※ ScrollTrack プロパティが真 (True) に設定されている場合、ユーザーがマウス ポインタをドラッグしているかスクロールを実行しているときに、このイベントが発生します。
※ ScrollTrack プロパティが偽 (False) に設定されている場合、ドラッグが完了した時点でこのイベントが発生します。
▲TOP


●SelChange イベント
【機能】選択したセル範囲が別のセルまたはセル範囲に変更されたときに発生します。
【書式例】Private Sub MSHFlexGrid1_SelChange()
【イベントの発生順→】
マウスでセル範囲指定MouseDownSelChangeMouseUpClick   
マウスでセル移動(クリック)LeaveCellEnterCellRowColChangeMouseDownSelChangeMouseUpClick

※ プログラムから Row、Col、RowSel、または ColSelプロパティを使用して選択領域を変更することにより、このイベントを発生させることができます。
▲TOP


●Validate イベント
【機能】フォーカスが移動する前に発生します。
【書式例】Private Sub MSHFlexGrid1_Validate(Cancel As Boolean)

Cancelコントロールがフォーカスを失うかどうかを決定する値です。真 (True) に設定すると、コントロールはフォーカスを維持します。
【イベントの発生順→】
フォーカスの移動ValidateLostFocus
【例】
If (Flg = 1) Then
Cancel = True
End If
※ フォーカスを受け取るコントロールが CausesValidation プロパティを真 (True) に設定している場合に限り、Validate イベントが発生します。
▲TOP