PDA

View Full Version : حرفه ای: مختصات موس خارج از فرم



mehdi.safavie
پنج شنبه 28 شهریور 1392, 05:34 صبح
درود ؛

دستور TextBox1.Text = Cursor.Position.X مختصات X موس رو نشون میده ، اگر این دستور رو بزاریم روی رویداد Mose Move زمانی که موس روی فرم حرکت میکنه این مختصات رو برای ما نمایش میده .

میخوام بدونم چطوری میشه وقتی موس خارج از فضای موس هم حرکت میکنه مختصاتش رو داشت ؟
حتی نمیدونم چی باید سرچ کنم:ناراحت:

boveiryghasem
پنج شنبه 28 شهریور 1392, 12:42 عصر
درود بر شما

امیدوارم بدردت بخوره.

Public Declare Auto Function GetCursorPos Lib "User32.dll" (ByRef lpPoint As Point) As Integer
Dim mousepos As Point

Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
Timer1.Enabled = True
Timer1.Start()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim R As Long = GetCursorPos(mousepos)
Label1.Text = "Mouse Cursor Location : " & mousepos.X & "x" & mousepos.Y
End Sub