'    Project:   Chapter 2 Example
' Programmer:   Andy McCone
'       Date:   Jan 16th 2008
'Description:   This project has the user to enter their name.
'               The Press button then will capture their name and display it in a messsage.
'               The user can choose the color of the message and can also determine if 
'		        the message will display


Public Class mainForm

    Private Sub msgVisibleCheckBox_CheckedChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles msgVisibleCheckBox.CheckedChanged

        'Show displayLabel if checkbox checked 
        'Hide displayLabel if checkbox is unchecked
        displayLabel.Visible = msgVisibleCheckBox.Checked

    End Sub

    Private Sub pressButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles pressButton.Click

        'Display larger message with name in textbox 
        displayLabel.Text = "Hello " & nameTextBox.Text & ", how are you?"

    End Sub

    Private Sub redRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles redRadio.CheckedChanged

        'Change font color to red
        displayLabel.ForeColor = Color.Red

    End Sub

    Private Sub resetButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles resetButton.Click

        'Clear out all objects
        nameTextBox.Text = ""
        msgVisibleCheckBox.Checked = False
        displayLabel.Text = ""
	
	'deselect all radio buttons
        redRadio.Checked = False
        blueRadio.Checked = False
        greenRadio.Checked = False

	'Put cursor in nameTexBox
        nameTextBox.Focus()


    End Sub

    Private Sub greenRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles greenRadio.CheckedChanged

        'Change font color to green
        displayLabel.ForeColor = Color.Green

    End Sub

    Private Sub blueRadio_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles blueRadio.CheckedChanged

        'Change font color to blue
        displayLabel.ForeColor = Color.Blue

    End Sub

    Private Sub exitButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles exitButton.Click

        'close program
        Me.Close()

    End Sub

End Class