28-05-2009, 10:57
|
|
|
חבר מתאריך: 28.05.09
הודעות: 11
|
|
עזרה
שלום רב אני משתמש ב visual basic עד לא מזמן בניתי מכ"ם הכך אוב ויפה אבל ה"מחוג לא זז
כחצד אני יכול להזיז אותו? הנה התחתה:
PublicClass Form1
Dim picture As System.Drawing.Graphics
PrivateSub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) HandlesMyBase.Load
picture = PictureBox1.CreateGraphics
EndSub
PrivateSub PictureBox1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PictureBox1.Click
picture.DrawEllipse(Pens.Black, 70, 20, 260, 260)
picture.DrawEllipse(Pens.Black, 95, 43, 210, 210)
picture.DrawEllipse(Pens.Black, 120, 70, 160, 160)
picture.DrawEllipse(Pens.Black, 145, 93, 110, 110)
picture.DrawEllipse(Pens.Black, 170, 115, 60, 60)
picture.DrawEllipse(Pens.Black, 195, 140, 10, 10)
picture.DrawEllipse(Pens.Black, 200, 144, 1, 1)
picture.DrawLine(Pens.Red, 200, 144, 260, 260)
|