منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم

بالاستفادة مما سبق .كيف اجعل صفحة العمل على شكل ورقة مليميترية

العمل المطلوب :
افتح صفحة جديدة

الان في كود الصفحة ازرع الكود التالي لاستعمال خاصية الرسم

PHP كود :

Imports System.Drawing 

الان في الكود العام

PHP كود :

Dim g As Graphics

في بداية العرض form1_load

PHP كود :

 g = CreateGraphics() 

الان في form1_Paint

PHP كود :

   ' معطيات طول و عرض الصفحة كلها 
        Dim Mw As Integer = Me.Size.Width
        Dim Mh As Integer = Me.Size.Height
        ' الخطوط الافقية
        For i = 0 To Mh Step 4
            Dim x = 0
            Dim y = i
            g.DrawLine(Pens.OrangeRed, New Point(x, y), New Point(Mw, y))
        Next

        ' الخطوط العمودية
        For i = 0 To Mw Step 4
            Dim x = i
            Dim y = 0
            g.DrawLine(Pens.OrangeRed, New Point(x, y), New Point(x, Mh))
        Next

        ' كل عشرة افقية خط سميك
        For i = 0 To Mh Step 40
            g.DrawRectangle(Pens.Red, 0, i, Mw, 1)
        Next
      
        ' كل عشرة خطوط عمودية خط مسيك 
        For i = 0 To Mw Step 40
            g.DrawRectangle(Pens.Red, i, 0, 1, Mh)
        Next

        ' الخط المركزي الافقي
        Dim Cw As Integer = Mh / 2 - 10
        g.DrawRectangle(Pens.DarkRed, 0, Cw, Mw, 1)

        ' الخط العمودي المركزي
        Dim Ch As Integer = Mw / 2
        g.DrawRectangle(Pens.DarkRed, Ch, 0, 1, Mh) 

يمكن تغيير لون الخط حسب ذوقك

الشكل الناتج
[attachment=25394]

بالتوفيق

ماذا نستفيد من ذلك ؟

طبعا يا صديقي ........يمكن ان نصمم تمرين رياضي في تحديد نقطة من المعلم المتعامد المتجانس
مثلا نطلب منه : اين النقطة ذات الاحدثيات ( 5 . 8 ) لما يضغط في النقطة نصحح له باظهار رسالة ما

ممكن نستفيد برسم مثلث او مربع وفق شروط معينة

الخ من الافكار

السلام عليكم و رحمة الله .
او ممكن ان نستفيد بوضع بعض الادوات و طباعة الفورم او وضع كود الطباعة ليعمل على بنل على الفورم و نضيف اليه بعض الادوات و نحوله الى صورة و نطبعه اي كمحرر طباعة بسيط و الله الموفق .

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

عبد الهادي بهاب

asemshahen5