تغییر مختصات پرینت در picturebox

[knight-rak]

سلام
چطور میشه مختصات پرینت picturebox رو با مختصات ماوس ست کرد ؟؟؟
-- برای فرم از دستور زیر استفاده میکنیم ولی وقتی به پیکچرباکس میدم عمل نمیکنه :


currentx=x
currenty=y
me.print "M"

وقتی برای پیکچرباکس اینجوری مینویسم پشت سر هم پرینت میشه و اصلا مختصات تاثیری نداره :


currentx=x
currenty=y
pic1.print "M"


موفق باشید ....

[محسن واژدی]

سلام علیکم
دستورات را بدین صورت بنویسین انشاء الله درسته


Private Sub pic1_Click()
pic1.Print "M"
End Sub

Private Sub pic1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
pic1.CurrentX = X
pic1.CurrentY = Y
End Sub



موفق باشید

[knight-rak]

ممنون به این صورت جواب داد با کلیک زیاد حالت خوشی نداره
مشکل همون نزاشتن pic1 قبل از current بود


pic1.CurrentX = X: pic1.CurrentY = Y: pic1.Print "M"

موفق باشید ....