1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
Sujet Précédent Sujet Suivant

Fenetre avec bordure pas droite

cs_Seifer Messages postés 1 Date d'inscription vendredi 4 octobre 2002 Statut Membre Dernière intervention 4 octobre 2002 - 4 oct. 2002 à 22:30
paul228 Messages postés 1 Date d'inscription mardi 27 mai 2003 Statut Membre Dernière intervention 20 juin 2003 - 20 juin 2003 à 09:53
Comment je fais une fenetre avec une forme plus ou moin arrondi? J'ai essayer avec le script

""FORM AU BORDS IRREGULIERS(TRANSPARENCE) A PARIR D'UNE IMAGE !!! (PRATIQUE POUR LES SKINS)""

mais ya seulement les bandes du haut et du bas de mon image qui apparaisse =\ Et j'ai pas trouver d'autre script

(J'ai VB 6)

2 réponses

Réponse 1 / 2
cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
5 oct. 2002 à 00:46
il y a quelques apis utiles pour cela, voici un exemple :

'**************************************

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

'dans la procédure form_load
Dim rndrectangle
Dim frmApplique

rndrectangle = CreateRoundRectRgn(1, 1, 900, 660, 20, 20)
frmApplique = SetWindowRgn(Me.hwnd, rndrectangle, False)

'**************************************

voilà ça fait une forme en rectangle arrondi de 990 par 660 avec des coins coupés à 20 chaque coté...essaie cela sur une résolution assez grande (pas 800 par 600 évidemment) tu verras ça marche très bien....

a+ raff
0
Réponse 2 / 2
paul228 Messages postés 1 Date d'inscription mardi 27 mai 2003 Statut Membre Dernière intervention 20 juin 2003
20 juin 2003 à 09:53
Je n'arrive pas à faire tourner ton programme: peut-être faut il changer des propriétés de la form?

Paul
(pbeziau@rennes.cci.fr)
0
Rejoignez-nous