Keskustelu: Koodit: VB6: Vb väri HEXixi ja päinvastoin

'Koodin kirjoittanut miiro (ohjelmointiputka)
'Kiitokset: http://www.vb-helper.com/howtobeg.htm
'(oikeastaan tämä on melko suora kopio siitä koodista)

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

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


Private Sub LabelColor_Click()
  CD.ShowColor
  Textvarikoodi.Text = VBtoHEX(CD.Color)
End Sub


Private Sub Textvarikoodi_Change()
   LabelColor.BackColor = HEXtoVB(Textvarikoodi.Text)
   On Error GoTo errhandler:
errhandler:
If Err.Number = 13 Then
MsgBox "Vain numeroita ja kirjaimia!" & vbCrLf & "Älä laita ruutua (#) ennen HEX-värikoodia." & vbCrLf & "HEX-koodin maksimipituus on 6 merkkiä"
End If
End Sub