تقييم الموضوع :
  • 1 أصوات - بمعدل 3
  • 1
  • 2
  • 3
  • 4
  • 5
رش مجموعة عشوائية من الألوان على الفورم
#1
كاتب الموضوع : 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
}}}
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم