Salce come faccio a rendere opaca una form figlia di una mdiform in vb6?
Grazie
Moderatori: Anthony47, Triumph Of Steel, archimede
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
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
SetLayeredWindowAttributes Form1.hWnd, 0, 0, LWA_COLORKEY
End Sub
Formattazione testo in grassetto in una textbox di una form Autore: deniel69 |
Forum: Applicazioni Office Windows Risposte: 4 |
rendere Win10 più stabile, veloce e sicuro Autore: MarioLombardi |
Forum: Sistemi Operativi Windows Risposte: 4 |
Visual Studio C#. Passaggio dati tra un Form e l'altro. Autore: pacifico |
Forum: Programmazione Risposte: 1 |
Visitano il forum: Nessuno e 7 ospiti