OVH Cloud OVH Cloud

design d'une form

3 réponses
Avatar
Davy Duriatti
Bonjour à tous,

J'aurais voulu savoir s'il est possible de changer la forme d 'une "Form"
sous vb 6, afin de s'affranchir du classique rectangle...

Merci beaucoup pour vos réponses,

Davy

3 réponses

Avatar
Zoury
Salut Davy! :O)

Regarde du côté de l'API SetWindowRegion.

Voici un exemple extrait de l'exemple de l'API Guide.
'***
Option Explicit

Private Declare Function DeleteObject _
Lib "gdi32" _
( _
ByVal hObject As Long _
) As Long

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

Private Sub Form_Click()
Call Unload(Me)
End Sub

Private Sub Form_Load()

Dim hRgn As Long

hRgn = CreateEllipticRgn(0, 0, Me.Width / Screen.TwipsPerPixelX,
Me.Height / Screen.TwipsPerPixelY)
Call SetWindowRgn(Me.hWnd, hRgn, True)
Call DeleteObject(hRgn)

End Sub
'***

Donc en gros tu créer une région de la forme voulue et tu intialise modifie
la region de ta fenêtre par la suite.

--
Cordialement
Yanick Lefebvre - MVP pour Visual Basic
http://faq.vb.free.fr/?rubrique=0 - http://www.mvps.org/vbnet/
http://www.mentalis.org/agnet/apiguide.shtml - http://www.mztools.com/

Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Davy Duriatti" <davy.duriatti(enlever_ceci)@tiscali.fr> wrote in message
news:
Bonjour à tous,

J'aurais voulu savoir s'il est possible de changer la forme d 'une "Form"
sous vb 6, afin de s'affranchir du classique rectangle...

Merci beaucoup pour vos réponses,

Davy




Avatar
François Picalausa
Bonjour/soir,

jette un oeil à la FAQ:
http://faq.vb.free.fr/index.php?question5

--
François Picalausa (MVP VB)
FAQ VB : http://faq.vb.free.fr
MSDN : http://msdn.microsoft.com


"Davy Duriatti" <davy.duriatti(enlever_ceci)@tiscali.fr> a écrit dans
le message de news:
Bonjour à tous,

J'aurais voulu savoir s'il est possible de changer la forme d 'une
"Form" sous vb 6, afin de s'affranchir du classique rectangle...

Merci beaucoup pour vos réponses,

Davy


Avatar
Davy Duriatti
Merci beaucoup à vous !

Davy

"Davy Duriatti" <davy.duriatti(enlever_ceci)@tiscali.fr> a écrit dans le
message de news:
Bonjour à tous,

J'aurais voulu savoir s'il est possible de changer la forme d 'une "Form"
sous vb 6, afin de s'affranchir du classique rectangle...

Merci beaucoup pour vos réponses,

Davy