Modifier la forme des objects (boutons, form) au run time

Télécharger le projet
Commenter

Description

1)Modifier la forme des objects (Boutons, Form) au run time
Transformer un bouton en flèches, étoile etc.
Voir le fichier RTF joint qui explique la méthode.
2) Dessins sur la form à partir de GraphicsPath
Lire le fichier RTF pour explications sur le calcul des points

Source / Exemple : 


' transforme le bouton en flèche droite 
Dim pts() As Point = { _
            New Point(15, 15), _
            New Point(45, 15), _
            New Point(45, 5), _
            New Point(75, 25), _
            New Point(45, 45), _
            New Point(45, 35), _
            New Point(15, 35)}

        ' Création du GraphicsPath.
        Dim polygon_path As New GraphicsPath(FillMode.Alternate)

        polygon_path.AddPolygon(pts)
        ' Converti le GraphicsPath en une Region.
        Dim polygon_region = New Region(polygon_path)

        ' Limite le bouton à la région.
        Button1.Region = polygon_region

        ' Fait que le bouton remplit la région.
        Button1.SetBounds(Button1.Location.
        X, Button1.Location.Y, pts(3).X + 5, pts(4).Y + 5)
' j'aurai pu mettre Button1.SetBounds(Button1.Location.
'                         X, Button1.Location.Y,80,50)

Conclusion :


La provenance de ce code est en partie personnelle + MSDN + du Net.
Je remercie tous ceux qui y ont contribué.
Télécharger le projet

Codes Sources

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_labout)