06/11/15 13:46:21
>>264
こんなものに知恵なんか使うか、理屈ばっかりで頭は良くないな。
Dim i As Integer = 0
Do
If ListBox1.Items(i).ToString.Equals(TextBox1.Text) Then
ListBox1.Items.RemoveAt(i)
Else
i += 1
End If
Loop While (i < ListBox1.Items.Count)
06/11/15 13:46:21
>>264
こんなものに知恵なんか使うか、理屈ばっかりで頭は良くないな。
Dim i As Integer = 0
Do
If ListBox1.Items(i).ToString.Equals(TextBox1.Text) Then
ListBox1.Items.RemoveAt(i)
Else
i += 1
End If
Loop While (i < ListBox1.Items.Count)