Printable View
چرا این قسمت جواب نمیده؟؟؟؟؟؟
Private Sub Picmain_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles Picmain.MouseMove
x = e.X
y = e.Y
Dim NBitmap As New Bitmap(Picmain.Width, Picmain.Height)
Dim GPS As Graphics = Graphics.FromImage(NBitmap)
If e.Button = Windows.Forms.MouseButtons.Left Then
GPS.DrawLine(Pens.Black, x, y, newx, newy)
End If
newx = e.X
newy = e.Y
End Sub
سلام
شما دارید هر بار یک تصویر سفید و خالی میسازد و روی این تصویر خالی یک خط رسم میکند و بعدش هم هیچ ...!!! اصلاً از همان تصویر هم استفاده نمیکنید. نه نمایشش میدهید و نه جایی ذخیره اش میکنید؟!
چه انتظاری از کد فوق دارید؟؟؟
اگر Picmain یک PictureBox است.
- شما باید یک بار در شروع برنامه تصویر را بسازید (فقط یک بار) و تصویر سفید و خالی را در PictuReBox نمایش دهید.
بعد هم هر بار که خواستید خط جدیدی بکشید از تصویر داخل همان PictureBox استفاده کنید نه تصویر جدید.
- ضمناً بهتر است برای تعریف Graphics به جای Dim از Using استفاده کنید.
اگه امکان داره یک مثال بزنیدنقل قول:
سلام
مثلاً کدی شبیه زیر را کامل کنید:
کد:Private m_FirstPoint As New System.Drawing.Point(-1, -1)
Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
Me.PictureBox1.Image = New System.Drawing.Bitmap(Me.PictureBox1.Width, Me.PictureBox1.Height)
End Sub
Private Sub PictureBox1_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseDown
If (e.Button = System.Windows.Forms.MouseButtons.Left) Then
Me.m_FirstPoint = e.Location
Else
Me.m_FirstPoint.X = -1
End If
End Sub
Private Sub PictureBox1_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles PictureBox1.MouseUp
If (Me.m_FirstPoint.X >= 0) AndAlso (Me.m_FirstPoint.Y >= 0) Then
Using g As System.Drawing.Graphics = System.Drawing.Graphics.FromImage(Me.PictureBox1.Image)
g.DrawLine(System.Drawing.Pens.Green, Me.m_FirstPoint, e.Location)
End Using
Me.PictureBox1.Invalidate()
Me.m_FirstPoint.X = -1
End If
End Sub