رش الالوان على الفورم بطريقة رائعة

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

رش الالوان على الفورم بطريقة رائعة

مُساهمة من طرف أيمن الإبراهيم في الثلاثاء فبراير 04, 2014 2:29 pm

اهلا وسهلا بكم في منتدى مصر التقني
-----------------------------------
كود تالي   ليقوم برش الالوان على فورم يعطي جمالية للبرنامج  

' ضع هذا الكود في الفورم
الكود:

Private Sub Form_Load()
Me.AutoRedraw = True
End Sub

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
X = Me.CurrentX
Y = Me.CurrentY
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Me.PSet (X + Rnd * 255, Y + Rnd * 255), RGB(Rnd * 255, Rnd * 255, Rnd * 255)
End Sub
---------------------------------------
مع تمنياتي لكم بالنجاح
avatar
أيمن الإبراهيم
........
........

تاريخ التسجيل : 19/03/2013
المساهمات : 251
النقاط : 397
التقيم : 0
الدولة : سوريا
الجنس : ذكر

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى