17-10-12, 12:44 AM
كاتب الموضوع : 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