Průhledné okno ve VB6
 x   TIP: Přetáhni ikonu na hlavní panel pro připnutí webu
Reklama

Průhledné okno ve VB6Průhledné okno ve VB6

 
Hledat
Moderní platforma pro vytvoření vašeho nového webu – Wix.com.
Nyní už můžete mít web zdarma.
Vybavení pro Laser Game
Spuštěn Filmový magazín
Laser Game Brno

Průhledné okno ve VB6

Google       Google       29. 1. 2007       14 150×

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

Reklama
Reklama

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).

×Odeslání článku na tvůj Kindle

Zadej svůj Kindle e-mail a my ti pošleme článek na tvůj Kindle.
Musíš mít povolený příjem obsahu do svého Kindle z naší e-mailové adresy kindle@programujte.com.

E-mailová adresa (např. novak@kindle.com):

TIP: Pokud chceš dostávat naše články každé ráno do svého Kindle, koukni do sekce Články do Kindle.

Hlasování bylo ukončeno    
0 hlasů
Google
(fotka) Jan MalýAutor programuje ve VB, HTML, CSS. Zajímá se o grafiku, fotografování
Web     Twitter     Facebook    

Nové články

Reklama
Reklama
Obrázek ke článku Jak fungoval internet ve vlaku během Train Hackathonu Kiwi.com?

Jak fungoval internet ve vlaku během Train Hackathonu Kiwi.com?

“Hackathon bez internetu?” posmívala se v komentářích pod pozvánkami na loňský #kiwicomtrainhack IT komunita napříč weby i sociálními sítěmi. Poznámky se zdály oprávněné, internetové připojení v českých vlacích má různou kvalitu a pořádat hackathon, na kterém je kvalitní internetové připojení základním požadavkem na organizátory, se zdálo být troufalé.

Hostujeme u Českého hostingu       ISSN 1801-1586       ⇡ Nahoru Webtea.cz logo © 20032018 Programujte.com
Zasadilo a pěstuje Webtea.cz, šéfredaktor Lukáš Churý