Index du Forum




 FAQFAQ   RechercherRechercher   MembresMembres   GroupesGroupes   S’enregistrerS’enregistrer 
 ProfilProfil   Se connecter pour vérifier ses messages privésSe connecter pour vérifier ses messages privés   ConnexionConnexion 

Divers exemples pour dessiner sur une fenêtre

 
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code
Sujet précédent :: Sujet suivant  
Auteur Message
Dayvid
Administrateur

Hors ligne

Inscrit le: 24 Oct 2012
Messages: 89
Localisation: Vienne - Poitiers (86000)
Masculin Lion (24juil-23aoû)
Point(s): 107
Moyenne de points: 1,20

MessagePosté le: Jeu 26 Sep 2013 - 10:32    Sujet du message: Divers exemples pour dessiner sur une fenêtre Répondre en citant

Salut,

Voici divers exemples pour dessiner sur une fenêtre des formes (A noter que ces exemples ne sont pas de moi et sont présents dans Visual Basic dans les extraits):

Pour commencer, nous allons utiliser cette ligne de code:
Code:
Imports System.Drawing.Drawing2D


Comment dessiner une ligne ?:
Code:
' Déssine une ligne diagonal
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawLine(MonCrayon, 10, 10, 50, 50) ' X, Y, Largeur, Hauteur
        End Using


Comment dessiner un rectangle ?:

Vide:
Code:
' Déssine un rectangle vide
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawRectangle(MonCrayon, New Rectangle(10, 60, 50, 50)) ' X, Y, Largeur, Hauteur
        End Using


Plein:
Code:
' Déssine un rectangle plein
        Using MaBrosse As New SolidBrush(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.FillRectangle(MaBrosse, New Rectangle(10, 120, 50, 60)) ' X, Y, Largeur, Hauteur
        End Using


Comment dessiner une ellipse ?:

Vide:
Code:
' Déssine une éllipse vide
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawEllipse(MonCrayon, New Rectangle(10, 190, 50, 60)) ' X, Y, Largeur, Hauteur
        End Using


Pleine:
Code:
' Déssine une éllipse pleine
        Using MaBrosse As New SolidBrush(Color.Red)
            Using GraphiqueFenêtre = Me.CreateGraphics()
                GraphiqueFenêtre.FillEllipse(MaBrosse, New Rectangle(10, 260, 50, 60)) ' X, Y, Largeur, Hauteur
            End Using
        End Using


Comment dessiner du texte ?:
Code:
' Déssine un texte
        Dim FormatTexte As New StringFormat()

        Using MonGraphique As Graphics = Me.CreateGraphics(), MaPolice As New System.Drawing.Font("Arial", 16), MaBrosse As New SolidBrush(Color.Red)
            ' Pour déssiner le texte verticallement, utilisez -> FormatTexte.FormatFlags = StringFormatFlags.DirectionVertical
            MonGraphique.DrawString("Hello", MaPolice, MaBrosse, 10.0, 330.0, FormatTexte)
        End Using


Comment dessiner un rectangle dégradé ?:
Code:
' Déssine un rectangle dégrader
        Dim MonRectangle As New Rectangle(10, 360, 60, 50) ' X, Y, Largeur, Hauteur

        Using MonObjetGraphique = Me.CreateGraphics()
            Using BrosseGradient As New LinearGradientBrush(MonRectangle, Color.Red, Color.Yellow, LinearGradientMode.Horizontal) ' LinearGradientMode peut être changé pour utiliser un autre style de rendus
                MonObjetGraphique.FillRectangle(BrosseGradient, MonRectangle)
            End Using
        End Using


Et pour finir, un petit exemple en guise d'amuse-gueule (Il faudra mettre un bouton sur votre fenêtre):
Code:
Imports System.Drawing.Drawing2D

Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        ' Déssine une ligne diagonale
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawLine(MonCrayon, 10, 10, 50, 50) ' X, Y, Largeur, Hauteur
        End Using

        ' Déssine un rectangle vide
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawRectangle(MonCrayon, New Rectangle(10, 60, 50, 50)) ' X, Y, Largeur, Hauteur
        End Using

        ' Déssine un rectangle plein
        Using MaBrosse As New SolidBrush(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.FillRectangle(MaBrosse, New Rectangle(10, 120, 50, 60)) ' X, Y, Largeur, Hauteur
        End Using

        ' Déssine une éllipse vide
        Using MonCrayon As New Pen(Color.Red), MonGraphique As Graphics = Me.CreateGraphics()
            MonGraphique.DrawEllipse(MonCrayon, New Rectangle(10, 190, 50, 60)) ' X, Y, Largeur, Hauteur
        End Using

        ' Déssine une éllipse pleine
        Using MaBrosse As New SolidBrush(Color.Red)
            Using GraphiqueFenêtre = Me.CreateGraphics()
                GraphiqueFenêtre.FillEllipse(MaBrosse, New Rectangle(10, 260, 50, 60)) ' X, Y, Largeur, Hauteur
            End Using
        End Using

        ' Déssine un texte
        Dim FormatTexte As New StringFormat()

        Using MonGraphique As Graphics = Me.CreateGraphics(), MaPolice As New System.Drawing.Font("Arial", 16), MaBrosse As New SolidBrush(Color.Red)
            ' Pour déssiner le texte verticallement, utilisez -> FormatTexte.FormatFlags = StringFormatFlags.DirectionVertical
            MonGraphique.DrawString("Hello", MaPolice, MaBrosse, 10.0, 330.0, FormatTexte)
        End Using

        ' Déssine un rectangle dégradé
        Dim MonRectangle As New Rectangle(10, 360, 60, 50) ' X, Y, Largeur, Hauteur

        Using MonObjetGraphique = Me.CreateGraphics()
            Using BrosseGradient As New LinearGradientBrush(MonRectangle, Color.Red, Color.Yellow, LinearGradientMode.Horizontal) ' LinearGradientMode peut être changé pour utiliser un autre style de rendus
                MonObjetGraphique.FillRectangle(BrosseGradient, MonRectangle)
            End Using
        End Using

    End Sub

End Class

_________________
Le respect n'est pas en option, mais une obligation !
Je serai intransigeant sur ce point-ci !

Veuillez s'il vous plait, aider les membres du mieux que vous le pouvez,
mais ne faites pas tout à leur place non plus, car ce n'est pas les aider !
La programmation est déjà assez difficile comme ça !


Revenir en haut
Publicité






MessagePosté le: Jeu 26 Sep 2013 - 10:32    Sujet du message: Publicité

PublicitéSupprimer les publicités ?
Revenir en haut
Montrer les messages depuis:   
Poster un nouveau sujet   Répondre au sujet     Index du Forum -> Visual Basic.Net -> Exemples de code Toutes les heures sont au format GMT + 2 Heures
Page 1 sur 1

 
Sauter vers:  

Index | Creer un forum | Forum gratuit d’entraide | Annuaire des forums gratuits | Signaler une violation | Conditions générales d'utilisation
Powered by phpBB © 2001, 2005 phpBB Group
Traduction par : phpBB-fr.com