VBレスキュー(花ちゃん) - VBレスキュー(花ちゃん)の投稿サンプル用掲示板

　　　　　サンプル投稿用掲示板　　 VB2005 ～用トップページ　　 VB6.0 用トップページ

コンボボックス上でのTABキーイベント取得(VB6.0) ( No.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