Default.aspx - S If JustRodeoCheckBox.Checked = True Then...

Info iconThis preview shows page 1. Sign up to view the full content.

View Full Document Right Arrow Icon
'Website 9.2 'Michael Rehkemper ' Partial Class _Default Inherits System.Web.UI.Page Dim ticketprice, ticketQuantity As Integer Protected Sub CheckBox1_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles JustRodeoCheckBox.CheckedChanged JustRodeoCheckBox.Checked = True AwardsEventCheckBox.Checked = False End Sub Protected Sub CheckBox2_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles AwardsEventCheckBox.CheckedChanged AwardsEventCheckBox.Checked = True JustRodeoCheckBox.Checked = False End Sub Protected Sub SubmitButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles SubmitButton.Click
Background image of page 1
This is the end of the preview. Sign up to access the rest of the document.

Unformatted text preview: S If JustRodeoCheckBox.Checked = True Then ticketprice = 15 If AwardsEventCheckBox.Checked = True Then ticketprice = 25 ticketQuantity = ticketNumberTextBox.Text AmountDueTextBox.Text = (ticketprice * ticketQuantity).ToString("C") ConformationHyperLink.Visible = True If JustRodeoCheckBox.Checked = False Then End If End Sub Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load H End Sub Protected Sub TextBox12_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox12.TextChanged S End Sub End Class...
View Full Document

Ask a homework question - tutors are online