A voir également:
- Tracer un cercle sur vb(urgent)
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Tracer un itinéraire sur une carte - Guide
- Tracer un mail - Guide
- Comment tracer un ordinateur volé - Guide
3 réponses
Bonjour
Si, ton message est très clair
La doc de visual basic aussi : cherche la méthode Circle
Si, ton message est très clair
La doc de visual basic aussi : cherche la méthode Circle
merci le père,
j'ai essayé avec la méthode circle, mais ça merche pas, j'ais fais un petit code, mais qu on j'execute ça m affiche rien, aprés j'ai essayé Pset pour dessiner point par point,
voilà mon petit code
Private Sub Form_Load()
Dim x0 As Single
Dim y0 As Single
Dim X, Y As Single
Dim R As Integer
Dim t As Double
x0 = 2
y0 = 5
R = 10
For t = 0 To 6.283 Step 0.314
X = x0 + (R * Cos(t))
Y = y0 + (R * Sin(t))
Form1.PSet (X, Y), vbBlack
Next t
End Sub
nb: je suis debutante en vb j'espere que j'ais pas fais des betises sur mn code :s
j'ai essayé avec la méthode circle, mais ça merche pas, j'ais fais un petit code, mais qu on j'execute ça m affiche rien, aprés j'ai essayé Pset pour dessiner point par point,
voilà mon petit code
Private Sub Form_Load()
Dim x0 As Single
Dim y0 As Single
Dim X, Y As Single
Dim R As Integer
Dim t As Double
x0 = 2
y0 = 5
R = 10
For t = 0 To 6.283 Step 0.314
X = x0 + (R * Cos(t))
Y = y0 + (R * Sin(t))
Form1.PSet (X, Y), vbBlack
Next t
End Sub
nb: je suis debutante en vb j'espere que j'ais pas fais des betises sur mn code :s
Attention, l'unité des dessin n'est pas le pixel par défaut, mais le twip qui est ridiculement petit. Le cercle que tu essayes de dessiner va donner en fait un point coincé en haut à gauche de la feuille.
Lis la doc VB sur les unités, et réessaye avec au moins X0=Y0=R=500 pour espérer voir quelque chose
Lis la doc VB sur les unités, et réessaye avec au moins X0=Y0=R=500 pour espérer voir quelque chose
