Form rectangulaire avec bords arrondis

Soyez le premier à donner votre avis sur cette source.

Snippet vu 4 950 fois - Téléchargée 38 fois

Contenu du snippet

J'ai utilisé un code sur le site et je l'ai simplifié ;)

Source / Exemple :


'Dans la feuille :
Private Sub Form_Load()
  Dim lReigon As Long
  Dim lResult As Long
  lReigon = CreateRoundRectRgn(0, 0, Me.Width / 15, Me.Height / 15, 15, 15)
  'Vous pouvez modifier les deux 15 a la fin pour arrondir plus ou moins
  lResult = SetWindowRgn(Me.hWnd, lReigon, True)
End Sub

'Dans un module
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
Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long

Conclusion :


N'allez pas dire que c compliqué !

A voir également

Ajouter un commentaire

Commentaires

DHKold
Messages postés
153
Date d'inscription
vendredi 6 décembre 2002
Statut
Membre
Dernière intervention
29 mai 2005
-
... (J'utilise ceci pour tous mes progs ;-)
Tu devrais montrer comment faire des forms triangulaires etc...
DuncanIdaho
Messages postés
98
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
12 février 2008
-
Je l'ai pris sur ce code : [url]http://www.vbfrance.com/article.aspx?Val=609/url

Mais g mis ce code pour que qqn qui sait pas comment faire puisse le retrouver sans ce casser la tete avec les autres exemples ;)
cs_LordBob
Messages postés
2865
Date d'inscription
samedi 2 novembre 2002
Statut
Membre
Dernière intervention
11 mai 2009
8 -
tu aurrai du faire une capture pour ke l'on voit mieux ce ke ca donne...
DuncanIdaho
Messages postés
98
Date d'inscription
mardi 1 janvier 2002
Statut
Membre
Dernière intervention
12 février 2008
-
C fait... un ptit prog que je suis en train de faire pour surveiller ma consommation ;)
drissoun
Messages postés
10
Date d'inscription
samedi 18 janvier 2003
Statut
Membre
Dernière intervention
27 juin 2004
-
Ca aurait été encore mieux si tu ns expliquait comment on pourai faire pour arondir seulement les coins que le choisi . Sinon c sympas

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.