コンボボックスの▼のサイズ変更 (ID:86259)

名前

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

本文 そのようなコンポーネントは知りませんが、以下の方法でどうでしょうか？ ・コンボボックスの右側のボタンの所に別のボタンを重ねる ・ボタンのクリックイベントでフォーカスをコンボボックスに移動して {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