#233
コンボボックスをドロップダウンさせると、デフォルトでは８行のリスト項目が表示されます。この行数は、プロパティシートの"リスト行数"プロパティ値を書き換えることによって、固定的に変更することができます。しかし、VBAを使えば、その行数を動的に増やしたり減らしたりすることもできます。
次のイベントプロシージャの例では、"cbo商品"コンボボックスをダブルクリックすることによって、デフォルトの８行を１５行に増やすことができます。また、再度ダブルクリックすれば、元の８行に戻すことができます。
Private Sub cbo商品_DblClick(Cancel As Integer)
'商品コンボボックスのダブルクリック時
With Me!cbo商品
If .ListRows = 8 Then
'リスト行数がデフォルトの8なら15に変更
.ListRows = 15
Else
'リスト行数が変更済みならデフォルトに戻す
.ListRows = 8
End If
'再度ドロップダウン
.Dropdown
End With
End Sub
'商品コンボボックスのダブルクリック時
With Me!cbo商品
If .ListRows = 8 Then
'リスト行数がデフォルトの8なら15に変更
.ListRows = 15
Else
'リスト行数が変更済みならデフォルトに戻す
.ListRows = 8
End If
'再度ドロップダウン
.Dropdown
End With
End Sub
| 初期状態 および再度ダブルクリック時 |
ダブルクリック時 |
 |
 |
