Attribute VB_Name = "mColors"
'mColors
Option Explicit
Public Enum RGBColor
gcRed = 1
gcBlue = 2
gcGreen = 3
End Enum
Public Function GetRGBColor(ByVal Color As String, ColorPart As RGBColor) As Long
'Estrae i codici RGB
Dim strColor As String
strColor = Right$("000000" & Hex$(Color), 6)
Select Case ColorPart
Case gcRed
GetRGBColor = Val("&h" & Right$(strColor, 2))
Case gcGreen
GetRGBColor = Val("&h" & Mid$(strColor, 3, 2))
Case gcBlue
GetRGBColor = Val("&h" & Left$(strColor, 2))
End Select
frmRGB.lblHex.Caption = "HEX: H" & strColor
End Function
Public Sub GetBkColor(FrmColor As Long)
'chiama la funzione GetRGBColor
'
frmRGB.hsbColor(0).Value = GetRGBColor(FrmColor, gcRed)
frmRGB.hsbColor(1).Value = GetRGBColor(FrmColor, gcGreen)
frmRGB.hsbColor(2).Value = GetRGBColor(FrmColor, gcBlue)
End Sub
Sub CenterForm(frmIn As Form)
Dim iTop As Integer, iLeft As Integer
If frmIn.WindowState <> 0 Then Exit Sub
iTop = (Screen.Height - frmIn.Height) \ 2
iLeft = (Screen.Width - frmIn.Width) \ 2
frmIn.Move iLeft, iTop
End Sub