ورود

نسخه کامل مشاهده نسخه کامل : خواهش میکنم :کمک!!!!



mahdibasic
30-08-2008, 17:48
چرا این قسمت جواب نمیده؟؟؟؟؟؟

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

_H2_
30-08-2008, 19:49
سلام
شما دارید هر بار یک تصویر سفید و خالی میسازد و روی این تصویر خالی یک خط رسم میکند و بعدش هم هیچ ...!!! اصلاً از همان تصویر هم استفاده نمیکنید. نه نمایشش میدهید و نه جایی ذخیره اش میکنید؟!
چه انتظاری از کد فوق دارید؟؟؟


اگر Picmain یک PictureBox است.
- شما باید یک بار در شروع برنامه تصویر را بسازید (فقط یک بار) و تصویر سفید و خالی را در PictuReBox نمایش دهید.
بعد هم هر بار که خواستید خط جدیدی بکشید از تصویر داخل همان PictureBox استفاده کنید نه تصویر جدید.

- ضمناً بهتر است برای تعریف Graphics به جای Dim از Using استفاده کنید.

mahdibasic
31-08-2008, 16:08
سلام
شما دارید هر بار یک تصویر سفید و خالی میسازد و روی این تصویر خالی یک خط رسم میکند و بعدش هم هیچ ...!!! اصلاً از همان تصویر هم استفاده نمیکنید. نه نمایشش میدهید و نه جایی ذخیره اش میکنید؟!
چه انتظاری از کد فوق دارید؟؟؟


اگر Picmain یک PictureBox است.
- شما باید یک بار در شروع برنامه تصویر را بسازید (فقط یک بار) و تصویر سفید و خالی را در PictuReBox نمایش دهید.
بعد هم هر بار که خواستید خط جدیدی بکشید از تصویر داخل همان PictureBox استفاده کنید نه تصویر جدید.

- ضمناً بهتر است برای تعریف Graphics به جای Dim از Using استفاده کنید.
اگه امکان داره یک مثال بزنید

_H2_
31-08-2008, 21:59
سلام
مثلاً کدی شبیه زیر را کامل کنید:

برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید