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 ?
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.