ritorna con variabili.html descrizione gestione variabili con VBA
esci con vbasintassi1.htm

trasformazione di codice colore da esadecimale a RGB
esargb.ppt

Private Sub CommandButton1_Click()
Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("................")
Label9.BackColor = RGB(r, g, b)
End Sub

Rem ............................

Private Sub CommandButton2_Click()
Label7.Visible = True
End Sub

Private Sub CommandButton3_Click()
Label7.Visible = False
End Sub

Private Sub CommandButton4_Click()
Label11.Visible = True
End Sub

Private Sub CommandButton5_Click()
Label11.Visible = False
End Sub

Private Sub CommandButton6_Click()

End Sub

Private Sub CommandButton7_Click()
ListBox1.Clear
End Sub

Private Sub UserForm_Click()

End Sub

trasformazione di codice colore da esadecimale a RGB (variante)
esargbx.ppt

Public r, g, b As Integer

Private Sub CommandButton1_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&H000000")
ListBox1.AddItem ("................")
Image1.BackColor = RGB(r, g, b)
Image9.BackColor = &H0&
End Sub



Private Sub CommandButton2_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFFFFFF")
ListBox1.AddItem ("................")
Image2.BackColor = RGB(r, g, b)
Image10.BackColor = &HFFFFFF
End Sub

Private Sub CommandButton3_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFF")
ListBox1.AddItem ("................")
Image3.BackColor = RGB(r, g, b)
Image11.BackColor = &HFF&
End Sub

Private Sub CommandButton4_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFFFF")
ListBox1.AddItem ("................")
Image4.BackColor = RGB(r, g, b)
Image12.BackColor = &HFFFF&
End Sub

Private Sub CommandButton5_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFFFF")
ListBox1.AddItem ("................")
Image5.BackColor = RGB(r, g, b)
Image13.BackColor = &HFFFF80
End Sub

Private Sub CommandButton6_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&H00FF00")
ListBox1.AddItem ("................")
Image6.BackColor = RGB(r, g, b)
Image14.BackColor = &HFF00&
End Sub

Private Sub CommandButton7_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFF00FF")
ListBox1.AddItem ("................")
Image7.BackColor = RGB(r, g, b)
Image15.BackColor = &HFF00FF
End Sub

Private Sub CommandButton8_Click()
Rem Dim r, g, b As Integer
r = (TextBox1 * 16) + Val(TextBox2)
g = (TextBox3 * 16) + Val(TextBox4)
b = (TextBox5 * 16) + Val(TextBox6)
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
ListBox1.AddItem ("RGB(" & r & " , " & g & " , " & b)
ListBox1.AddItem ("&HFF0000")
ListBox1.AddItem ("................")
Image8.BackColor = RGB(r, g, b)
Image16.BackColor = &HFF0000

End Sub

Private Sub CommandButton9_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton10_Click()
ListBox1.Clear
End Sub

Private Sub CommandButton11_Click()
Label16.Visible = True
End Sub

Private Sub CommandButton12_Click()
Label16.Visible = False
End Sub

Private Sub CommandButton13_Click()
Label11.Visible = True
End Sub

Private Sub CommandButton14_Click()
Label11.Visible = False
End Sub

Private Sub CommandButton15_Click()
Label13.Visible = True
End Sub

Private Sub CommandButton16_Click()
Label13.Visible = False
End Sub

Private Sub Label16_Click()

End Sub

Private Sub UserForm_Click()

End Sub

creazione casuale di codice colore RGB e possibile modifica da parte di utente
casualergb.ppt

Private Sub CommandButton1_Click()
Dim r, g, b As Integer
r = Int(300 * Rnd())
g = Int(300 * Rnd())
b = Int(300 * Rnd())
ListBox1.AddItem (r)
ListBox1.AddItem (g)
ListBox1.AddItem (b)
If r > 255 Then r = 255
If g > 255 Then g = 255
If b > 255 Then b = 255
TextBox1 = r
TextBox2 = g
TextBox3 = b
Image1.BackColor = RGB(r, g, b)
ListBox1.AddItem ("------------")
End Sub

Private Sub CommandButton2_Click()
Dim x, y, z As Integer
x = Val(TextBox4)
y = Val(TextBox5)
z = Val(TextBox6)
ListBox1.AddItem ("+++++++++++++++")
ListBox1.AddItem (x)
ListBox1.AddItem (y)
ListBox1.AddItem (z)
Image2.BackColor = RGB(x, y, z)
End Sub



Private Sub CommandButton3_Click()
Label1.Visible = True
End Sub

Private Sub CommandButton4_Click()
Label1.Visible = False
End Sub

Private Sub CommandButton5_Click()
Label2.Visible = True
End Sub

Private Sub CommandButton6_Click()
Label2.Visible = False
End Sub

Private Sub CommandButton7_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""
TextBox4 = ""
TextBox5 = ""
TextBox6 = ""
End Sub

Private Sub CommandButton8_Click()
ListBox1.Clear
End Sub

Private Sub UserForm_Click()

End Sub