دایره های رنگارنگ-کمک؟؟

[mohammad.mfs]

یه سوال؟؟
کمک
من تازه شروع به یادگرفتن vb.net کردم لطفا کمکم کنید؟
من این کد رو نوشتم ولی حالا می خوام دایره های اون رنگ های متفاوتی داشته باشن ولی هر کاری می کنم نمیتونم لطفا اصلاحش کنید؟


Dim graphic As Graphics
Dim p As Integer, c As Integer

Private Sub Form1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Click
graphic = Me.CreateGraphics
'--------------------------
p = 10
c = 200
For i = 0 To 100 Step 10
p = p - 1
c = c + 2

graphic.DrawEllipse(Pens.Aqua, p, p, c, c)

Next
End Sub

[Netsky]

سلام دوست عزیز .
میخای داخل دایره هات رنگ شده باشن ؟؟؟:متفکر:
اگه میخای این طوری باشه ، بجای استفاده از تابع DrawEllipse از FillEllipse استفاده کن .
اگه بازم سوالی داشتی در خدمتم .

[mohammad.mfs]

نه مثلا تو vb6 میتونستیم از رندم داخل تابع استفاده کنیم ولی تو این نمیشه.
مثلا: به جای این
graphic.DrawEllipse(Pens.Aqua, p, p, c, c)
می خوام طوری بنویسم که هر دفعه یه رنگ رو برگردونه مثلا: تو vb6 میشد بنویسیم:

graphic.DrawEllipse(qbcolor(rnd(15)), p, p, c, c)
به عنوان مثال این رو گفتم وگرنه تو vb6 که circle بود نه grafic.drawellipse
؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟
:متفکر::متفکر::ناراحت:

[sari-1369]

این دستور یه عدد تصادفی بین 0 تا 255 برمیگردونه :



I = Rnd() * 255


برای تغیر محاسبه عدد رندم ، قبل از استفاده از دستور قبل هر بار تابع Randomize() رو صدا بزنید .

[mohammad.mfs]

لطفا این کد رو نگاه کنید؟

For i = 0 To 100 Step 10
p = p - 1
c = c + 2
Randomize()
i = QBColor(Rnd() * 15)
graphic.DrawEllipse(i, p, p, c, c)

Next
من مسئلم سر اینه که توی تابع زیر جای پارامتر اول که i گذاشتم یه عدد بر می گردونه در صورتی که این تابع عدد قبول نمیکنه؟


graphic.drawEllipse( i , p , p , c,c)

؟؟؟؟؟؟؟؟؟؟؟؟؟؟؟:گریه:
:متفکر::ناراحت::ناراحت::