Form rectangulaire avec bords arrondis

Soyez le premier à donner votre avis sur cette source.

Snippet vu 5 078 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

diablamanshadow
Messages postés
419
Date d'inscription
lundi 30 août 2004
Statut
Membre
Dernière intervention
28 janvier 2008

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

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

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

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

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.