مشکل در درست کردن paint

[ariaman5]

سلام

من در paint سه یا چهار نوع قلم رو گذاشتم
اما در اضافه کردن marker مشکل دارم

برای مارکر میخوام از pset استفاده کنم

طرح سادش اینه :

Private Sub abcd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
if button = 1 and text45.text = "marker" then
pset(x , y ) , *label.caption
end sub

label.caption مربوط به رنگشه

ولی وقتی که برنامه اجرا میشه و ماوس رو با سرعت تکون بدیم نقطه ها خیلی از هم فاصله می گیرن. میخوام پیوسته باشن.

از چه تابعی باید استفاده کنم یا چه تغییری تو این کد باید بدم؟:اشتباه:

[m.4.r.m]

تو گوگل یه سرچ بزن برنامه Paint در ویژوال بیسیک دانلود کن از دستوراتش یاد بگیر

[amin32]

یک پروژه جدید ایجاد کنید.یک picturebox به فرم اضافه کنید و ازکد زیر استفاده کنید:


Dim sx As Long, sy As Long
Private Sub Picture1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
sx = X
sy = Y
End Sub
Private Sub Picture1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If Button = 1 Then
Picture1.Line (sx, sy)-(X, Y), vbRed
sx = X
sy = Y
End If
End Sub