cs_JeffC1977
Messages postés928Date d'inscriptionvendredi 10 novembre 2000StatutMembreDernière intervention23 septembre 2023
-
7 sept. 2007 à 13:36
jrivet
Messages postés7392Date d'inscriptionmercredi 23 avril 2003StatutMembreDernière intervention 6 avril 2012
-
10 sept. 2007 à 08:01
Salut...
Je ne sais pas le message d'erreur à propos d'un PictureBox et de la fonction RectangleF
Je veux simplement faire dessiner des points pour chaque coordonée que j'ai dans un fichier texte.
J'ai aucun porblème pour aller récupérer les coordonnées mais c'est de les faire afficher dans un picturebox le problème. De plus je doit utiliser la fonction RectangleF car la fonction Rectangle est en Integer. Je doit utiliser les décimaux car c'est des coordonnée géographique (précision exige). Donc la fonctione RectangleF est en Single.
Si j'utilise la fonction Rectangle ca fonctionne mais aussitot que je mets la fonction RectangleF j'ai un erreur... Voici mon erreur et l'erreur est en Gras et Souligné.
P.S. Je suis avec Compact Framework mais ces fonctions fonctionne avec Compact Framework (selon MSDN).
Merci de votre aide
Private
Sub BtnCercle_Click(
ByVal sender
As System.Object,
ByVal e
As System.EventArgs)
Handles cmdDessin.Click
Dim objBitMap
As
New Bitmap(PictureBox1.Width, PictureBox1.Height)
Dim objGraphics
As Graphics
Dim MonRectableF
As RectangleF
Dim MaBrush
As Brush
Dim i
As
Integer
Dim CoordX
As
Single, CoordY
As
SingleobjGraphics = Graphics.FromImage(objBitMap)
objGraphics.Clear(Color.White)
MaBrush =
New SolidBrush(Color.Blue)
For i = 0
To UBound(Tableau)
LigneSplit = Tableau(i).Split(Separateur)
CoordX = ((Convert.ToDouble(LigneSplit(2)) + 5000) / 1000)
CoordY = ((Convert.ToDouble(LigneSplit(1)) + 5000) / 1000)
MonRectableF =
New RectangleF(CoordX, CoordY.ToString, 1, 1)
objGraphics.FillEllipse(MaBrush, MonRectableF ) 'Error 2 Value of type 'System.Drawing.RectangleF' cannot be converted to 'System.Drawing.Rectangle'.