คืนค่าการตั้งค่าทั้งหมด
คุณแน่ใจว่าต้องการคืนค่าการตั้งค่าทั้งหมด ?
ลำดับตอนที่ #3 : [VB] แจกโค้ด FoodBill โปรแกรมคำนวณบิลค่าอาหาร + FILE
โ้ Checkbox เมนูอาหาร
Private Sub Check1_Click()
If Check1.Value = "1" Then
Text1.Text = Text1.Text + 25
ElseIf Check1.Value = "0" Then
Text1.Text = Text1.Text - 25
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check2.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check3.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check4_Click()
If Check4.Value = "1" Then
Text1.Text = Text1.Text + 35
ElseIf Check4.Value = "0" Then
Text1.Text = Text1.Text - 35
End If
End Sub
Private Sub Check5_Click()
If Check5.Value = "1" Then
Text1.Text = Text1.Text + 30
ElseIf Check5.Value = "0" Then
Text1.Text = Text1.Text - 30
End If
End Sub
Private Sub Check6_Click()
If Check6.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check6.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check7_Click()
If Check7.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check7.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check8_Click()
If Check8.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check8.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check9_Click()
If Check9.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check9.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check10_Click()
If Check10.Value = "1" Then
Text1.Text = Text1.Text + 15
ElseIf Check10.Value = "0" Then
Text1.Text = Text1.Text - 15
End If
End Sub
Private Sub Check11_Click()
If Check11.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check11.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check12_Click()
If Check12.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check12.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check13_Click()
If Check13.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check13.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check14_Click()
If Check14.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check14.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check15_Click()
If Check15.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check11.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check16_Click()
If Check16.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check16.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check17_Click()
If Check17.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check17.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check18_Click()
If Check18.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check18.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check19_Click()
If Check19.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check19.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
Private Sub Check20_Click()
If Check20.Value = "1" Then
Text1.Text = Text1.Text + 10
ElseIf Check20.Value = "0" Then
Text1.Text = Text1.Text - 10
End If
End Sub
DOWNLOAD FILE
ความคิดเห็น