' Visual Basic Programming
' by Mr. Minich
' Ch. 7 Demo #3
' Purpose - to demonstrate the use of menus, scrollbars, RGB function, and more

Option Explicit

Private Sub hsbBlue_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbGreen_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub hsbRed_Change()
    Form1.BackColor = RGB(hsbRed.Value, hsbGreen.Value, hsbBlue.Value)
End Sub

Private Sub mnuFileExit_Click()
    Unload Me
    End
End Sub

Private Sub mnuFunColorRed_Click()
    Form1.BackColor = vbRed
    mnuFunColorRed.Checked = True
    mnuFunColorRed.Enabled = False
    mnuFunColorGreen.Enabled = True
End Sub

Private Sub mnuFunColorGreen_Click()
    Form1.BackColor = vbGreen
    mnuFunColorGreen.Enabled = False
    mnuFunColorGreen.Enabled = True
End Sub

Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single)
    
    If (Button = vbRightButton) Then
        PopupMenu mnuShortcut
    End If
    
End Sub

Private Sub mnuShortcutExit_Click()
    Call mnuFileExit_Click
End Sub

Private Sub mnuShortcutChangeColor_Click()

    Call ChangeColor
    
    If (mnuShortcutChangeColor.Checked = True) Then
        mnuShortcutChangeColor.Checked = False
        mnuFunChangeColor.Checked = False
    Else
        mnuShortcutChangeColor.Checked = True
        mnuFunChangeColor.Checked = True
    End If
    
End Sub

Private Sub ChangeColor()

    If (hsbRed.Visible = True) Then
        hsbRed.Visible = False
        hsbGreen.Visible = False
        hsbBlue.Visible = False
    Else
        hsbRed.Visible = True
        hsbGreen.Visible = True
        hsbBlue.Visible = True
    End If
        
End Sub

Private Sub mnuFunChangeColor_Click()
    Call ChangeColor
    
    If (mnuFunChangeColor.Checked = True) Then
        mnuFunChangeColor.Checked = False
        mnuShortcutChangeColor.Checked = False
    Else
        mnuFunChangeColor.Checked = True
        mnuShortcutChangeColor.Checked = True
    End If
End Sub