Public Class Form1
Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
Me.CenterToScreen()
ComboBox1.Items.Add("โต๊ะที่1")
ComboBox1.Items.Add("โต๊ะที่2")
ComboBox1.Items.Add("โต๊ะที่3")
ComboBox1.Items.Add("โต๊ะที่4")
ComboBox1.Items.Add("โต๊ะที่5")
ComboBox1.Items.Add("โต๊ะที่6")
ComboBox1.Items.Add("โต๊ะที่7")
ComboBox1.Items.Add("โต๊ะที่8")
ComboBox1.SelectedIndex = 1
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList

End Sub

Private Sub GroupBox2_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox2.Enter
Me.CenterToScreen()
RadioButton1.Text = "น้ำใส"
RadioButton2.Text = "น้ำตก"
RadioButton3.Text = "ต้มยำ"
RadioButton1.Checked = True

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim o As String
If RadioButton1.Checked = True Then
o = "น้ำใส,"
End If
If RadioButton2.Checked = True Then
o = "น้ำตก,"
End If
If RadioButton3.Checked = True Then
o = "ต้มยำ,"
End If
Dim p As String
If RadioButton4.Checked = True Then
p = "เส้นเล็ก,"
End If
If RadioButton5.Checked = True Then
p = "เส้นใหญ่,"
End If
If RadioButton6.Checked = True Then
p = "เส้นหมี่,"
End If
Dim A, B, C, D As String

If CheckBox1.Checked = True Then
A = "ผัก"
End If
If CheckBox2.Checked = True Then
B = "ลูกชิ้น"
End If
If CheckBox3.Checked = True Then
C = "เนื้อสด"
End If
If CheckBox4.Checked = True Then
D = "เนื้อเปื่อย"
End If
MessageBox.Show(ComboBox1.Text & " " & "รายการอาหารที่สั่ง" & " " & o & p & A & B & C & D)
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
RadioButton1.Checked = False
RadioButton2.Checked = False
RadioButton3.Checked = False
RadioButton4.Checked = False
RadioButton5.Checked = False
RadioButton6.Checked = False
CheckBox1.Checked = False
CheckBox2.Checked = False
CheckBox3.Checked = False
CheckBox4.Checked = False
ComboBox1.DropDownStyle = ComboBoxStyle.DropDownList
ComboBox1.SelectedIndex = 0
End Sub
End Class

Top