サンプル投稿用掲示板 VB2005 〜 用トップページ VB6.0 用 トップページ
- 日時： 2009/12/27 15:31
- 名前： 花ちゃん
- ***********************************************************************************
* カテゴリー：[コンボボックス][イベント][キー操作] *
* キーワード：タブキー,ComboBox,,,, *
***********************************************************************************
元質問者の質問内容
--------------------------------------------------------
コンボボックス上でTABキーが押された場合にTABキーが押された事を認識し任意の場所にフォーカスを移動したいのですが、KeyDownイベントだとTABキーイベントは取得できないとの事で上記処理を実現できる方法がありましたら教えて下さい。
--------------------------------------------------------
------------------------------------------------------------------------------
No.2006 Re：TABキー 投稿者：ゆう(U) [2001/04/06(金)16：25分]
------------------------------------------------------------------------------
サンプル）
Private myTabStop() As Boolean
Private Sub Combo1_GotFocus()
On Error Resume Next
Dim i As Long
With Me
ReDim myTabStop(0 To .Controls.Count - 1)
For i = 0 To .Controls.Count - 1
myTabStop(i) = .Controls(i).TabStop
If myTabStop(i) Then
.Controls(i).TabStop = False
End If
Next
End With
End Sub
Private Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode, "KeyDown"
End Sub
Private Sub Combo1_KeyPress(KeyAscii As Integer)
Debug.Print KeyAscii, "KeyPress"
End Sub
Private Sub Combo1_KeyUp(KeyCode As Integer, Shift As Integer)
Debug.Print KeyCode, "KeyUp"
End Sub
Private Sub Combo1_LostFocus()
On Error Resume Next
Dim i As Long
With Me
For i = 0 To .Controls.Count - 1
If myTabStop(i) Then
.Controls(i).TabStop = True
End If
Next
End With
End Sub
 |
