vb.net控件绝对坐标 vb坐标系统

vb 如果将控件里的绝对坐标换算成屏幕中的绝对坐标?

要用到vb的api函数ClientToScreen，你可以看看这个方面的内容，

这里又一个坐标变换的问题！

相关问答

Q1: vb.net 中怎样用代码设置控件location

控件.location=New Point(X,Y)

X,Y为整数，即控件坐标，原点在窗体左上角

Q2: VB.NET 坐标查找问题

代码就不写了,给你思路,默认左上角是原点,所以x的位置=窗口高度-y.

这样就获得xy

复杂点的办法是重写绘制,绘制十字,

简单点的办法就是十字放到picbox或者image里,然后取中,然后隐藏,确定按钮点击显示,中心位置等于坐标点,然后换算左上角控件位置,然后设置坐标.

Q3: VB API如何获取鼠标在某一控件中的绝对坐标位置值？

在你的窗体代码最顶上(那就第一行吧，其实就是“声明”那里)，加入以下代码：

Private Type POINTAPI

x As Long

y As Long

End Type

Public Declare Function ClientToScreen Lib "user32" Alias "ClientToScreen" (ByVal hWnd As Long, lpPoint As POINTAPI) As Long

Public Declare Function GetCursorPos Lib "user32" Alias "GetCursorPos" (lpPoint As POINTAPI) As Long

然后呢，我告诉你取鼠标相对控件位置的方法(注意注意：这里取得的坐标是以像素为单位的！！！而VB默认单位是“缇”即Twips。1像素=15缇)：

Dim MousePos As POINTAPI

GetCursorPos MousePos

ClientToScreen 控件名.hWnd, MousePos

完了以后，MousePos.x和MousePos.y就是鼠标相对控件的位置的横纵坐标。去掉“ClientToScreen 控件名.hWnd, MousePos”这句，就是取鼠标在屏幕上的位置。

你原来的代码里有

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

这个过程。实际上，这里的X和Y是鼠标在容器（控件）内的位置，以“缇”为单位。要转化成像素（Pixel），你得把原坐标的横纵值除以15.

Q4: VB.NET怎么让控件往指定坐标移动

Button1.Location = New Point(100, 100)

或

Button1.Left = 100

Button1.Top = 100

Q5: vb中坐标系是如何定义的？如何表示绝对坐标和相对坐标。

窗体内的左上角的座标为（0，0），向右是.Left+，向左是.Left-，向下是.Top+，向上是.Top-；如果要使用相对座标，比如向右移动100，就可以写成Object.Left=Object.Left+100即可。