[عبد الهادي بهاب]

السلام عليكم 

------------------

بداية اشكر الاخوة بلدي و الاخ انس -------------

في الرياضيات في علم الهندسة يطلب من التلاميذ و الطلبة تعيين نقطة في معلم  متعامد و متجانس

الان باستعمال الموضوع السابق في انشاء خطوط مليمترية 

http://vb4arb.com/vb/showthread.php?tid=36025

الان  سننشء في تقاطعات هذه الخطوط مستطيل صغير جدا

نزرع فيه حدث click  ليظهر اسمه

اللقطة في التسمية 

------------------------------------------------------------------

العمل :

انشء صفحة جديدة 

اضف ليبال في الاسفل 

في الكود ضع :

PHP كود :

Imports System.Drawing

Public Class Form1
    Dim g As Graphics
    Dim pnt As Point
    Dim NovoN As PictureBox
    Dim ArrPic As New ArrayList
    Dim ArrPic1 As New ArrayList

    
  
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
        g = CreateGraphics()

        ' وضع نقط في اماكن التقاطع 
        For i = 0 To 320 Step 40
            For p = 0 To 320 Step 40
                NovoN = New PictureBox
                Controls.Add(NovoN)
                NovoN.Size = New Size(5, 5)
                NovoN.BackColor = Color.Red
                NovoN.Location = New Point(p - 2, i - 2)
                NovoN.Name = "( " & (p - 160) / 40 & " * " & (i - 160) / 40 * (-1) & " )"
                ArrPic.Add(NovoN.Name)
                NovoN.Cursor = Cursors.Hand
                AddHandler NovoN.Click, Sub(s, ev) Label1.Text = s.name
            Next
        Next
    End Sub


    Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint
        ' معطيات طول و عرض الصفحة كلها 
        Dim Mw As Integer = 320 'Me.Size.Width
        Dim Mh As Integer = 320 ' 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
        g.DrawRectangle(Pens.DarkRed, 0, Cw, Mw, 1)

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


    End Sub




End Class 


ستتحصل على الشكل التالي :

بالتوفيق

---------------------------------

لاحقا يمكن ان نجعل المشروع تمرين رياضي