[VB6-Source] Transparente Fenster

[eistee]

Weiß nicht ob es das hier schon gibt aber ich Persönlich finde es immer ganz nett wenn ein Programm ein bischen Transparent ist.
Hier ein bespiel:



Eigentlich ist diese Nette Funktion ziemlich einfach zu realiesieren, als erstes müsst ihr ein Modul anlegen, in den kommt dann dieser Code

Option Explicit

Declare Function GetWindowLong Lib "user32.dll" _
                 Alias "GetWindowLongA" ( _
                 ByVal hWnd As Long, _
                 ByVal nIndex As Long) As Long
                 
Declare Function SetWindowLong Lib "user32.dll" _
                 Alias "SetWindowLongA" ( _
                 ByVal hWnd As Long, _
                 ByVal nIndex As Long, _
                 ByVal dwNewLong As Long) As Long
                 
Declare Function SetLayeredWindowAttributes Lib "user32.dll" ( _
                 ByVal hWnd As Long, _
                 ByVal crKey As Long, _
                 ByVal bAlpha As Byte, _
                 ByVal dwFlags As Long) As Long

Public Const GWL_EXSTYLE = (-20)
Public Const WS_EX_LAYERED = &H80000

'Macht nur eine Farbe transparent
'Public Const LWA_COLORKEY = &H1

'Macht das ganze Fenster transparent
Public Const LWA_ALPHA = &H2

Public Sub Mache_Transparent(hWnd As Long, Rate As Byte)
    '### funktioniert nur unter Windows 2000 oder XP!!!
    '### macht das Fenster, dessen hWnd übergeben wurde, transparent
    '### Rate: 254 = normal 0 = ganz transparent (also unsichtbar)
    '### 190 ist z.B. ein guter Wert
    
    Dim WinInfo As Long
    
    WinInfo = GetWindowLong(hWnd, GWL_EXSTYLE)
    
    If Rate < 255 Then
        WinInfo = WinInfo Or WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
        SetLayeredWindowAttributes hWnd, 0, Rate, LWA_ALPHA
    Else
        'Wenn als Rate 255 angegeben wird,
        'so wird der Ausgangszustand wiederhergestellt
        WinInfo = WinInfo Xor WS_EX_LAYERED
        SetWindowLong hWnd, GWL_EXSTYLE, WinInfo
    End If
End Sub

So und damit ihr den dann in eurer Form aktivieren könnt muss noch der Code

Private Sub Form_Load()
Call Mache_Transparent(Me.hWnd, 190) ' Macht das fenster Transperent, 190 ist ein guter wert
End Sub

einfügen.

Wahlweise könnt ihr das natürlich auch auf zwei Button legen wobei ihr immer bedenken müsste das 0 = durchsichtig und 254 = normal ist

Hier ist das ganze sonst auch nochmal als vb6 projekt für die die z.B. nicht wissen wie man ein Modul erstellt

Hoffe euch gefällts, und bitte nicht rumjamern das der Code nicht von mir ist, er ist NICHT von mir habe ihn über google gefunden und dachte das ich ihn mit euch teile

Grüße

[mo1c]

Cool THX... habe schon wie ein Plöder danach gesucht!

gruß,
mo1c

Added after 88 hours 11 minutes:

Der zeigt mir auf einmal das an:

"hWnd" ist kein Member von "thandorpack.Form1".

Aber davor ging es noch... Kann mir jemand weiter Helfen?

[staebche]

bin bissl zu dämlich dafür
gibts jemanden der mir das
schnell über teamviewer oder
icq erklären könnte?!

[L!x]

Das müsste dir vlt helfen
http://archiv.vb-x.org/viewtopic.php?t=2552

[mo1c]

Also das scheint ja für VB6 zu sein... habe mal nach einer Lösung für VB .NET gesucht und sihe da es ist ja tatsächlich nur eine Zeile.

Ich versuche seit Wochen rum und dabei ist es nur eine plöde kleiner Zeile...


Me.Opacity = 0.5

[BadboyGER]

@ mo1c :

Was hat jetzt dieser Beitrag gebracht ? Poste nicht solche dummen Beiträge.

1. Ist das hier nicht die richtige Sction
2. Wenn du seit Wochen für eine Lösung suchst die nur eine Zeile ist und auch in der MSDN-Library ist ist das echt arm.

MfG.
BadboyGER

[scherz]

Also das scheint ja für VB6 zu sein... habe mal nach einer Lösung für VB .NET gesucht und sihe da es ist ja tatsächlich nur eine Zeile.

Ich versuche seit Wochen rum und dabei ist es nur eine plöde kleiner Zeile...


Me.Opacity = 0.5

Danke

[ZoX]

kannste das pls auch für win. Vista machen?