コンボボックスがアイテムを表示していない、ドロップダウンリストが空白です

Question

コンボボックスドロップダウンリストから項目を取得しようとしました。コンボボックスには、チェックリストボックスでチェックされたアイテムのみが入力されています。これは私がこれまで行ってきたもので、ドロップダウンリストは空白です：

For i As Integer = 0 To checkListBox.Items.Count - 1 
     If checkListBox.GetItemCheckState(i) = CheckState.Checked Then 
      comboBox1.Items.Add(checkListBox.Items(i)) 
      comboBox1.DisplayMember = checkListBox.Items(i) 
     End If 
Next 

何か助けていただきありがとうございます！

Answer 1

checkListBoxとcomboBoxがあり、checkListBoxでユーザーが選択したすべてのアイテムを表示するコンボボックスにしたいと正しく理解していますか？それはあなたのコードを使って、私がやったことです。それは完全に機能しました。あるいは何か他のことをしようとしていますか？この場合の場合、ブレークポイントを入れてみましたかのループにヒットしましたか？

Answer 2

はItemCheckイベントを処理してみてください。

Public Class Form1 
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load 

    CheckedListBox1.Items.Add("Item 1") 
    CheckedListBox1.Items.Add("Item 2") 
    CheckedListBox1.Items.Add("Item 3") 

End Sub 


Private Sub CheckedListBox1_ItemCheck(sender As Object, e As ItemCheckEventArgs) Handles CheckedListBox1.ItemCheck 

    If e.NewValue = CheckState.Checked AndAlso Not ComboBox1.Items.Contains(CheckedListBox1.Items(e.Index)) Then 
     ComboBox1.Items.Add(CheckedListBox1.Items(e.Index)) 
    ElseIf e.NewValue = CheckState.Unchecked AndAlso ComboBox1.Items.Contains(CheckedListBox1.Items(e.Index)) Then 
     ComboBox1.Items.Remove(CheckedListBox1.Items(e.Index)) 
    End If 

End Sub 
End Class