コンボボックスの▼のサイズ変更

さくら 2004-10-27 00:51:05 No: 86257

コンボボックスの右側にある
▼のサイズは変更できなませんか？
変更可能なコンポーネントはありませんか？

さくら 2004-10-27 02:07:39 No: 86258

追加質問です。
縦方向はフォント変更で大きくなりますが、
横方向に大きくすることはできませんか？

ひろ 2004-10-30 03:45:07 No: 86259

そのようなコンポーネントは知りませんが、以下の方法でどうでしょうか？

・コンボボックスの右側のボタンの所に別のボタンを重ねる
・ボタンのクリックイベントでフォーカスをコンボボックスに移動して {F4}キーを送る

VB6でのサンプルです。
適当な場所にコンボボックス(Combo1)とコマンドボタン（Command1)を置いて、
コンボボックスのフォントサイズをいろいろ変えて試して下さい。

Private Sub Form_Load()
    '▼をボタンに表示
    Command1.Font.Name = "Marlett"
    Command1.Caption = "u"
    '▼の大きさをコンボボックスのフォントサイズに連動させる
    Command1.Font.Size = Combo1.Font.Size
    'コンボボックスのボタンの上に重ねる
    Command1.Height = Combo1.Height - 60
    Command1.Width = Command1.Height + 60
    Command1.Left = Combo1.Left + Combo1.Width - Combo1.Height
    Command1.Top = Combo1.Top + 30
    'コンボボックスより手前に表示
    Command1.ZOrder
End Sub

Private Sub Command1_Click()
    'フォーカスをコンボボックスの方に移動
    Combo1.SetFocus
    'ドロップダウンを出す
    SendKeys "{F4}"
End Sub