Question

自己想在窗口建个自定义坐标 同时vb 获取鼠标坐标 并显示

自己想在窗口建个自定义坐标 同时vb 获取鼠标坐标 并显示
谢谢大家了

Answer 1

当然可以了，比如你定义窗体坐标为10至-10
程序如下：
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Scale (-10, 10)-(10, -10)
Me.Caption = "x坐标：" & X & " Y坐标：" & Y
End Sub

Answer 2

Private Type POINTAPI
x As Long
y As Long
End Type
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long

Private Sub Command1_Click()
Dim p As POINTAPI
GetCursorPos p
MsgBox "x=" & p.x & ", y=" & p.y
End Sub
欢迎进我的QQ群里谈论VB啊：21941971

Answer 3

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Scale (-100, 100)-(100, -100)
Me.Caption = "鼠标当前x坐标：" & X & "鼠标当前Y坐标：" & Y
End Sub

Answer 4

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Scale (-100, 100)-(100, -100)
Cls

Print "x坐标：" & X & " Y坐标：" & Y

End Sub

Answer 5

Option Explicit
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Me.Scale (-100, 100)-(100, -100) '''定义坐标，两点分别是 窗口左上和右下的新左边
Me.Line (-100, 0)-(100, 0)
Me.Line (0, 100)-(0, -100)
lbl1.Caption = "(x：" & X & " y：" & Y & ")"
End Sub