Strona główna › 7_2009-2012 › Translucent Windows - Simpler
Advertisement
7_2009-2012 Custom Controls/ Forms/ Menus #232929

Translucent Windows - Simpler

Marcelo Ferreira
★★★★★
4.8 · Pobrania: 2,341

Creates a translucent window. No DLL/OCX, No flick, No Static, No headache !! You create a new form, copy and paste into General Declarations section, and [F5]... " Já foi pra conta!" It's done... >

AI

Podsumowanie AI: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Kod źródłowy
original-source 
Option Explicit
Private Declare Function 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 crey As Byte, ByVal bAlpha As Byte, _
 ByVal dwFlags As Long) As Long
Private Const Estilo = (-20)
Private Const Camada = &H80000
Private Const CorAlpha = &H2&
'-------------------
Private Sub Form_Load()
  Dim AntigoEstilo As Long
  Dim Nivel As Byte ' Transparency (0 - 255)
  Nivel = 180
  AntigoEstilo = GetWindowLong(Me.hwnd, Estilo)
  SetWindowLong Me.hwnd, Estilo, AntigoEstilo Or Camada
  SetLayeredWindowAttributes Me.hwnd, 0, Nivel, CorAlpha
End Sub
Oryginalne komentarze (3)
Odzyskane z Wayback Machine