06-08-20, 07:09 PM
السلام عليكم
انا اريد ان انشئ خط مستقيم بين نقطتين في الصفحة في اي مكان
سنضع قيمة متغير clic هي 1 اي الضغطة الاولى ..........لما نضغط مرة اخرى ستصبح 2
في clic 1 سنشئ نقطة في الموضوع الاول للضغطة و نسجل الموقع في لبيال 1
و نضيف 1 لقيمة المتغير clic
عندها سننشء نقطة اخرى
ثم ننشئ خطا مستقينما بينهما
كي نعيد الكرة مرة اخرى اي ننشء خطوط اخرى ما علينا الا ان نرجع القيمة clic الى 1
من اجل ذلك يجب ان نستدعي دالة الرسم
و نعلن عن المتغيرات في البداية
و في بداية ظهور الصفحة form1_load
الشكل النهائي
الكود يحتاج الى تعديل ليكون بشكل دقيق ............. لمن يستطيع نكون شاكرين
الملف للتعديل
https://top4top.io/downloadf-16791lliz1-rar.html
بالتوفيق
انا اريد ان انشئ خط مستقيم بين نقطتين في الصفحة في اي مكان
سنضع قيمة متغير 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
بالتوفيق