تقييم الموضوع :
  • 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
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [سؤال] مطلوب طريقة عمل scrollbar على الفورم Emad Nashaat 0 121 13-07-17, 10:39 AM
آخر رد: Emad Nashaat
  [مثال] برنامج لضغط مجموعة من الصور دفعة واحدة abulayth 0 641 04-04-15, 05:57 PM
آخر رد: abulayth
  مؤثرات جميلة على الفورم علاء الاكرمي 1 1,953 24-11-14, 09:20 PM
آخر رد: ghada abd elnabe
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 6,094 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,705 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 990 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 809 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 994 17-10-12, 03:44 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 1,029 17-10-12, 03:14 PM
آخر رد: RaggiTech
  برنامج توليد ارقام عشوائية من عشر منازل RaggiTech 0 968 17-10-12, 03:10 PM
آخر رد: RaggiTech

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


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