Fenetre avec bordure pas droite

Messages postés
1
Date d'inscription
vendredi 4 octobre 2002
Statut
Membre
Dernière intervention
4 octobre 2002
-
Messages postés
1
Date d'inscription
mardi 27 mai 2003
Statut
Membre
Dernière intervention
20 juin 2003
-
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

Messages postés
182
Date d'inscription
dimanche 18 août 2002
Statut
Membre
Dernière intervention
5 janvier 2004
3
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
Messages postés
1
Date d'inscription
mardi 27 mai 2003
Statut
Membre
Dernière intervention
20 juin 2003

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)