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

السلام عليكم

انا اريد ان انشئ خط مستقيم بين نقطتين  في الصفحة  في اي مكان

سنضع قيمة متغير clic  هي 1 اي الضغطة الاولى ..........لما نضغط مرة اخرى ستصبح 2

في clic 1  سنشئ نقطة في الموضوع الاول للضغطة و نسجل الموقع في لبيال 1

PHP كود :

    If clic = 1 Then
       
    
 pnt = New Label()
            Controls.Add(pnt)
            pnt.Text = "●"
            pnt.Font = New Font("Tahoma", 10, FontStyle.Bold)
            pnt.Size = New Size(20, 20)
            Dim x = Cursor.Position.X - Left - pnt.Width
            Dim y = Cursor.Position.Y - Top - pnt.Height - 31
            pnt.Location = New Point(x, y)
            Label1.Text = x & " _ " & y 


و نضيف 1 لقيمة المتغير  clic

PHP كود :

clic += 1 


عندها سننشء نقطة اخرى 

PHP كود :

ElseIf clic = 2 Then
            pnt2 = New Label()
            Controls.Add(pnt2)
            pnt2.Text = "●"
            pnt2.Font = New Font("Tahoma", 10, FontStyle.Bold)
            pnt2.Size = New Size(20, 20)
            Dim x2 = Cursor.Position.X - Left - pnt2.Width
            Dim y2 = Cursor.Position.Y - Top - pnt2.Height - 31
            Label2.Text = x2 & " _ " & y2
            pnt2.Location = New Point(x2, y2)
            Dim p1 = pnt.Location
            Dim p2 = pnt2.Location 


ثم ننشئ خطا مستقينما بينهما

PHP كود :

 g.DrawLine(Pens.Red, p1, p2) 


كي نعيد الكرة مرة اخرى اي ننشء خطوط اخرى ما علينا الا ان نرجع القيمة  clic الى 1 

PHP كود :

clic = 1 


من اجل ذلك يجب ان نستدعي دالة الرسم

PHP كود :

Imports System.Drawing.Graphics 


و نعلن عن المتغيرات في البداية 

PHP كود :

 Dim g As Graphics
    Dim clic As Integer = 1
    Dim pnt, pnt2 As Label 


و في بداية ظهور الصفحة  form1_load

PHP كود :

 g = CreateGraphics() 


الشكل النهائي



الكود يحتاج الى تعديل ليكون بشكل دقيق ............. لمن يستطيع نكون شاكرين 

الملف للتعديل

https://top4top.io/downloadf-16791lliz1-rar.html


بالتوفيق