PDA

View Full Version : ساخت یک دایره ی بسیار زیبا



vahid3vahid
شنبه 21 فروردین 1389, 16:41 عصر
با سلام خدمت همه. میخوام یک ترفند زیبا بهتون یاد بدم که بتونید یک دایره بسیار زیبا و گرافیکی رو روی فرمتان بکشید.


For i = 1000 To 1 Step -0.1
Circle (Me.Width / 2, Me.Height / 2), i * 10, RGB(i * Rnd, i * Rnd, i * Rnd)
Next


این تکه کدو روی یک Command Button بنویسید و نتیجه این دو خط کد رو به زیبایی ببینید!!!

حمید محمودی
پنج شنبه 02 اردیبهشت 1389, 21:47 عصر
من هنوزم می گم کد عمل نمی کنه.(حتی اگه اولش Me بزاری)


Private Sub Form_Load()
'dCamera TEST
Me.AutoRedraw = True
Me.WindowState = 2
For i = 500 To 1 Step -0.1
Circle (Me.Width / 2, Me.Height / 2), i * 10, RGB(i * Rnd, i * Rnd, i * Rnd)
Next
End Sub

کد مشکلی نداره . اما کد بالایی که نوشتم حتما بایستی براتون جواب بده.

juggle
سه شنبه 22 تیر 1389, 10:54 صبح
اولین کد برای این عمل نمیکنه که حتما باید داخل یک commnd button بنویسیمش:چشمک: