+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : الأقسام التعليمية - المنتدى القديم (http://vb4arb.com/vb/forumdisplay.php?fid=90)
+--- قسم : مكتبة أكواد المنتدى (http://vb4arb.com/vb/forumdisplay.php?fid=111)
+---- قسم : مكتبة أكواد الفيجوال بيسك 6 (http://vb4arb.com/vb/forumdisplay.php?fid=116)
+---- الموضوع : رش مجموعة عشوائية من الألوان على الفورم (/showthread.php?tid=5854)
رش مجموعة عشوائية من الألوان على الفورم - RaggiTech - 17-10-12
كاتب الموضوع : AhmedEssawy
فكرة الكود تعتمد على اختيار الوان عشوائية ومن ثم القيام بتلوين الفورم باستخدامها بمجرد قيام المستخدم بالضغط على زر الماوسوفي حدث الفورم لود :
كود :
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)
If Button = 1 Then
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 If
End Sub