Private Sub chkContrast_Click()
If chkContrast.Value = 1 Then
Frame1.ForeColor = QBColor(15)
Frame2.ForeColor = QBColor(15)
lblHex.ForeColor = QBColor(15)
chkContrast.ForeColor = QBColor(15)
Else
Frame1.ForeColor = QBColor(0)
Frame2.ForeColor = QBColor(0)
lblHex.ForeColor = QBColor(0)
chkContrast.ForeColor = QBColor(0)
End If
End Sub
Private Sub cmbQBColors_Click()
'
Frame2.Caption = "QBColor (" & cmbQBColors.ListIndex & ")"
lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor)
If cmbQBColors.ListIndex = 0 Then
'Switch bianco/nero
chkContrast.Value = Checked
End If
'
frmRGB.BackColor = QBColor(cmbQBColors.ListIndex)
Frame1.BackColor = QBColor(cmbQBColors.ListIndex)
Frame2.BackColor = QBColor(cmbQBColors.ListIndex)
chkContrast.BackColor = QBColor(cmbQBColors.ListIndex)
'
GetBkColor (frmRGB.BackColor)
End Sub
Private Sub cmbSysColors_Click()
'
lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor)
If cmbQBColors.ListIndex = 0 Then
chkContrast.Value = Checked
End If
'SysColor = GetSysColors(cmbSysColors.ListIndex)
frmRGB.BackColor = SysColor
Frame1.BackColor = SysColor
Frame2.BackColor = SysColor
chkContrast.BackColor = SysColor
'
GetBkColor (frmRGB.BackColor)
End Sub
Private Sub cmdColor_Click()
CommonDialog1.ShowColor 'richiama la commondialog
'
If CommonDialog1.Color = 0 Then
'Contrasto
chkContrast.Value = Checked
End If
frmRGB.BackColor = CommonDialog1.Color
hsbColor(0).Value = GetRGBColor(CommonDialog1.Color, gcRed)
hsbColor(1).Value = GetRGBColor(CommonDialog1.Color, gcGreen)
hsbColor(2).Value = GetRGBColor(CommonDialog1.Color, gcBlue)
End Sub
Private Sub cmdQuit_Click()
Unload Me
End Sub
Private Sub Form_Load()
'
CenterForm Me
'
Dim I As Integer
For I = 0 To 2
'gray color default
hsbColor(I).Value = 192
Next
'aggiunge i valori alla combo
cmbQBColors.AddItem "Black"
cmbQBColors.AddItem "Blue "
cmbQBColors.AddItem "Green"
cmbQBColors.AddItem "Cyan "
cmbQBColors.AddItem "Red "
cmbQBColors.AddItem "Magenta"
cmbQBColors.AddItem "Yellow "
cmbQBColors.AddItem "White "
cmbQBColors.AddItem "Gray "
cmbQBColors.AddItem "Light Blue"
cmbQBColors.AddItem "Light Green"
cmbQBColors.AddItem "Light Cyan "
cmbQBColors.AddItem "Light Red "
cmbQBColors.AddItem "Light Magenta"
cmbQBColors.AddItem "Light Yellow "
cmbQBColors.AddItem "Bright White "
'cmbQBColors.ListIndex = 0
'SysColors
End Sub
Private Sub hsbColor_Change(Index As Integer)
'
Dim R As Long 'dichiara variabili rosso,verde e blu
Dim G As Long
Dim B As Long
'
R = hsbColor(0).Value 'impostale variabili r,g,b sui i valori delle scroll
G = hsbColor(1).Value
B = hsbColor(2).Value
'
Frame1.Caption = "RGB (" & R & ", " & G & ", " & B & ")" 'scrive il colore in RGB nel titolo del frame
lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor) 'scrive il colore in esadecimale nell'lblhex usando la funzione di conversione contenuta nel modulo
frmRGB.BackColor = RGB(R, G, B) 'imposta lo sfondo usanfdo la funzione rgb
Frame1.BackColor = RGB(R, G, B)
End Sub