تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
كود بسيط للرسم على الفورم
#1
<< بسم الله الرحمن الرحيم >>

لتعيين إحداثيات الرسم تبعا لحركة الماوس على النافذة :


Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Form1.CurrentX = X
Form1.CurrentY = Y
End Sub


لجعل الاحداثيات المطلوبة تبدأ بالرسم عند الحركة حسب الزر المضغوط من الماوس

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(0)
ElseIf Button = 2 Then
Line (Form1.CurrentX, Form1.CurrentY)-(X, Y), QBColor(4)
End If
End Sub

للبدء بالرسم حسب احداثيات الماوس عند الضغط على الزر اليساري يبدا الرسم باللون الاسود و عند الضغط على الزراليميني ويكون الرسم باللون الاحمر هذا هو الدرس Smile
تحياتي ^__^

حصريا للمنتدى :
درس: كيفية حساب عدد الأسطر في نص

-- إذا لم تزد على الحياة شيئاً فأنت زائد عليها --
-- المبرمج الطموح vb6 --


الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مؤثرات جميلة على الفورم علاء الاكرمي 1 1,591 24-11-14, 09:20 PM
آخر رد: ghada abd elnabe
  الحل الأمثل لتغيير حجم الفورم حسب دقة عرض الشاشة ENG.MPROG 9 4,649 01-08-13, 06:20 AM
آخر رد: derbaliammar
  فتج الفورم بطريقة جميله جدا ولد رائع 2 1,465 23-02-13, 09:38 PM
آخر رد: Sajad
  طريقة لجعل الفورم او البرنامج في مقدمة البرامج Ahmad Jawad 0 817 28-10-12, 11:39 AM
آخر رد: Ahmad Jawad
  كود لحصر الماوس داخل الفورم RaggiTech 0 645 17-10-12, 04:40 PM
آخر رد: RaggiTech
  كود لجعل الفورم يتحرك بشكل تدريجي RaggiTech 0 803 17-10-12, 03:44 PM
آخر رد: RaggiTech
  تكبير PictureBox + تلوين الفورم بالوان قوس قزح RaggiTech 0 876 17-10-12, 03:14 PM
آخر رد: RaggiTech
  تفضلو برنامج بسيط (بمناسبة شهر رمضان الكريم) RaggiTech 0 529 17-10-12, 03:09 PM
آخر رد: RaggiTech
  تحريك الفورم بدون Api RaggiTech 0 444 17-10-12, 02:45 PM
آخر رد: RaggiTech
  التحكم في درجة شفافية الفورم RaggiTech 0 581 17-10-12, 02:16 PM
آخر رد: RaggiTech

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


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