CodeS-SourceS
Rechercher un code, un tuto, une réponse

Tracer un rectangle ou un cercle sur pocketpc 2002 avec .net

Soyez le premier à donner votre avis sur cette source.

Vue 23 948 fois - Téléchargée 1 500 fois


Description

Voici un petit exemple que je viens de faire, c'est la 1ère fois que je touche au compact Framework (j'ai pas de pocketPC... Mais rien n'est perdu mon anniversaire approche à ce qu'il parait :-p)
Donc pour l'occasion du lancement de pdafr.com j'ai essayé de faire mumuse avec le compact Framework.
C'est un régal vivement que je m'achète un PocketPC :-p
Cet exemple vous montre en Quelques lignes comment tracer un Rectangle plein ou un cercle plein dans un PictureBox
Langage utilisé : VB.NET
IDE : VS.NET 2003 Framework 1.1

Source / Exemple :


Private Sub BtnRectangle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnRectangle.Click
        Dim objBitMap As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim objGraphics As Graphics
        Dim MonRectable As Rectangle
        Dim MaBrush As Brush

        objGraphics = Graphics.FromImage(objBitMap)
        MonRectable = New Rectangle(10, 10, 100, 100)
        MaBrush = New SolidBrush(Color.Blue)
        objGraphics.Clear(Color.White)
        objGraphics.FillRectangle(MaBrush, MonRectable)
        Me.PictureBox1.Image = objBitMap
        objGraphics.Dispose()
        objGraphics = Nothing
    End Sub

    Private Sub BtnCercle_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtnCercle.Click
        Dim objBitMap As New Bitmap(PictureBox1.Width, PictureBox1.Height)
        Dim objGraphics As Graphics
        Dim MonRectable As Rectangle
        Dim MaBrush As Brush

        objGraphics = Graphics.FromImage(objBitMap)
        MonRectable = New Rectangle(10, 10, 100, 100)
        MaBrush = New SolidBrush(Color.Blue)
        objGraphics.Clear(Color.White)
        objGraphics.FillEllipse(MaBrush, MonRectable)
        Me.PictureBox1.Image = objBitMap
        objGraphics.Dispose()
        objGraphics = Nothing
    End Sub

Conclusion :


Voilà, c'est simple non ?

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

Donnez votre avis

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.