アイテムが既にリストボックス1に存在するかどうかを確認します。

Question

フォーム1には、リストボックスが2つあります：listbox1、listbox2; loadbuttonとsavebutton

このコードはlistbox1.selecteditemをtxtファイルに書き込み、loadbuttonは情報をロードします。

しかしlistbox2で、私はその項目が既にこの商品がすでに存在しているMSG」（listbox1をから選択した項目を記述しない場合は、そのアイテムが既にlistbox2に存在する場合、それを保存しない、 listbox2に存在する場合loadbuttonを確認したいですlistbox2" ）

これは、あなたが以下にコーディング

Dim wri As New IO.StreamWriter("e:\test.txt", True) 
If ListBox2.ToString.Contains(ListBox1.Items.Item) Then ' or ListBox1.SelectedItem ? ' not work 
    MsgBox("this item is already in listbox2") 
Else 
    wri.WriteLine(ListBox1.SelectedItem, True) 
End If 
wri.Close() 

Answer 1

変更機能していない：あなたはまた、トンをしようとしている

If ListBox2.Items.Contains(ListBox1.Items.Item) Then ' or ListBox1.SelectedItem ? ' not work 

    MsgBox("this item is already in listbox2") 
Else 

    wri.WriteLine(ListBox1.SelectedItem, True) 

End If 

wri.Close()