|
Option Explicit
Dim sc As String
Dim sc1 As String
Dim sc2 As String
Dim sc3 As String
Dim i As Long
Private Sub picColor_Click()
txtVBColor.Text = Hex(lblCurColor.BackColor)
sc = ""
For i = 1 To 6
If Mid$(txtVBColor.Text, i, 1) <> "" Then
sc = sc & Mid$(txtVBColor.Text, i, 1)
Else
sc = "0" & sc
End If
Next i
sc1 = Mid$(sc, 5, 2)
sc2 = Mid$(sc, 3, 2)
sc3 = Mid$(sc, 1, 2)
txtWebColor.Text = "#" & sc1 & sc2 & sc3
txtVBColor.Text = "&" & "H" & Hex(lblCurColor.BackColor)
End Sub
Private Sub picColor_MouseMove(Button As Integer, _
Shift As Integer, X As Single, Y As Single)
lblCurColor.BackColor = picColor.Point(X, Y)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, _
UnloadMode As Integer)
Set frmColorPicker = Nothing
End Sub
|
|