مشاهده نسخه کامل
: خواهش میکنم :کمک!!!!
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
سلام
شما دارید هر بار یک تصویر سفید و خالی میسازد و روی این تصویر خالی یک خط رسم میکند و بعدش هم هیچ ...!!! اصلاً از همان تصویر هم استفاده نمیکنید. نه نمایشش میدهید و نه جایی ذخیره اش میکنید؟!
چه انتظاری از کد فوق دارید؟؟؟
اگر Picmain یک PictureBox است.
- شما باید یک بار در شروع برنامه تصویر را بسازید (فقط یک بار) و تصویر سفید و خالی را در PictuReBox نمایش دهید.
بعد هم هر بار که خواستید خط جدیدی بکشید از تصویر داخل همان PictureBox استفاده کنید نه تصویر جدید.
- ضمناً بهتر است برای تعریف Graphics به جای Dim از Using استفاده کنید.
mahdibasic
31-08-2008, 16:08
سلام
شما دارید هر بار یک تصویر سفید و خالی میسازد و روی این تصویر خالی یک خط رسم میکند و بعدش هم هیچ ...!!! اصلاً از همان تصویر هم استفاده نمیکنید. نه نمایشش میدهید و نه جایی ذخیره اش میکنید؟!
چه انتظاری از کد فوق دارید؟؟؟
اگر Picmain یک PictureBox است.
- شما باید یک بار در شروع برنامه تصویر را بسازید (فقط یک بار) و تصویر سفید و خالی را در PictuReBox نمایش دهید.
بعد هم هر بار که خواستید خط جدیدی بکشید از تصویر داخل همان PictureBox استفاده کنید نه تصویر جدید.
- ضمناً بهتر است برای تعریف Graphics به جای Dim از Using استفاده کنید.
اگه امکان داره یک مثال بزنید
سلام
مثلاً کدی شبیه زیر را کامل کنید:
برای مشاهده محتوا ، لطفا وارد شوید یا ثبت نام کنید
vBulletin , Copyright ©2000-2025, Jelsoft Enterprises Ltd.