Springen naar inhoud


transparante opmaak


  • Log in a.u.b. om te beantwoorden
Er zijn 1 reacties in dit onderwerp

#1 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 07:11

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

#2 VB6Dummy

VB6Dummy

    VBIB Godfather

  • Leden
  • PipPipPipPipPipPipPipPip
  • 5388 berichten
    Laatst bezocht 26 dec 2014 17:43

Geplaatst op 04 mei 2011 - 07:11

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




0 gebruiker(s) lezen dit onderwerp

0 lid(leden), 0 bezoeker(s), 0 anonieme gebruikers

Inloggen


Untitled 1

Met dank aan J├╝rgen voor de jarenlange inzet van visualbasic.be (anno dec 2000)
Met dank aan Mike en Ronneke voor de jarenlange inzet van vbib.be (anno dec 2010)
Met dank aan PascalBianca voor de jarenlange inzet van vbib.be (anno dec 2016)