"Clément" a écrit dans le message de news:IHdWb.11271$
Bonjour, je désirerais créer une form qui ne soit pas rectangulaire : à partir
d'une
image représentant un cercle par exemple.Comment faire ?
Merci
surfeur75
Bonjour,
Voici, il faut jouer sur les 4 valeurs de CreatEllipticRgn pour changer l'apparence...
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Sub Form_Load()
Show SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub
-- @+, bye, Joe. Pour m'écrire ng75AROBASEnoosPOINTfr remplace AROBASE et POINT par leur vrai signe Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"Clément" a écrit dans le message de news: IHdWb.11271$
Bonjour, je désirerais créer une form qui ne soit pas rectangulaire : à partir
d'une
image représentant un cercle par exemple.Comment faire ?
Merci
Bonjour,
Voici, il faut jouer sur les 4 valeurs de CreatEllipticRgn pour changer
l'apparence...
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long,
ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long,
ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Sub Form_Load()
Show
SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub
--
@+, bye, Joe.
Pour m'écrire ng75AROBASEnoosPOINTfr
remplace AROBASE et POINT par leur vrai signe
Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"Clément" <rusheraquatic@ifrance.com> a écrit dans le message de news:
IHdWb.11271$zm5.6097@nntpserver.swip.net...
Bonjour,
je désirerais créer une form qui ne soit pas rectangulaire : à partir
d'une
image représentant un cercle par exemple.Comment faire ?
Voici, il faut jouer sur les 4 valeurs de CreatEllipticRgn pour changer l'apparence...
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal X1 As Long, ByVal Y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Sub Form_Load()
Show SetWindowRgn hWnd, CreateEllipticRgn(0, 0, 300, 200), True
End Sub
-- @+, bye, Joe. Pour m'écrire ng75AROBASEnoosPOINTfr remplace AROBASE et POINT par leur vrai signe Il l'a fait car il ne savait pas que c'était impossible, alea jacta est!
"Clément" a écrit dans le message de news: IHdWb.11271$
Bonjour, je désirerais créer une form qui ne soit pas rectangulaire : à partir
d'une
image représentant un cercle par exemple.Comment faire ?
