PDA

View Full Version : سوال: مشکل با برنامه paint


ariama
شنبه 23 بهمن 1389, 20:53 عصر
سلام
من برنامه پینت رو بسیار ساده نوشتم ولی در قسمت مداد که موس رو هر کجا می بریم خط میشه بلد نیستم راهنمایی کنید در ضمن وقتی سریع می کشی درست رسم نمیشه
برنامم رو آپلود کردم
returnx
شنبه 23 بهمن 1389, 22:56 عصر
از این کد در رویداد Mouse_Move استفاده کنید:

If x1 < 0 And y1 < 0 Then

x1 = X
y1 = Y
End If
Picture1.Line (x1, y1)-(X, Y)
x1 = X
y1 = Y
End if
یادتون نره که در General متغیر ها رو هم معرفی کنید...
ariama
دوشنبه 25 بهمن 1389, 18:34 عصر
با تشکر از آقای ms2222
نمیشه میشه کد دیگه بگید
returnx
چهارشنبه 27 بهمن 1389, 17:33 عصر
شما باید تو رویداد Mouse_Down هم از این کد استفاده کنید

If Button = 1 Then
x1 = X
y1 = Y
Me.PSet (X, Y), vbBlack
End If
البته خطی که نقطه رو مشخص میکنه مهم نیست مهم X1 و y1 هستند که باید برابر X,Y قرار بگیرند
اگه خواستی می تونم برات یک نمونه کوچیک هم بزارم...
knight-rak
یک شنبه 15 اسفند 1389, 20:02 عصر
سلام
دوست عزیز نیازی به این کار نیست کافیه توی ماوس دون مختصات x1 و Y1 رو بگیرید بعدش توی ماوس آپ خط رو ترسیم کنید تا مختصات (x,y)-(x1,y1)

موفق باشید