Zjištění HTML kódu barvy

Postup:
Založte nový projekt. Na formulář přidejte dva textboxy Text1 a Text2, prvek commondialog CommonDialog1 a tlačítko Command1. Na událost tlačítka Click:

Private Sub Command1_Click()

   On Error GoTo XXX
    CommonDialog1.Action = 3
    candy = Hex(CommonDialog1.Color)
    suga = Len(candy)
    If suga = 5 Then candy = "0" + candy
    If suga = 4 Then candy = "00" + candy
    If suga = 3 Then candy = "000" + candy
    If suga = 2 Then candy = "0000" + candy
    If suga = 1 Then candy = "00000" + candy

    Text1.Text = "#" + candy
    Text2.BackColor = CommonDialog1.Color
XXX:
    Exit Sub

End Sub

Uložte projekt a spusťte jej. Po vybrání barvy se v Text1 vypíše HTML kód barvy.

Zpět

Autor: The Bozena