Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
RGB Colors - frmRGB.frm

frmRGB.frm

Caricato da:
Scarica il programma completo

  1. Private Sub chkContrast_Click()
  2.     If chkContrast.Value = 1 Then
  3.         Frame1.ForeColor = QBColor(15)
  4.         Frame2.ForeColor = QBColor(15)
  5.         lblHex.ForeColor = QBColor(15)
  6.         chkContrast.ForeColor = QBColor(15)
  7.     Else
  8.         Frame1.ForeColor = QBColor(0)
  9.         Frame2.ForeColor = QBColor(0)
  10.         lblHex.ForeColor = QBColor(0)
  11.         chkContrast.ForeColor = QBColor(0)
  12.     End If
  13. End Sub
  14.  
  15. Private Sub cmbQBColors_Click()
  16.     '
  17.     Frame2.Caption = "QBColor (" & cmbQBColors.ListIndex & ")"
  18.     lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor)
  19.     If cmbQBColors.ListIndex = 0 Then
  20.         'Switch bianco/nero
  21.        chkContrast.Value = Checked
  22.     End If
  23.     '
  24.     frmRGB.BackColor = QBColor(cmbQBColors.ListIndex)
  25.     Frame1.BackColor = QBColor(cmbQBColors.ListIndex)
  26.     Frame2.BackColor = QBColor(cmbQBColors.ListIndex)
  27.     chkContrast.BackColor = QBColor(cmbQBColors.ListIndex)
  28.     '
  29.     GetBkColor (frmRGB.BackColor)
  30.    
  31. End Sub
  32.  
  33.  
  34. Private Sub cmbSysColors_Click()
  35. '
  36.     lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor)
  37.     If cmbQBColors.ListIndex = 0 Then
  38.        chkContrast.Value = Checked
  39.     End If
  40.     'SysColor = GetSysColors(cmbSysColors.ListIndex)
  41.     frmRGB.BackColor = SysColor
  42.     Frame1.BackColor = SysColor
  43.     Frame2.BackColor = SysColor
  44.     chkContrast.BackColor = SysColor
  45.     '
  46.     GetBkColor (frmRGB.BackColor)
  47. End Sub
  48.  
  49.  
  50. Private Sub cmdColor_Click()
  51.     CommonDialog1.ShowColor 'richiama la commondialog
  52.     '
  53.     If CommonDialog1.Color = 0 Then
  54.        'Contrasto
  55.        chkContrast.Value = Checked
  56.     End If
  57.     frmRGB.BackColor = CommonDialog1.Color
  58.     hsbColor(0).Value = GetRGBColor(CommonDialog1.Color, gcRed)
  59.     hsbColor(1).Value = GetRGBColor(CommonDialog1.Color, gcGreen)
  60.     hsbColor(2).Value = GetRGBColor(CommonDialog1.Color, gcBlue)
  61.    
  62. End Sub
  63.  
  64. Private Sub cmdQuit_Click()
  65.     Unload Me
  66. End Sub
  67.  
  68. Private Sub Form_Load()
  69.         '
  70.         CenterForm Me
  71.         '
  72.         Dim I As Integer
  73.         For I = 0 To 2
  74.             'gray color default
  75.             hsbColor(I).Value = 192
  76.         Next
  77.         'aggiunge i valori alla combo
  78.         cmbQBColors.AddItem "Black"
  79.         cmbQBColors.AddItem "Blue "
  80.         cmbQBColors.AddItem "Green"
  81.         cmbQBColors.AddItem "Cyan "
  82.         cmbQBColors.AddItem "Red  "
  83.         cmbQBColors.AddItem "Magenta"
  84.         cmbQBColors.AddItem "Yellow "
  85.         cmbQBColors.AddItem "White  "
  86.         cmbQBColors.AddItem "Gray   "
  87.         cmbQBColors.AddItem "Light Blue"
  88.         cmbQBColors.AddItem "Light Green"
  89.         cmbQBColors.AddItem "Light Cyan "
  90.         cmbQBColors.AddItem "Light Red "
  91.         cmbQBColors.AddItem "Light Magenta"
  92.         cmbQBColors.AddItem "Light Yellow "
  93.         cmbQBColors.AddItem "Bright White "
  94.         'cmbQBColors.ListIndex = 0
  95.         'SysColors
  96. End Sub
  97.  
  98. Private Sub hsbColor_Change(Index As Integer)
  99.     '
  100.     Dim R As Long 'dichiara variabili rosso,verde e blu
  101.     Dim G As Long
  102.     Dim B As Long
  103.     '
  104.     R = hsbColor(0).Value 'impostale variabili r,g,b sui i valori delle scroll
  105.     G = hsbColor(1).Value
  106.     B = hsbColor(2).Value
  107.     '
  108.     Frame1.Caption = "RGB (" & R & ", " & G & ", " & B & ")" 'scrive il colore in RGB nel titolo del frame
  109.     lblHex.Caption = "HEX: H" & Hex(frmRGB.BackColor) 'scrive il colore in esadecimale nell'lblhex usando la funzione di conversione contenuta nel modulo
  110.     frmRGB.BackColor = RGB(R, G, B) 'imposta lo sfondo usanfdo la funzione rgb
  111.     Frame1.BackColor = RGB(R, G, B)
  112. End Sub