cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010
-
9 févr. 2006 à 22:27
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010
-
10 févr. 2006 à 10:34
Slt,
Est ce normal que des que j'active la transparence sur une form mon processeur est utilisé à 100%. Si vous voulez le code pour comprendre dite le moi mais je comprend pas en quoi il amene mon processeur a faire fondre mon portable!!
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010 9 févr. 2006 à 22:56
Je précise que c'est un code récupéré sur VbFrance de je ne sais plus qui:
' déclaration pour fonction déplacement de la fenetre
' exemple de code :
' sub form_mousedown(...)
' ReleaseCapture
' SendMessage Me.hwnd, WM_NCLBUTTONDOWN, HTCAPTION, 0&
' endsub
Option Explicit
Public Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const HTCAPTION = 2
Public Const WM_NCLBUTTONDOWN = &HA1
Public Declare Function ReleaseCapture Lib "user32" () As Long ' et de la relacher
Public Declare Function GetPixel Lib "gdi32" (ByVal hDC As Long, ByVal X As Long, ByVal Y As Long) As Long
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
Public Function TransRegion(frm As Form, TranslucenceLevel As Byte, Crk As Long) As Boolean
'**************************************************
'fonction: creer un form transparante et aux forme iréguliere,
' à partir d'une image de fond de fenetre
'PARAMETERS:
' frm: la fenêtre
' TranslucenceLevel: valeur de 0 à 255 (0 complétement transparanet, 255 opaque)
' Crk: couleur a utilisée comme transparance totale pour créer les contours irréguliers
' EXEMPLE:
' Private Sub Form_Load()
' TranslucentForm Me, 128, Crk
' End Sub
cs_yvesyves
Messages postés561Date d'inscriptionsamedi 10 janvier 2004StatutMembreDernière intervention11 octobre 2010 10 févr. 2006 à 10:34
ben en fet, j'utilise ce code dans une application qui possede des controles. Mais je vous ai donné tous le code source. C'est un module. Je chage le transparence au formload de ma feuille principale.