TRACER UN RECTANGLE OU UN CERCLE SUR POCKETPC 2002 AVEC .NET

---

Commentaire sur cette source (0)
Ajouter un commentaire et/ou une note

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  

    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
  

Voilà, c'est simple non ?  

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

Télécharger le zip

• RÉCUPÉRER UNE PAGE HTML AVEC UNE SOCKET
• UTILISER UN WEBSERVICE DEPUIS UN POCKET PC EN .NET (CONVERTISSEUR EURO :-P)

• ROTATION D'IMAGE POUR LE COMPACT FRAMEWORK
• ROTATION ET MIROIR DE BITMAP
• VISUALISER UNE IMAGE PLEIN ÉCRAN AVEC DÉPLACEMENT