Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave
If String.IsNullOrEmpty(ComboBox1.SelectedItem) Then
MessageBox.Show("ทำมายไม่เลือกซักอันละคร้าบบบบบบ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Dim r As String = ""
Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave
If String.IsNullOrEmpty(r) Then
MessageBox.Show("ทำมายไม่เลือกซักอันละคร้าบบบบบบ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("คุณได้เลือกแล้วคร้าบบบบบบ" & vbCrLf & "ค่าที่คุณเลือกคือ:" & r, "ยืนยัน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub
Private Sub ComboBox1_Enter(sender As Object, e As EventArgs) Handles ComboBox1.Enter
r = ""
End Sub
Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.SelectedIndexChanged
r = IIf(String.IsNullOrEmpty(ComboBox1.SelectedItem), "", ComboBox1.SelectedItem)
End Sub
Private Sub ComboBox1_Leave(sender As Object, e As EventArgs) Handles ComboBox1.Leave
If String.IsNullOrEmpty(ComboBox1.Text) Then
MessageBox.Show("ทำมายไม่เลือกซักอันละคร้าบบบบบบ", "ข้อผิดพลาด", MessageBoxButtons.OK, MessageBoxIcon.Warning)
Else
MessageBox.Show("คุณได้เลือกแล้วคร้าบบบบบบ" & vbCrLf & "ค่าที่คุณเลือกคือ:" & ComboBox1.Text, "ยืนยัน", MessageBoxButtons.OK, MessageBoxIcon.Warning)
End If
End Sub