Sujet Précédent Sujet Suivant

Transaparente

Résolu
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006 - 24 nov. 2005 à 21:23
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006 - 24 nov. 2005 à 22:27
salut tout le monde, es ce je peux faire une form a 50% transparente pour Spalsh Screen. thanks

2 réponses

Réponse 1 / 2
PCPT Messages postés 13272 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 3 février 2018 47
24 nov. 2005 à 22:19
salut,
tu demandes notre permission?

[VB6] W2K+


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()
'KPD-Team 2000
'URL: http://www.allapi.net/
'E-Mail: KPDTeam@Allapi.net
Dim Ret As Long
'Set the window style to 'Layered'
Ret = GetWindowLong(Me.hWnd, GWL_EXSTYLE)
Ret = Ret Or WS_EX_LAYERED
SetWindowLong Me.hWnd, GWL_EXSTYLE, Ret
'Set the opacity of the layered window to 128

' 0 à 255, pour 255 = 100% opaque
SetLayeredWindowAttributes Me.hWnd, 0, 128, LWA_ALPHA
End Sub


<SMALL> Coloration syntaxique automatique [AFCK]</SMALL>


PCPT [AFCK]
3
Réponse 2 / 2
zido85 Messages postés 14 Date d'inscription mardi 15 mars 2005 Statut Membre Dernière intervention 18 février 2006
24 nov. 2005 à 22:27
merci beaucoup ami
0
Rejoignez-nous