'*************************************************************************************
'* Name:  CS 100-01                                                                  *
'* Program:  Simple Calculator                                                       *
'* Date:  4/15/03                                                                    *
'* Description:  This program changes the color of form elements based on option     *
'*               buttons set by the user.                                            *
'*************************************************************************************
Option Explicit

Private Sub SetFormColor()
    If (optBlueForm.Value) Then
        frmCustomForm.BackColor = QBColor(1)
    Else
        frmCustomForm.BackColor = QBColor(2)
    End If
End Sub

Private Sub SetFrameColor()
    If (optBlueFrame.Value) Then
        fraButtonColor.BackColor = vbBlue
        fraFormColor.BackColor = vbBlue
        fraFrameColor.BackColor = vbBlue
        fraOptionColor.BackColor = vbBlue
        fraTextColor.BackColor = vbBlue
    Else
        fraButtonColor.BackColor = vbGreen
        fraFormColor.BackColor = vbGreen
        fraFrameColor.BackColor = vbGreen
        fraOptionColor.BackColor = vbGreen
        fraTextColor.BackColor = vbGreen
    End If
End Sub

Private Sub SetOptionColor()
    If (optYellowOption.Value) Then
        optYellowButton.BackColor = QBColor(6)
        optMagentaButton.BackColor = QBColor(6)
        optBlueForm.BackColor = QBColor(6)
        optGreenForm.BackColor = QBColor(6)
        optBlueFrame.BackColor = QBColor(6)
        optGreenFrame.BackColor = QBColor(6)
        optCyanOption.BackColor = QBColor(6)
        optYellowOption.BackColor = QBColor(6)
        optBlackText.BackColor = QBColor(6)
        optRedText.BackColor = QBColor(6)
    Else
        optYellowButton.BackColor = QBColor(3)
        optMagentaButton.BackColor = QBColor(3)
        optBlueForm.BackColor = QBColor(3)
        optGreenForm.BackColor = QBColor(3)
        optBlueFrame.BackColor = QBColor(3)
        optGreenFrame.BackColor = QBColor(3)
        optCyanOption.BackColor = QBColor(3)
        optYellowOption.BackColor = QBColor(3)
        optBlackText.BackColor = QBColor(3)
        optRedText.BackColor = QBColor(3)
    End If
End Sub

Private Sub SetButtonColor()
    If (optYellowButton.Value) Then
        cmdChangeForm.BackColor = vbYellow
        cmdExit.BackColor = vbYellow
    Else
        cmdChangeForm.BackColor = vbMagenta
        cmdExit.BackColor = vbMagenta
    End If
End Sub

Private Sub SetTextColor()
    If (optRedText.Value) Then
        frmCustomForm.ForeColor = QBColor(4)
        fraButtonColor.ForeColor = QBColor(4)
        fraFormColor.ForeColor = QBColor(4)
        fraFrameColor.ForeColor = QBColor(4)
        fraOptionColor.ForeColor = QBColor(4)
        fraTextColor.ForeColor = QBColor(4)
        optYellowButton.ForeColor = QBColor(4)
        optMagentaButton.ForeColor = QBColor(4)
        optBlueForm.ForeColor = QBColor(4)
        optGreenForm.ForeColor = QBColor(4)
        optBlueFrame.ForeColor = QBColor(4)
        optGreenFrame.ForeColor = QBColor(4)
        optCyanOption.ForeColor = QBColor(4)
        optYellowOption.ForeColor = QBColor(4)
        optBlackText.ForeColor = QBColor(4)
        optRedText.ForeColor = QBColor(4)
    Else
        frmCustomForm.ForeColor = vbBlack
        fraButtonColor.ForeColor = vbBlack
        fraFormColor.ForeColor = vbBlack
        fraFrameColor.ForeColor = vbBlack
        fraOptionColor.ForeColor = vbBlack
        fraTextColor.ForeColor = vbBlack
        optYellowButton.ForeColor = vbBlack
        optMagentaButton.ForeColor = vbBlack
        optBlueForm.ForeColor = vbBlack
        optGreenForm.ForeColor = vbBlack
        optBlueFrame.ForeColor = vbBlack
        optGreenFrame.ForeColor = vbBlack
        optCyanOption.ForeColor = vbBlack
        optYellowOption.ForeColor = vbBlack
        optBlackText.ForeColor = vbBlack
        optRedText.ForeColor = vbBlack
    End If
End Sub

Private Sub cmdChangeForm_Click()
    Call SetFormColor
    Call SetFrameColor
    Call SetOptionColor
    Call SetButtonColor
    Call SetTextColor
End Sub

Private Sub cmdExit_Click()
    End
End Sub