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

و الله سعادة كبيرة ان اجد هذا الكم الهائل من التجاوب بالاضافة
--------- ليس كبعض مشاركات مشكووووووووووووووووووووووور او شكررررررررررا -------
متابع معكم و ساستعمل كل الاقتراحات
بارك الله فيكم
--------------
طبعا يمكن استعمال الفكرة في تمارين الربط بين اجابتين مثلا او في تمارين الرياضيات ......الخ
و من خلال رددوكم -- اوحي الي --- او الهمت الكثير من المشاريع ساجد لها طريقا في القريب العاجل

---

(06-08-20, 08:32 PM)عيد مبارك كتب :

كود :

Public Class Form1
   Dim g As Graphics
   Dim clic As Integer = 1
   Dim pnt, pnt2 As Point

   Private Sub Form1_MouseUp(sender As Object, e As MouseEventArgs) Handles Me.MouseUp
       If e.Button = MouseButtons.Left Then
           If clic = 1 Then
               pnt = New Point(e.X, e.Y)
               clic += 1
               g.FillEllipse(Brushes.Black, New Rectangle(pnt.X - 4, pnt.Y - 4, 7, 7))
               Label1.Text = e.Location.ToString
           ElseIf clic = 2 Then
               pnt2 = New Point(e.X, e.Y)
               g.FillEllipse(Brushes.Black, New Rectangle(pnt2.X - 4, pnt2.Y - 4, 7, 7))
               '==================================================================='
               g.DrawLine(Pens.Red, pnt, pnt2)
               clic = 1
               Label2.Text = e.Location.ToString
           End If
       End If
   End Sub

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

End Class

روعة ...............دقيق و فعال
شكرا على الاضافة و التعديل

---

(06-08-20, 08:08 PM)Anas Mahmoud كتب : السبب هو انشاءك ليبلات وهي فكرة ليست جيدة 

يمكنك بكل سهولة رسم دائرة بدون الحاجة لانشاء ليبلات عن طريق FillEllipse

السبب الثاني هو استخدامك Cursor في تحديد مكان الضغط وهذا ليس دقيق اطلاقا ، يمكنك استخدام حدث MouseDown للرسم :

كود :

dim p1 as new point(0,0)
dim p2 as new point(0,0)
  Private Sub Form1_MouseUp(sender As Object, e As System.Windows.Forms.MouseEventArgs) Handles Form1.MouseUp

  If clic = 1 Then
g.FillEllipse(Brushes.Red,e.x - 10 , e.y - 10 , 20 ,20)
p1.x = e.x
p1.y = e.y
Label1.Text = e.x & " _ " & e.y
clic += 1

ElseIf clic = 2 Then
g.FillEllipse(Brushes.Red,e.x - 10 , e.y - 10 , 20 ,20)
p2.x = e.x
p2.y = e.y
Label2.Text = e.x & " _ " & e.y
g.DrawLine(Pens.Red, p1, p2)
clic = 1
end if
end sub

لم اقم بتجريبه ولكن ان شاء الله يعمل

ما شاء الله تم التعديل بفضل فكرتك و تفعيلها من خلال عيد مبارك ........اسمه جميل على فكرة لان كل السنة اعياد ان شاء الله بدون احزان