تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
مثال لرسم احداثيات مع حركة الماوس
#1
كاتب الموضوع : AhmedEssawy

هذا المثال يقوم بالاستفادة من حدث MouseMove لرسم خط طولي وعرضي مع حركة الماوس باستخدام الأمر Line والذي يستقبل نقطة البداية والنهاية ، لون الخط ، وعرضه وخيارات أخرى إذا أحببت :

كود :
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, _
X As Single, Y As Single)
Me.Cls
Line (X, 0)-(X, Me.ScaleHeight), vbRed
Line (0, Y)-(Me.ScaleWidth, Y), vbGreen
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  250 مثال في الفجوال بيزيك تمكنك من بداية البرمجة من الصفر derbaliammar 1 1,778 10-06-14, 08:14 PM
آخر رد: Lord of Books
  كود لحصر الماوس داخل الفورم RaggiTech 0 644 17-10-12, 04:40 PM
آخر رد: RaggiTech
  دالة معرفة نوع القرص + مثال مرفق !!!!!!!!!! RaggiTech 0 648 17-10-12, 03:27 PM
آخر رد: RaggiTech
  حصر الماوس داخل نطاق معين RaggiTech 0 510 17-10-12, 02:50 PM
آخر رد: RaggiTech
  مثال - تشفير وفك تشفير نص RaggiTech 0 588 17-10-12, 02:35 PM
آخر رد: RaggiTech
  مثال تحميل به أكثر من هدية RaggiTech 0 487 17-10-12, 02:27 PM
آخر رد: RaggiTech
  معرفة لون النقطة التي يمر بها الماوس حالياً RaggiTech 0 400 17-10-12, 01:08 AM
آخر رد: RaggiTech
  لمعرفة لو كان التحديد باستخدام Tab او باستخدام الماوس RaggiTech 0 312 17-10-12, 01:01 AM
آخر رد: RaggiTech
  لاظهار قائمة عندما يضغط المستخدم زر الماوس RaggiTech 0 314 17-10-12, 12:54 AM
آخر رد: RaggiTech
  اظهار واخفاء مؤشر الماوس RaggiTech 0 1,217 17-10-12, 12:19 AM
آخر رد: RaggiTech

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


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