Hejsan,

är nybörjare i vb och skulle behöva lite hjälp. Jag har denna kodsnutt:

Option Explicit

Private Sub HSBlue_Change()
lblBlue.Caption = "Blue : " & HSBlue.Value
lblColor.BackColor = RGB(HSRed.Value, HSGreen.Value, HSBlue.Value)
End Sub

Private Sub HSGreen_Change()
lblGreen.Caption = "Green : " & HSGreen.Value
lblColor.BackColor = RGB(HSRed.Value, HSGreen.Value, HSBlue.Value)
End Sub

Private Sub HSRed_Change()
lblRed.Caption = "Red : " & HSRed.Value
lblColor.BackColor = RGB(HSRed.Value, HSGreen.Value, HSBlue.Value)
End Sub

Det jag vill göra är att lägga till ett textfält som visar färgens htmlkod. Om ni behöver veta mer så fråga.

dim strTemp as string
dim strResult as string
strResult = "#"
strTemp = hex(HSRed.value)
if len(strTemp) = 1 then strTemp = "0" & strTemp
strResult = strResult & strTemp
strTemp = hex(HSGreen.value)
if len(strTemp) = 1 then strTemp = "0" & strTemp
strResult = strResult & strTemp
strTemp = hex(HSBlue.value)
if len(strTemp) = 1 then strTemp = "0" & strTemp
strResult = strResult & strTemp
Textbox.text = strResult

Tackar så mycket. Det fungerade bra.

Kom på en sak till jag kan använda. Med er hjälp förstås. Om jag vill att man ska kunna skriva färgkoden i textrutan så kommer den färgen fram. Vad ska jag använda för kodsnutt då?

<code>
Private Sub Textbox_Change()
If Len(Textbox.Text) = 7 And Left(Textbox.Text,1) = "#" Then
HSRed.Value = Val("&H" & Mid(Textbox.Text,2,2))
HSGreen.Value = Val("&H" & Mid(Textbox.Text,4,2))
HSBlue.Value = Val("&H" & Mid(Textbox.Text,6,2))
End If
End Sub
</code>
Det borde fungera...

Det fungerade. Tackar så mycket. Håller på och lär mig VB i skolan nu men eftersom jag vill lära mig detta och kunna det bra så vill jag gå fortare fram än dom andra. Vet ni några bra sidor som lär ut VB, har kollat runt lite men inte hittat någon bra.

Hittade den här efter en snabb sökning: http://www.ccsweden.se/visbasic/home.html
Annas så kan du söka efter "visual-basic skola" på t.ex. google (http://www.google.com)