× Aktuálně z oboru

Programátoři po celém světě dnes slaví Den programátorů [ clanek/2018091300-programatori-po-celem-svete-dnes-slavi-den-programatoru/ ]
Celá zprávička [ clanek/2018091300-programatori-po-celem-svete-dnes-slavi-den-programatoru/ ]

Průhledné okno ve VB6

[ http://programujte.com/profil/618-jan-maly/ ]Google [ :?rel=author ]       [ http://programujte.com/profil/20356-josef-vitu/ ]Google [ ?rel=author ]       29. 1. 2007       16 024×

Chcete mít také průhledné okno u svých aplikací naprogramovaných ve Visual Basic 6?

Visual Basic nemá žádnou vlastnost opacity (ta je myslím u VB.NET a VB 2005), proto budeme muset využít API funkcí. Chtěl bych upozornit, že tento příklad funguje jen ve Windows 2000 a novějších. To znamená, že ve Windows 9x či ME fungovat nebude.

Vložíme následující zdrojový kod:

Option Explicit
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000

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 crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long

Private Sub Form_Load()
Dim Ret As Long
'Nastavit okno stylu 'layered' (= vrstvený, navrstvený).   
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Nastavit neprůhlednost "vrstveného" okna na 128. 
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub

Číslo 128 v SetLayeredWindowAttributes znamená hodnotu krytí:

  • 0 - prakticky neviditelný formulář
  • 255 - klasický neprůhledný formulář

Ukázka nastavení průhlednosti na hodnotu 128 (na formuláři je umístěn TextBox).


Článek stažen z webu Programujte.com [ http://programujte.com/clanek/2007012003-pruhledne-okno-ve-vb6/ ].