چجوری میشه خط کشید؟

[minamrtzv]

میخوام کاربر از جایی که کلیک کرد تا کلیک دوم یه خط بکشه تو فرم
تو ایونت موس داون یه متغیر گلوبال رو ترو کردم
و مختصات نقطه رو گرفتم
تو ایونت موس کلیک مختصاتشو گرفتم و گفتم اگه متغیر ترو هست

{بیا بین این دو نقطه خط بکش}
چجوریبگم خط بکشه؟ :افسرده:

[minamrtzv]

راستی می خوام سایز خط رو هم مشخص کنم
اصلا این کاری که کردم درسته؟ موس داون و موس کلیک! برای مشخص کردن دو نقطه که کاربر میخواد بینش خط کشیده بشه

[tstsst]

سلام
با تغیر دادن pen می تونید سایز و رنگ خط رو مشخص کنید

Dim loc1, loc2 As Integer
Dim cl As Integer = 0
Private Sub Form1_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.Click
If cl = 0 Then
cl = 1
loc1 = e.X
loc2 = e.Y
ElseIf cl = 1 Then
cl = 0
Dim pen As New Drawing.Pen(System.Drawing.Color.Red, 4)
Me.CreateGraphics.DrawLine(pen, loc1, loc2, e.X, e.Y)
End If
End Sub

[minamrtzv]

سلام
با تغیر دادن pen می تونید سایز و رنگ خط رو مشخص کنید

Dim loc1, loc2 As Integer
Dim cl As Integer = 0
Private Sub Form1_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.Click
If cl = 0 Then
cl = 1
loc1 = e.X
loc2 = e.Y
ElseIf cl = 1 Then
cl = 0
Dim pen As New Drawing.Pen(System.Drawing.Color.Red, 4)
Me.CreateGraphics.DrawLine(pen, loc1, loc2, e.X, e.Y)
End If
End Sub


خیلی ممنون
امتحانش می کنم الان

[minamrtzv]

سلام
با تغیر دادن pen می تونید سایز و رنگ خط رو مشخص کنید

Dim loc1, loc2 As Integer
Dim cl As Integer = 0
Private Sub Form1_Click(ByVal sender As Object, ByVal e As MouseEventArgs) Handles MyBase.Click
If cl = 0 Then
cl = 1
loc1 = e.X
loc2 = e.Y
ElseIf cl = 1 Then
cl = 0
Dim pen As New Drawing.Pen(System.Drawing.Color.Red, 4)
Me.CreateGraphics.DrawLine(pen, loc1, loc2, e.X, e.Y)
End If
End Sub


نشـــــــــــــــــــــــ ـــد :گریه:
ظاهرا اشتباهی نداره
ارور هم نمیده
ولی با دو تا کلیک موس در جا های مختلف خط نمیکشه بینشون

ضمنا من چجوری مختصات این خط رو بکم
مثلا می خوام بگم هر موقه باتن1 با خط برخورد کرد ، چجوری بگم؟

[Hybrid]

سلام یک نمونه برنامه واستون نوشتم اگه اشکالی داشت ببخشید یه کم دیر وقت بود سریع نوشتم !! : دی