Dim I As Integer
Dim MyStr As String = ""
For I = 0 To Me.ComboBox1.Items.Count - 1
MyStr = MyStr & vbCrLf & Me.ComboBox1.Items(I).ToString
Next
MsgBox(MyStr)
这样OK了
Dim sName As String = ComboBox2.Text
For i As Integer = 0 To ComboBox1.Items.Count - 1
If ComboBox1.Items(i).ToString.Equals(sName) Then
MsgBox(sName & "已经存在")
Exit Sub
End If
Next
ComboBox1.Items.Add(sName)