fareyi pictureboxın ortasna hareket ettirme

formbüyüklüğünde bir picturebox üzerine koordinatlarla program çalışırkenkod ile pictureboxlar yerleştirdim,ama fare birinin üstüne gelincefarenin üstüne geldiği pixturebox ın orta noktasına gelmesiniistiyorum,şimdi sanırım kodile yerleştirdiğim ana picturebox ınkopyaları,kodun pictrurebox ın mouse move olayına yazılması gerekiyoherhalde.yani ben öyle yaptım.
ama pictureboxlar arasında farkda yarattım ama olmadı.

Private Sub Picture2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)

aX = Form3.Left + Picture2(Index).Left + (Picture2(Index).Width / 2)

aY = Form3.Top + Picture2(Index).Top + (Picture2(Index).Height / 2)

Call SetCursorPos(aX, aY)

End Sub

şeklinde yapıyorum ama,üstüne geldiği picture box ın orta noktasıyla alakası yok.sağ alt köşeye gidiyo.

SetCursorPos(aX / Screen.TwipsPerPixelX, aY / Screen.TwipsPerPixelY) yı denedim

böylede olmadı,bu seferde formun üst sol dolaylarına gidiyo.

birde şöyle birşey var:aa() x noktası BB() y noktası ad() noktanın ismi
picture2(1) ise aa(1) ve BB(1)
For z = 1 To bu
ex = aa(z) - 5400
ey = BB(z) - 4604
ad = cc(z)
'sondaj noktalarının yerlerine nokta koydurduk
Load Picture2(z)
Picture2(z).Visible = True
Picture2(z).Top = ey - (Picture(2).Height / 2)
Picture2(z).Left = ex + (Picture(2).Width / 2)

Picture1.CurrentX = ex + 10
Picture1.CurrentY = ey + 10
'sondaj noktalarının yerlerine isimlerini yazdık
Picture1.Print ad
Next z
nasıl yapabilirim?

	Gönderen	Konu: fareyi pictureboxın ortasna hareket ettirme (Okunma Sayısı 113 defa)
0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Visual Basic