by Prince Valiant (6 Submissions)
Category: Custom Controls/Forms/Menus
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 9th June 2000
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
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
VBcoders
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
No comments have been posted about Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the . Why not be the first to post a comment about Theatre Box Office program. You select a movie, if you want to see the matinee showing or not, the .