#372
コンボボックスコントロールは、通常、F4キーもしくはAlt＋↓キーでドロップダウンさせることができます。ここでは、それらのキーだけではなく、↓キーだけでもドロップダウンさせるようにするプログラムを紹介します。
それには、コンボボックスの「キークリック時/KeyDown」イベントプロシージャに次のようなコードを記述するだけです。この例では"cbo顧客選択"という名前のコンボボックスを操作しています。
Private Sub cbo顧客選択_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyDown Then
'↓キーならコンボをドロップダウン
cbo顧客選択.Dropdown
End If
End Sub
また、PageDownキーでドロップダウンさせたい場合には、次のようにします。
If KeyCode = vbKeyPageDown Then
'PageDownキーならコンボをドロップダウン
cbo顧客選択.Dropdown
End If
KeyCodeの条件式を変えることによって、他のさまざまなキーでもこのアクションを起こすことができます。vbKeyDownやvbKeyPageDowといったキーの定数値については、オブジェクトブラウザで"KeyCode"で検索することによって調べることができます。
