1. Accueil
  2. PDA
  3. Sources PDA
  4. Sources PPC :: Graphisme
  5. Tracer un rectangle ou un cercle sur pocketpc 2002 avec .net

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

Soyez le premier à donner votre avis sur cette source.

Vue 25 265 fois - Téléchargée 2 179 fois


Télécharger le projet
Commenter

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 ?
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 (Nix)