コンボボックスに項目を追加、削除

解決

---

環境：VB6.0 Win2000

はじめまして。
さっそく質問させていただきます。

Private Sub Form_Load()
    With Combo1
        .AddItem "001"
        .AddItem "002"
    End With
End Sub

すでにCombo1には項目が入っています。
このCombo1は入力が可能になっています。

ボタンが押されたときにCombo1に入力されたものが
リストの中に反映したいのですが
どのようにしたらよいでしょうか？

あとCombo1で選択されたものを
ボタンを押したときに削除するにはどうしたらよいでしょうか？

編集 削除

---

> ボタンが押されたときにCombo1に入力されたものが
> リストの中に反映したいのですが
> どのようにしたらよいでしょうか？

入力された文字列はTextプロパティに入っています。
AddItemメソッドで追加してください。

> あとCombo1で選択されたものを
> ボタンを押したときに削除するにはどうしたらよいでしょうか？

選択されている時はListIndexが0以上の値になっています。
RemoveItemメソッドでListIndexを指定して削除できます。

編集 削除

---

レスありごとうございます。

> 入力された文字列はTextプロパティに入っています。
> AddItemメソッドで追加してください。

Combo1.AddItem (Combo1.Text)
このように書いたらできました。
ありがとうございます。


> 選択されている時はListIndexが0以上の値になっています。
> RemoveItemメソッドでListIndexを指定して削除できます。

削除のほうはうまくいきません。
If Combo1.ListIndex > 0 Then
    Combo1.RemoveItem i
End If

もう少し詳しく教えていただけませんか？

編集 削除

---

> If Combo1.ListIndex > 0 Then
>     Combo1.RemoveItem i
> End If
この変数 i には、どのような値を代入してありますか?

編集 削除

---

> この変数 i には、どのような値を代入してありますか?
やりたいとこは
Combo1の選択されているアイテムです。

編集 削除

---

iにCombo1.ListIndexを入れるか、
Combo1.RemoveItem Combo1.ListIndex
としてください。

それから、選択されている場合はListIndexが"0以上"となるため、
>If Combo1.ListIndex > 0 Then
ではなく
If Combo1.ListIndex > -1 then
とした方がよいかと思います。

編集 削除

---

レスありがとうございます。
できました。

編集 削除

---

名前

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

本文

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