ช่อง Serial No (textbox2.text) รับค่าจาก Add Serial (textbox1.text) จากตัวอย่างให้ขึ้นแจ้งเตือน ไม่สามารถพิมพ์ได้ เนื่องจากมีข้อมูลที่ซ้ำกันอยู่แล้ว ต้องเขียนโค๊ดเช็คค่ายังไงครับ
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
If ListBox2.Items.Cast(Of [String])().Where(Function(x) x.ToString() = TextBox4.Text).Count() = 0 Then
ListBox2.Items.Add(TextBox4.Text)
TextBox4.ResetText()
Else
MessageBox.Show("ซ้ำ")
End If
End Sub