Wat is de HTML colorcode voor &H8000000F& ?
- Onderwerp starter MDN111
- Startdatum
- Status
Met wat code:
Wigi
Code:
Private Declare Function GetSysColor Lib "user32" (ByVal nIndex As Long) As Long
Sub test()
Debug.Print "&H" & ColorToHex(CommandButton1.BackColor)
End Sub
Public Function ColorToHex(ByVal lColor As Long) As String
If lColor And &H80000000 Then lColor = GetSysColor(lColor And &HFFFFFF)
ColorToHex = Right$("00000" & Hex$(lColor), 6)
End FunctionWigi
Hallo !!!
De oplossing van Jettro werkte bijna. Ik had ooit ergens gelezen dat je de kleurcodes in HTML moest omkeren ten opzichte van VBA. Met dat in het achterhoofd heb ik de code omgewisseld van # C8 D0 D8 naar #D8D0CD8 , en dat is precies wat ik nodig had.
Ik heb ook ooit ergens eens gelezen dat &H8000000F& een systeemkleur is en dat de kleur van de controls soms kunnen veranderen op een andere PC. Om die reden lijkt de code van Wigi mij wel aantrekkelijk.
Uiteindelijk ben ik erg geholpen met de aangeboden oplossingen en mijn Userform ziet er uit zoals ik wilde.
Nogmaals beiden erg bedankt !!!
Grtz,
MDN111.
PS. Zoals jullie waarschijnlijk wel vermoed hebben, gaat het over het tonen van een animated Gif in een Userform aan de hand van een Web browser object.
De oplossing van Jettro werkte bijna. Ik had ooit ergens gelezen dat je de kleurcodes in HTML moest omkeren ten opzichte van VBA. Met dat in het achterhoofd heb ik de code omgewisseld van # C8 D0 D8 naar #D8D0CD8 , en dat is precies wat ik nodig had.
Ik heb ook ooit ergens eens gelezen dat &H8000000F& een systeemkleur is en dat de kleur van de controls soms kunnen veranderen op een andere PC. Om die reden lijkt de code van Wigi mij wel aantrekkelijk.
Uiteindelijk ben ik erg geholpen met de aangeboden oplossingen en mijn Userform ziet er uit zoals ik wilde.
Nogmaals beiden erg bedankt !!!
Grtz,
MDN111.
PS. Zoals jullie waarschijnlijk wel vermoed hebben, gaat het over het tonen van een animated Gif in een Userform aan de hand van een Web browser object.
- Status
