ComboBoxで一番上の空白を詰めるには？ (ID:114012)

名前

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

本文 >一番上の部分が空白なんですが、これを詰めることはできますか？ >ListIndexで取得すると-1ってなってて困ってます。 それは仕様です。ListIndex プロパティの設定値に関して ヘルプを読んで下さい。表示するリストが設定されていない時に 表示するものが無くなってしまいますので、その場合でも正常な 動作にさせるため -1 の空白があります。 リストを追加した後に ListIndex プロパティを設定して下さい。 >あとComboBoxにテキスト入力ができてしまうので、これも何とかしたいです。 からすさんのご意見をご参考ください。 [VB6.0] Private Sub Form_Load() With Me.Combo1 ' ↓実行時には設定できないのでデザイン画面で指定してください。 If .Style <> vbComboDropdownList Then 'ドロップダウン リスト ボックス MsgBox "デザイン画面でStyleを2に変更して下さい。" End If ' .AddItem "1項目" ' .AddItem "2項目" If .ListCount > 0 Then ' リストが設定されている時のみ有効 .ListIndex = 0 Else MsgBox "AddItemして下さい。" End If End With End Sub