VB6 - Een formulier transparant maken

Een programma in VB6 of Visual Basic 6 kan worden gebruikt om een formulier transparant te maken in VB6 . Enige kennis van programmeerconcepten en talen zoals Visual Basic is vereist om programma's in VB6 te schrijven. Basiskennis van subroutines, if-else-lussen en Visual Basic-functies zijn nodig om programma's in VB6 te schrijven. Een programma om een formulier transparant te maken in VB6 kan worden geschreven met behulp van VB6-functies zoals de SetLayeredWindowAttributes-functie en bitbewerkingen, in een door de gebruiker gedefinieerde subroutine. Deze door de gebruiker gedefinieerde subroutine wordt een formuliergebeurtenis genoemd, afhankelijk van het moment waarop het formulier wordt geladen.

Ermee beginnen

Hier is een kort voorbeeld van hoe je een formulier transparant kunt maken in Visual Basic.

Opmerking: er moet een kleurenpalet zijn om dit te laten werken.

In een module

 Private Declare-functie GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bDefaut As Byte, ByVal dwFlags As Long) As Long
Private Const GWL_EXSTYLE As Long = (-20)
Private Const LWA_COLORKEY As Long = & H1
Private Const LWA_Defaut As Long = & H2
Private Const WS_EX_LAYERED As Long = & H80000
'
Public Function Transparency (ByVal hWnd As Long, Optionally ByVal Col As As Long = vbBlack, _
Optioneel ByVal PcTransp als byte = 255, optioneel ByVal TrMode als Boolean = True) als Boolean
'Return: waar als er geen fout is.
'hWnd: hWnd van het venster om transparant te maken
'Col: Kleur om transparant te maken als TrMode = False
'PcTransp: 0 Ã 255 >> 0 = transparant -: - 255 = ondoorzichtig
Dim DisplayStyle As Long
On Error GoTo Exit
VoirStyle = GetWindowLong (hWnd, GWL_EXSTYLE)
Als DisplayStyle (DisplayStyle of WS_EX_LAYERED) dan
DisplayStyle = (DisplayStyle of WS_EX_LAYERED)
Call SetWindowLong (hWnd, GWL_EXSTYLE, DisplayStyle)
Stop als
Transparency = (SetLayeredWindowAttributes (hWnd, Col, PcTransp, IIf (TrMode, LWA_COLORKEY of LWA_Defaut, LWA_COLORKEY)) 0)
Uitgang:
If Not Err.Number = 0 Then Err.Clear
Eindfunctie
Public Sub ActiveTransparency (M As Form, d As Boolean, F As Boolean, _
T_Transparantie als geheel getal, optionele kleur zo lang)
Dim B As Boolean
Als d en F dan
'Maakt kleur (hier de achtergrondkleur van de vorm) transparant
'op waarde van T_Transparency
B = Transparantie (M.hWnd, Color, T_Transparency, False)
Anders Dan
'Maakt vorm, inclusief alle componenten, transparant
'op waarde van T_Transparency
B = Transparantie (M.hWnd, 0, T_Transparency, True)
Anders
'Herstelt de vorm ondoorzichtig.
B = Transparantie (M.hWnd,, 255, True)
Stop als
End Sub