Search Tools Links Login

Translucent Windows - Simpler


Visual Basic 6, or VB Classic

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

Original Author: Marcelo Ferreira

Code

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 90 times

Categories

Visual Basic 6

Attachments

No attachments for this post


Loading Comments ...

Comments

No comments have been added for this post.

You must be logged in to make a comment.