#233 コンボボックスの行数をダブルクリックで増やす フォーム、VBA

コンボボックスをドロップダウンさせると、デフォルトでは8行のリスト項目が表示されます。この行数は、プロパティシートの"リスト行数"プロパティ値を書き換えることによって、固定的に変更することができます。しかし、VBAを使えば、その行数を動的に増やしたり減らしたりすることもできます。

次のイベントプロシージャの例では、"cbo商品"コンボボックスをダブルクリックすることによって、デフォルトの8行を15行に増やすことができます。また、再度ダブルクリックすれば、元の8行に戻すことができます。
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


  初期状態
    および再度ダブルクリック時
  ダブルクリック時
初期状態および再度ダブルクリック時 ダブルクリック時
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします
 

Copyright © T'sWare All rights reserved