سلام دوستان عزیزیه برنامه ساده می خواستم بنویسم اما موفق نشدم. (تازه کار با وی بی رو شروع کردم). اگه کمکم کنید ممنون می شم .برنامه :برنامه ای بنویسید که با کلیک بر روی سه نقطه دلخواه از فرم ، یک مثلث رسم شود
Printable View
سلام دوستان عزیزیه برنامه ساده می خواستم بنویسم اما موفق نشدم. (تازه کار با وی بی رو شروع کردم). اگه کمکم کنید ممنون می شم .برنامه :برنامه ای بنویسید که با کلیک بر روی سه نقطه دلخواه از فرم ، یک مثلث رسم شود
کسی از دوستان اگه می تونه کمکم کنه . برنامه سادهای ولی برای من خیلی مهم . لطفا راهنماایی کنید . مدیر این قسمت شما؟
سلام
دلم میخواهد کمکتان کنم ولی 10 الی 11 سال از زمان عرضه VB6 میگذرد و من ان را ندارم.
(یک جورهایی دیگه دلم آدم راه نمیده نرم افزار Windows98 را روی Vista و Win7 نصب کنیم!)
در عوض کد VB2008 را برایتان میگذارم که در VB2005 هم کار خواهد کرد:
کد فوق با هر سه بار کلیک یک مثلث آبی رسم میکند.کد:'VB9
Private m_Points(2) As System.Drawing.Point
Private m_PointIndex As Integer = -1
Private Sub Form1_MouseClick(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseClick
Me.m_PointIndex = (Me.m_PointIndex + 1) Mod 3
Me.m_Points(Me.m_PointIndex) = e.Location
Me.Invalidate()
End Sub
Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint
If (Me.m_PointIndex >= 2) Then
e.Graphics.DrawPolygon(System.Drawing.Pens.Blue, Me.m_Points)
End If
End Sub
از راهنمایتون واقعا ممنونم.