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

自己想在窗口建个自定义坐标同时vb获取鼠标坐标并显示谢谢大家了... 自己想在窗口建个自定义坐标 同时vb 获取鼠标坐标 并显示
谢谢大家了
展开
 我来答
jkcrow
2009-05-08 · TA获得超过476个赞
知道小有建树答主
回答量:611
采纳率:0%
帮助的人:533万
展开全部
当然可以了,比如你定义窗体坐标为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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
jerryzyz008
2009-05-08 · TA获得超过355个赞
知道小有建树答主
回答量:838
采纳率:0%
帮助的人:439万
展开全部
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
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
寒秋思念
2009-05-09
知道答主
回答量:32
采纳率:0%
帮助的人:0
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
百度网友b8e46f53d
2009-05-08 · TA获得超过405个赞
知道答主
回答量:210
采纳率:0%
帮助的人:140万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
夏海爱奇趣
2009-05-09 · TA获得超过1455个赞
知道小有建树答主
回答量:1645
采纳率:0%
帮助的人:1260万
展开全部
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
已赞过 已踩过<
你对这个回答的评价是?
评论 收起
收起 更多回答(3)
推荐律师服务: 若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询

为你推荐:

下载百度知道APP,抢鲜体验
使用百度知道APP,立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

辅 助

模 式