Pues eso ya fue posteado pero te dejo este code k fue yo k lo hice...este tema me ha interessado
En la form1:
Option Explicit
Private Sub HScroll1_Scroll()
SetForm Me, HScroll1.Value
Label3.Caption = HScroll1.Value - 155
End Sub
El total es 255 pero vamos a poner (-155) para k sea de 0 a 100 (esto kiere decir k en el scroll de transparencia vas a poner min = 155 y max = 255
En el module1:
Global Const GWL_EXSTYLE = (-20)
Global Const WS_EX_LAYERED = &H80000
Global Const LWA_ALPHA = &H2
Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hWnd As Long, ByVal crKey As Long, ByVal bAlpha As Byte, ByVal dwFlags As Long) As Long
Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hWnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Public Sub SetForm(Window As Form, Optional ByVal x As Byte = 255)
SetWindowLong Window.hWnd, GWL_EXSTYLE, WS_EX_LAYERED
SetLayeredWindowAttributes Window.hWnd, 0, x, LWA_ALPHA
End Sub
Tienes k anadir a la form1 el seguiente:
- 3 labels:una k dice "T" (transparent) otra k dice "O" (opaque) y otra k dice "100"
- 1 Hscrollbar: min = 155 max = 255 value = 255
Si tu objectivo es tener siempre transparencia activa buen pienso k puedes hacerlo solo con este code
salu2
Autor