コンボボックスの表示行数を増やすには？ (ID:77764)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

リストボックスで代替させる方法として下記の方法
を気がつきましたが、コンボボックス自体の行数変更
をするには、ＡＰＩでないと駄目ですか？
Form に Command1、Combo1 および List1(Width
はCombo1と同じ、Heightは適宜、位置はCombo1の
直下に配置、VisibleプロパティーはFalse)を配置。

Option Explicit

Private Sub Combo1_GotFocus()
    'コンボボックスがClickされたらリストボックスを表示。
    List1.Visible = True
    'フォーカスをリストボックスに移すことにより、 _
        コンボボックスのDrop Down メニューを非表示。
    List1.SetFocus
End Sub

Private Sub Command1_Click()
    End
End Sub

Private Sub Form_Load()
    Dim lngAddItemCount As Long
    With Combo1
        For lngAddItemCount = 0 To (12 - 1)
        .AddItem (Format(CDate(lngAddItemCount + 1 & "/1"), "mmmm"))
        Next lngAddItemCount
        .ListIndex = 0
    End With
    'コマンドボタンの初期化。
    Command1.Caption = "終了"
    'コンボボックスと同内容をリストボックスに設定。
    With List1
        For lngAddItemCount = 0 To (12 - 1)
        .AddItem (Format(CDate(lngAddItemCount + 1 & "/1"), "mmmm"))
        Next
        .ListIndex = 0
    End With
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    'Formにフォーカスが移ったら、List1を非表示。
    List1.Visible = False
End Sub

Private Sub List1_Click()
    With List1
        'リストボックスの選択を、コンボボックスに反映。
        Combo1.ListIndex = .ListIndex
        '選択項目を最上端に設定。
        .TopIndex = .ListIndex
        'リストボックスの非表示。
        .Visible = False
    End With
End Sub

Private Sub List1_LostFocus()
    'List1がフォーカスを失ったら、List1を非表示。
    List1.Visible = False
End Sub

←解決時は質問者本人がここをチェックしてください。

戻る