• Home
 · 
• Custom Controls/Forms/Menus
 · 
• Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the

Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the

Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the number of tickets, and it displays the

Rate Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

Private Sub cmdEnter_Click()
'update transaction list and clear settings
txtRecord.Text = num & " " & cboShow.Text & vbNewLine & txtRecord.Text
cboShow.ListIndex = -1
chkMatinee.Value = 0
Option5.Value = True
lblAmtdue.Caption = " "
End Sub
Private Sub Form_DblClick()
'display color dialog and set background color
CommonDialog1.ShowColor
frmTheater.BackColor = CommonDialog1.Color
cboShow.BackColor = CommonDialog1.Color
chkMatinee.BackColor = CommonDialog1.Color
Frame1.BackColor = CommonDialog1.Color
Option1.BackColor = CommonDialog1.Color
Option2.BackColor = CommonDialog1.Color
Option3.BackColor = CommonDialog1.Color
Option4.BackColor = CommonDialog1.Color
lblAmtdue.BackColor = CommonDialog1.Color
txtRecord.BackColor = CommonDialog1.Color
End Sub

Private Sub Label3_Click()

End Sub

Private Sub Form_Unload(Cancel As Integer)
Unload frmTheater
End Sub

Private Sub Option1_Click()
'calculate and display amount due
num = 1
If chkMatinee.Value = 1 Then price = 3.5 Else price = 5
lblAmtdue.Caption = Format$(num * price, "currency")
End Sub

Private Sub Option2_Click()
'calculate and display amount due
num = 2
If chkMatinee.Value = 1 Then price = 3.5 Else price = 5
lblAmtdue.Caption = Format$(num * price, "currency")
End Sub

Private Sub Option3_Click()
'calculate and display amount due
num = 3
If chkMatinee.Value = 1 Then price = 3.5 Else price = 5
lblAmtdue.Caption = Format$(num * price, "currency")
End Sub

Private Sub Option4_Click()
'calculate and display amount due
num = 4
If chkMatinee.Value = 1 Then price = 3.5 Else price = 5
lblAmtdue.Caption = Format$(num * price, "currency")
End Sub