موقع المطورين
  العودة  موقع المطورين \ أقسام الأكواد والدروس \ ركن أكواد فيجويل بيسك visual Basic المجانيه \ رش مجموعة عشوائية من الألوان على الفورم

http://mtweren.com/bb.pngحـساباتنا البنــكيةhttp://mtweren.com/bb.png

 
 
أدوات الموضوع العرض العاديالعرض المتطورالعرض الشجري
  #1  
قديم 10-07-2017, 01:01 PM
W!ndows W!ndows غير متواجد حالياً
Administrator
 
تاريخ التسجيل: Sep 2017
المشاركات: 350
افتراضي رش مجموعة عشوائية من الألوان على الفورم

كود:
في حدث الفورم لود : كود : 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
رد مع اقتباس


أدوات الموضوع
انواع عرض الموضوع

تعليمات المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code is متاحة
كود [IMG] متاحة
كود HTML معطلة

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