پیشنهادی برای رسم خطوطی که بیشتر اندازه فرم

[alinaghiha]

سلام
من میخوام برنامه زمانبندی های درس سیستم عامل رو به عنوان پروژه برای استادم بنویسم
اما متاسفانه طول خطوطی که زمان سی پی یو رو نشون میده بزرگتر از فرم میشه
چی پیشنهادی واسه کشیدن زمانبند دارید
اینم بگم که من روی فرم Scroll گذاشتم باحرکت فرم خطوط من دوباره رسم میشدن که باعث ایجاد خطهای زیادی رو فرم میشد

اینم کدی که با ان خطامو کشیدم




Dim g As Graphics
g.DrawLine(Pens.Red, 40, 150, 800, 150)
g.DrawLine(Pens.Red, 40, 130, 40, 170)
For i = 1 To 40
g.DrawLine(Pens.Red, 40 + i * 20, 145, 40 + i * 20, 155)
Next



ممنون که برای حل مشکلم متن طولانیم رو خوندید
Please Help

[amirsajjadi]

با سلام
به نظر من شما میتونید از دو راه استفاده کنید :
1) میتونید چند تا Panel روی فرمتون بزارید و بک گراند اونا رو تغییر بدید سپس ارتفاع اونا تغییر بدید
2) شما کدهای مربوط به رسم رو توی رویداد Paint فرم بزارید
به این صورت :

PrivateSub Form1_Paint(ByVal sender AsObject, ByVal e As System.Windows.Forms.PaintEventArgs) HandlesMe.Paint
e.Graphics.DrawEllipse(Pens.Blue, 0, 0, 50, 100)
EndSub

[alinaghiha]

ممنون از پاسختون
لطفا در مورد Panel بیشتر توضیح بدید
اما جواب دومتون، متاسفانه من نیاز دارم که هر فاز برنامه با یک کلیک انجام بشه
یعنی هر کلیک یک خط ،پس Paint یک فرم جواب نمیده
منتظر پیشنهادات دوستانم

[amirsajjadi]

با سلام
اینم مثال برای پنل که گفتم

For i AsInteger = 1 To 5
Dim p AsNew Panel
p.Location = New Point(10 * i, 100)
p.Size = New Size(10, Math.Round(Rnd() * 80))
p.BackColor = Color.FromArgb(Math.Round(Rnd() * 255), Math.Round(Rnd() * 255), Math.Round(Rnd() * 255))
Me.Controls.Add(p)
p = Nothing
Next

[alinaghiha]

ایده قشنگی بود تست کردم جواب داد اگه به مشکلی برخوردم دوباره میپرسم
ممنون که کارمو راه انداختید میخوام سوالایی که در مورد این پروژه برام پیش می آد تو هم تاپیک بنویسم

[alinaghiha]

با Panelتونستم پیکان(<--) بسازم اما نتونستم خط مورب بکشم میشه راهنمایی کنید

[amirsajjadi]

برای این کار دیگه مجبورید از گرافیک دات نت استفاده کنید

[alinaghiha]

بازم ممنون:ناراحت: