Keskustelu: Ohjelmointikysymykset: CommonDialogin väri HTML:änä (vb) (VB6)

Bill Keltanen [24.03.2004 17:10:05]

Miten saisin CommonDialogin väripaletilla Textboxiin värin HTML-koodin?

Antti [25.03.2004 00:58:34]

Hmm... en ole varma vastaavatko HTML-koodin Heksat VB:n värikoodeja? Jos ei joudut tekemään vastaavuus taulukon. Tyyliin:

Function ColorToHTML(MyColor as ColorContant) as String
Select case
case 123
ColorToHTML="#234234"
End select
End Function

Bill Keltanen [25.03.2004 07:20:32]

Täytyy kokeilla

miiro [25.03.2004 20:30:14]

Hei...mä latasin joskus tän jostain ootas ku kaivan esii...

miiro [25.03.2004 20:40:00]

EDIT: Tässä sulle, bill!

Eli: Tee Commondialog(CommonDialog1), Label(LabelColor), Ja Textbox(TextColorBox). Kun tuplaklikkaa labelista jonkun värin, se ilmestyy texboxiin ja kun textboxiin kirjottaa jonkun heksavärin niin se ilmestyy labeliin värinä. KOODI:

'
Private Function CvtColorVB2Web(colorcode As String) As String
Dim vcolor
    vcolor = Hex(Val(colorcode))
    If Len(vcolor) < 6 Then
       vcolor = String(6 - Len(vcolor), "0") & vcolor
    End If
    CvtColorVB2Web = Mid(vcolor, 5, 2) & Mid(vcolor, 3, 2) & Mid(vcolor, 1, 2)
End Function

Private Function CvtColorWeb2VB(colorcode As String) As String
    If Len(colorcode) < 6 Then
       colorcode = colorcode & String(6 - Len(colorcode), "0")
    End If
    CvtColorWeb2VB = "&H" & Mid(colorcode, 5, 2) & Mid(colorcode, 3, 2) & Mid(colorcode, 1, 2)
End Function



Private Sub Form_Load()

End Sub

Private Sub LabelColor_Click()
   CommonDialog1.ShowColor
   TextColorCode.Text = CvtColorVB2Web(CommonDialog1.Color)

End Sub

Private Sub TextColorCode_Change()
    LabelColor.BackColor = CvtColorWeb2VB(TextColorCode.Text)
    On Error GoTo errhandler:
errhandler:
If Err.Number = 13 Then
MsgBox "Vain numeroita ja kirjaimia!", vbCritical, "Virhe"
End If
End Sub

Oon vähän editoinu sitä...

KOODIN LÄHDE: http://www.vb-helper.com/howtobeg.htm

Bill Keltanen [26.03.2004 14:26:52]

KIIIIITOS PALJON!!!

Vastaus

Aihe on jo aika vanha, joten et voi enää vastata siihen.

Kirjautuminen

Haku

Tehtävät