+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم امثلة ومشاريع VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=188)
+--- الموضوع : [كود] جعل صفحة العمل ورقة مليمترية (/showthread.php?tid=36025)
جعل صفحة العمل ورقة مليمترية - عبد الهادي بهاب - 07-08-20
السلام عليكم
بالاستفادة مما سبق .كيف اجعل صفحة العمل على شكل ورقة مليميترية
العمل المطلوب :
افتح صفحة جديدة
الان في كود الصفحة ازرع الكود التالي لاستعمال خاصية الرسم
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 ) لما يضغط في النقطة نصحح له باظهار رسالة ما
ممكن نستفيد برسم مثلث او مربع وفق شروط معينة
الخ من الافكار
RE: جعل صفحة العمل ورقة مليمترية - asemshahen5 - 07-08-20
السلام عليكم و رحمة الله .
او ممكن ان نستفيد بوضع بعض الادوات و طباعة الفورم او وضع كود الطباعة ليعمل على بنل على الفورم و نضيف اليه بعض الادوات و نحوله الى صورة و نطبعه اي كمحرر طباعة بسيط و الله الموفق .