Er zijn 1 reacties in dit onderwerp

[VB6Dummy]

Hoy, dit heb ik vroeger gebruikt in VB6.

Met deze code maak je achtergrond van een Form transparant.

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_TRANSPARENT = &H20&
Public Const SWP_FRAMECHANGED = &H20
Public Const SWP_NOMOVE = &H2
Public Const SWP_NOSIZE = &H1
Public Const SWP_SHOWME = SWP_FRAMECHANGED Or _SWP_NOMOVE Or SWP_NOSIZE
Public Const HWND_NOTOPMOST = -2
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As Long, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long

SetWindowLong Me.hwnd, GWL_EXSTYLE, WS_EX_TRANSPARENT
SetWindowPos Me.hwnd, HWND_NOTOPMOST, 0&, 0&, 0&, 0&, SWP_SHOWME


Ook heb ik een code gevonden voor het in- en uitfaden. Mss dat je daar iets mee bent. Ik dacht dat het in VB.NET werkte.

Dim Clear as Double

'Fade In
'
'Always use 1.01 instead of 1 or your form will have a tiny bit
'of transparency left which can sometimes really slow things
'down.
For Clear = 0 to 1.01 step 0.01
    Me.Opacity = Clear
Next


'Fade Out
For Clear = 1 to 0 step -0.01
    Me. Opacity = Clear
Next

[VB6Dummy]

hallo,

ik maakte juist een eenvoudig klokje met de timer. Ik heb dus gewoon een formulier met een label waarop de tijd elke seconde verandert.

Ik zou graag hebben dat mijn formulier gewoon transparant is en zonder borders. De borders lukken om weg te doen in de eigenschappen door deze op none te zetten maar als ik opacity op 0 zet dan zie ik ook mijn label niet meer met de tijd erop. Is er een manier om dit wel te doen? Door gewoon de backcolor van het formulier te veranderen lukt dit niet (ik krijg dan een fout dat die property niet werkt voor een formulier)

vriendelijke groeten

Frederik