Random Colors

#127 مايو 2009 في 19:58 صاحب الموضوع

السلام عليكم

اخواني مملت من البحث عن الكود الخاص بجعل خلفية اللون للفورم تتغير كل فترة معينة حسب المؤقت timer

فهل من مجيب ؟

Maher Salman

Senior Oracle Developer

Oracle Certified Professional

Kuwait

اللهم إني أعوذ بك من الهم والغم والحزن،

وأعوذ بك من العجز والكسل والفشل،

وأعوذ بك من الجبن والبخل،

وأعوذ بك من الكفر والفقر،

وأعوذ بك من غلبة الدين وقهر الرجال

#228 مايو 2009 في 01:40

		Dim mRed As Long
		Dim mGreen As Long
		Dim mBlue As Long

		Randomize()
		mRed = Int(Rnd() * 255)
		mGreen = Int(Rnd() * 255)
		mBlue = Int(Rnd() * 255)

		Me.BackColor = Color.FromArgb(mRed, mGreen, mBlue)

#328 مايو 2009 في 03:52

مرحباً أخي الكريم,

هناك صف جاهز يساعدك على إنشاء أرقام عشوائية تنحصر بين عددين المثال التالي يوضح لك الفكرة :

انسخ الكود

 

Dim Red[color= #339933;], Green[color= #339933;], Blue [color= #b1b100;]As Byte

Dim [color= #990000;]Rand [color= #b1b100;]As [color= #000000; font-weight: bold;]New Random

Red [color= #339933;]= [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]255 [color= #009900;])

Green [color= #339933;]= [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]255 [color= #009900;])

Blue [color= #339933;]= [color= #990000;]Rand[color= #339933;].[color= #990000;]Next[color= #009900;]([color= #cc66cc;]0[color= #339933;], [color= #cc66cc;]255 [color= #009900;])

BackColor [color= #339933;]= Drawing[color= #339933;].Color[color= #339933;].FromArgb[color= #009900;]( Red[color= #339933;], Green[color= #339933;], Blue [color= #009900;])

بالنسبة للأخ Kazabra, أخي الكريم عليك التقيد بإستخدام أنواع المتغيرات, لا أقول أنك غير قادر على استخدام الـ( Long ) مع شرح فكرتك, لكنه يفضل استخدام ماهو مناسب لتوفير مصادر ذاكرة الحاسب, الـ( Long ) يحجز ( 64 Bits ) بينما الـ( Byte ) يحجز ( 8 Bits ) فأيهما تفضل استخدامه ؟

بالتوفيق

The important thing is not so much

that every child should be taught,

as that every child should be given the wish to learn.

Random Colors

مواضيع مشابهة