FEUILLE TRANSPARENTE
Nox
-
29 oct. 2001 à 14:13
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 8 juil. 2010 à 14:32
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 8 juil. 2010 à 14:32
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2040-feuille-transparente
https://codes-sources.commentcamarche.net/source/2040-feuille-transparente
8 juil. 2010 à 14:32
26 nov. 2009 à 16:45
16 mars 2009 à 20:18
Dans une form, ajouter un bouton Command1 de caption "Exit" par ex et copier ce code:
'Déclarations constantes API
Const LWA_COLORKEY = &H1
Const LWA_ALPHA = &H2
Const GWL_EXSTYLE = (-20)
Const WS_EX_LAYERED = &H80000
'Fonctions API
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 Command1_Click()
Unload Me
End Sub
'
Private Sub Form_Load()
Me.BackColor = RGB(255, 0, 255)
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, Me.BackColor, 0, LWA_COLORKEY
End Sub
Private Sub Form_Resize()
Command1.Left = (Me.Width - Command1.Width) / 2
Command1.Top = Me.ScaleHeight - Command1.Height - 50
End Sub
Je ne sais plus en fait où j'ai trouvé ce code ou s'il est de moi...
A toutes fins utiles...
31 mars 2008 à 20:45
31 mars 2008 à 20:45
play - stop - play - stop - play - stop - play - stop
Bon ben bah... 3/10 ?
7 oct. 2007 à 12:12
30 déc. 2005 à 14:32
30 nov. 2005 à 22:51
23 mai 2003 à 16:14
14 mai 2002 à 23:05
30 oct. 2001 à 00:47
30 oct. 2001 à 00:47
29 oct. 2001 à 14:13