Forme irregulière tutorial

5/5 (7 avis)

Vue 7 962 fois - Téléchargée 820 fois

Description

Cela explique comment faire des formes irreguliere
(C'est pas de moi , c'est ce qui m'a permis de l'apprendre ya qq temps et je l'ai retrouvé auzourdui)

Source / Exemple :


'Voilà :

'Pour faire des fenêtres non-rectangulaire, on doit d'abord
'créer une Région : c'est comme une sorte de dessin à deux
'couleurs (plein ou vide) que l'on va ensuite appliquer à une
'fenêtre.

'Les zones de la fenêtre correspondant à le couleur "plein"
'seront visibles.
'Celles correspondant à la couleur "vide" seront invisibles.

'Les zones crée sont identifiées grace à leur Handle. Il sagit
'd'un numéro unique attribué pour identifier tous les objets :
'Boutons, Fenêtres, Régions, TextBox, etc.

'//////////////////////////////////////////////////////////////
'//                    CREER DES REGIONS                     //
'//////////////////////////////////////////////////////////////

' Pour Créer des régions il faut utiliser une des fonctions
' suivante :
'(Les coordonnée des points sont exprimées en pixels)

'CREER DES RECTANGLES
'Pour créer un région en forme de rectangle :

Declare Function CreateRectRgn Lib "gdi32" ( _
ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long) _
As Long
'X1 et Y1 indiquent les coordonnées du coin supérieur droit
'X2 et Y2 indiquent les coordonnées du coin inférieur gauche
'Cette fonction revoie le Handle de la région crée

'CREER DES ELLIPSES
'Pour créer une région en forme d'ellipse :

Declare Function CreateEllipticRgn Lib "gdi32" ( _
ByVal X1 As Long, _
ByVal Y1 As Long, _
ByVal X2 As Long, _
ByVal Y2 As Long) _
As Long
'Cette fonction crée une ellipse qui rentre dans le rectangle
'formée avec les coordonées X1, X2, Y1, Y2
'Cette fonction revoie le Handle de la région crée

'CREER DES POLYGONES
'Pour créer une région ayant la forme d'un polygone
Declare Function CreatePolygonRgn Lib "gdi32" ( _
lpPoint As POINTAPI, _
ByVal nCount As Long, _
ByVal nPolyFillMode As Long _
) As Long

'lpPoint est un tableau désignant les coins du polygone
'Il est de type POINTAPI :
Type POINTAPI
        X As Long
        Y As Long
End Type

'nCount désigne le nombre de coins du polygone.

'nPolyFillMode désigne le mode de remplissage.
'tu peux utiliser les constantes suivantes
Public Const ALTERNATE = 1
Public Const WINDING = 2
'J'avoue que je ne comprend pas la différence entre les deux,
'Tu peut mettre 1, ça marche bien.

'//////////////////////////////////////////////////////////////
'//                  COMBINER DES REGIONS                    //
'//////////////////////////////////////////////////////////////

'Maintenant que nous pouvons créer des régions, voici comment
'les combiner pour créer des régions complexes.

'Il faut utiliser la fonction :

Declare Function CombineRgn Lib "gdi32" ( _
ByVal hDestRgn As Long, _
ByVal hSrcRgn1 As Long, _
ByVal hSrcRgn2 As Long, _
ByVal nCombineMode As CombineMode _
) As Long

'hDestRgn désigne le Handle de la région de destination.
'/--------------------------------------------------------\
'|ATTENTION : POUR QUE CELA FONCTIONNE, IL FAUT ABSOLUMENT|
'|QUE LA REGION SOIT DEJA INITIALISEE A L'AIDE D'UNE DES  |
'|FONCTIONS VUE CI-DESSUS.                                |
'\--------------------------------------------------------/

'hSrcRgn1 désigne le Handle de la première Région à combiner
'hSrcRgn2 désigne le Handle de la deuxième Région à combiner

'nCombineMode désigne le mode utilisé pour la Combinaison
'Tu peux utiliser une des constantes suivante :

Public Enum CombineMode
    RGN_AND = 1  ' Créé l'intersection des deux
                 'régions
    RGN_COPY = 5 ' Copie la Région1
    RGN_DIFF = 4 ' Combine les parties de Région1
                 'qui ne font pas partie de région2
    RGN_OR = 2   ' Créé l'union des deux régions
    RGN_XOR = 3  ' Créé l'union des deux régions à
                 'laquelle on enleve l'intersection
                 'des deux régions
End Enum

'//////////////////////////////////////////////////////////////
'//                  APPLIQUER DES REGIONS                   //
'//////////////////////////////////////////////////////////////

'Pour appliquer une région à une fenêtre, on utilise la
'fonction suivante :

Declare Function SetWindowRgn Lib "user32" ( _
ByVal hwnd As Long, _
ByVal hRgn As Long, _
ByVal bRedraw As Boolean _
) As Long

'hWnd indique le Handle de la fenêtre à laquelle on veut
'appliquer la région.

'hRgn indique le Handle de la région à appliquer.

'bRedraw indique s'il faut redessiner la fenêtre.
         'Mettre True si la fenêtre est visible
         'On peut mettre False si elle est cachée.

'Note : On peut utiliser cette fonction avec le handle d'un
'contrôle au lieu de celui d'une Fenêtre

'//////////////////////////////////////////////////////////////
'//                  SUPPRIMER DES REGIONS                   //
'//////////////////////////////////////////////////////////////

'Une fois que l'on a plus besoin de la région, il faut la
'supprimer pour libérer de la mémoire.

'Pour cela, on peut utiliser la fonction :

Declare Function DeleteObject Lib "gdi32" ( _
ByVal hObject As Long _
) As Long

'hObject désigne le Handle de la région à supprimer.

'ATTENTION  : NE PAS SUPPRIMER UNE REGION QUI EST APPLIQUEE
'A UNE FENETRE. CELA AURAIT POUR EFFET DE LAISSER LA FENETRE
'IMPRIMEE SUR LE BUREAU (CA FAIT PAS BEAU)

Exemple:
'Creation d'une fenêtre en forme de smiley

'Pour l'utiliser, ajoutez simplement ce module
'à votre projet.
'Puis, utilisez la syntaxe :

'Smiley form

'une fois la sub lancée, la variable publique 'leSmiley'
'renvoie le handle de la région utilisée

'AVERTISSEMENT:
'Ce module nécessite le module 'Regions.bas'
'(du même auteur) pour fonctionner

'Pour toutes questions ou suggestions, n'hésitez pas
'à me mailer.

Option Explicit
Dim leSmiley As Long

Sub Smiley(obj As Form)

'////////////////
'/Initialisation/
'////////////////

Dim X As Long, Y As Long
X = obj.Width / Screen.TwipsPerPixelX
Y = obj.Height / Screen.TwipsPerPixelY

'Formes de bases
Dim Grond As Long
Dim Gsmile As Long
Dim Psmile As Long
Dim Rect As Long
Dim eyeG As Long
Dim eyeD As Long

'Formes complexes
Dim Bouee As Long
Dim leSmile As Long
Dim Yeux As Long
Dim Tete As Long
Dim LesPoints(0 To 4) As POINTAPI

'////////////////////////////////
'/Creation des formes de bases :/
'////////////////////////////////
Grond = CreateEllipticRgn(0, 0, X, Y)
Gsmile = CreateEllipticRgn(Int(X / 10), Int(Y / 10), Int(X * 9 / 10), Int(Y * 9 / 10))
Psmile = CreateEllipticRgn(Int(X * 2 / 10), Int(Y * 4 / 10), Int(X * 8 / 10), Int(Y * 8 / 10))
LesPoints(0).X = 0
LesPoints(0).Y = 0
LesPoints(1).X = X
LesPoints(1).Y = 0
LesPoints(2).X = X
LesPoints(2).Y = Int(Y * 8 / 10)
LesPoints(3).X = Int(X / 2)
LesPoints(3).Y = Int(Y / 2)
LesPoints(4).X = 0
LesPoints(4).Y = Int(Y * 8 / 10)
Rect = CreatePolygonRgn(LesPoints(0), 5, 1)
eyeG = CreateEllipticRgn(Int(X * 2 / 10), Int(Y * 3 / 10), Int(X * 4 / 10), Int(Y * 5 / 10))
eyeD = CreateEllipticRgn(Int(X * 6 / 10), Int(Y * 3 / 10), Int(X * 8 / 10), Int(Y * 5 / 10))

'///////////////////////////////
'/Creation des formes complexes/
'///////////////////////////////

'Initialisation des régions
Bouee = CreateEllipticRgn(0, 0, X, Y)
leSmile = CreateEllipticRgn(0, 0, X, Y)
Yeux = CreateEllipticRgn(0, 0, X, Y)
Tete = CreateEllipticRgn(0, 0, X, Y)
leSmiley = CreateEllipticRgn(0, 0, X, Y)

'Compilation des régions
CombineRgn Bouee, Gsmile, Psmile, RGN_DIFF
CombineRgn leSmile, Bouee, Rect, RGN_DIFF
CombineRgn Yeux, eyeG, eyeD, RGN_OR
CombineRgn Tete, Grond, Yeux, RGN_DIFF
CombineRgn leSmiley, Tete, leSmile, RGN_DIFF

'////////////
'/Conclusion/
'////////////

'Suppression des régions inutiles
DeleteObject Grond
DeleteObject Gsmile
DeleteObject Psmile
DeleteObject Rect
DeleteObject eyeG
DeleteObject eyeD
DeleteObject Bouee
DeleteObject leSmile
DeleteObject Yeux
DeleteObject Tete

'Application de la région
SetWindowRgn obj.hwnd, leSmiley, True

End Sub

Dans le load 
Smiley me

Conclusion :


ZIPZIPZIZPIZPZIPZIZPIZPIZPIZP

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
30 avril 2004 à 19:56
Tu as l'evenement de l'objet clique, de toute facon....

Form_Click, par exemple....

Est-ce que tu ne voudrais pas, en fait tester si tu cliques dans un région précise ?
krissssss Messages postés 88 Date d'inscription jeudi 26 décembre 2002 Statut Membre Dernière intervention 2 janvier 2007
30 avril 2004 à 17:32
Comment peut-on créer un évènement pour une région ?
(Comme OnClick)
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 71
9 déc. 2003 à 13:46
On peux utiliser SetWindowRgn sur toutes les fenetres, ou les composants qui derivent de la classe fenetre. Ca inclue tout, même les controles perso..... (tout ce qui as un hWnd : boutons, pictureBox.....)
jpujol95 Messages postés 60 Date d'inscription dimanche 20 octobre 2002 Statut Membre Dernière intervention 5 septembre 2004 1
6 sept. 2003 à 16:26
savez vous si avec cette méthode on peut Arrondir les bords d'un active x que g créé moi meme???
Si qqun pouvait m'expliquer merci davance
sinon c tres bien expliqué ton truc merci !
ouais, je connais ca, g la mémé chose ;-)
g du le chopé sur un autre site.
pi en plus tu l'as compléter,
c cool 8)
Afficher les 7 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.