cricri_b34
Messages postés223Date d'inscriptionmercredi 21 juillet 2004StatutMembreDernière intervention15 février 2006
-
4 août 2004 à 20:03
true_picpic
Messages postés34Date d'inscriptionmercredi 26 novembre 2003StatutMembreDernière intervention24 août 2004
-
5 août 2004 à 10:59
J'aimerais créer des fenêtre qui aurait des forme autre qu'un rectangle
Comment fait-on?
A voir également:
Comment créer une fenêtre de forme spéciale; non rectangulaire?
tmcuh
Messages postés458Date d'inscriptiondimanche 22 décembre 2002StatutMembreDernière intervention18 avril 2009 4 août 2004 à 20:44
'global
Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long 'arrondie la fenêtre
Declare Function SetWindowRgn Lib "user32" (ByVal hwnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long 'arrondie la fenetre
'local
Dim lReigon As Long
Dim lResult As Long
'*********************************
lReigon = CreateRoundRectRgn(0, 0, Me.Width / 15, Me.Height / 15, 50, 50)
lResult = SetWindowRgn(Me.hwnd, lReigon, True)