Form rectangulaire avec bords arrondis

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 450 fois - Téléchargée 41 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
diablamanshadow Messages postés 419 Date d'inscription lundi 30 août 2004 Statut Membre Dernière intervention 28 janvier 2008
19 avril 2007 à 19:16
je date un peu mais je dit joli je recherchais un ptit code du genre que j'ai paumer dans un formatage ;-) et celui ci 4 lignes nikel encore mieux que l'ancien qui en prennais le double ^^

pour la barre avec le x bah suffit de mettre border a 0 , de mettre une picturebox pour la barre + une deuxieme picture en forme croix de mettre sur la croix end ou unload me et sur la barre un code en regx et regy pour le deplacement ^^
DuncanIdaho Messages postés 98 Date d'inscription mardi 1 janvier 2002 Statut Membre Dernière intervention 12 février 2008
8 août 2003 à 21:27
Pour la barre, g mis dans les propriétés de la fom BorderStyle = 0 none.

Pour le fond, je l'ai fait avec Xara WebStyle 2.0 je crois :)
cs_vinc Messages postés 32 Date d'inscription jeudi 19 décembre 2002 Statut Membre Dernière intervention 11 octobre 2003
4 août 2003 à 08:56
Tu pourrait me dire comment (dans ta capture) tu fait pour enlever la barre avec le X et le nom de la form
et comment tu mais cest belle couleur comme font svp
vinc
drissoun Messages postés 10 Date d'inscription samedi 18 janvier 2003 Statut Membre Dernière intervention 27 juin 2004
28 mars 2003 à 22:21
Ca aurait été encore mieux si tu ns expliquait comment on pourai faire pour arondir seulement les coins que le choisi . Sinon c sympas
DuncanIdaho Messages postés 98 Date d'inscription mardi 1 janvier 2002 Statut Membre Dernière intervention 12 février 2008
1 janv. 2003 à 14:18
C fait... un ptit prog que je suis en train de faire pour surveiller ma consommation ;)
Afficher les 8 commentaires

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.