vahid3vahid
شنبه 21 فروردین 1389, 17: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 بنویسید و نتیجه این دو خط کد رو به زیبایی ببینید!!!
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 بنویسید و نتیجه این دو خط کد رو به زیبایی ببینید!!!