要用到vb的api函数ClientToScreen,你可以看看这个方面的内容,
这里又一个坐标变换的问题!
控件.location=New Point(X,Y)
X,Y为整数,即控件坐标,原点在窗体左上角
代码就不写了,给你思路,默认左上角是原点,所以x的位置=窗口高度-y.
这样就获得xy
复杂点的办法是重写绘制,绘制十字,
在你的窗体代码最顶上(那就第一行吧,其实就是"声明"那里),加入以下代码:
Private Type POINTAPI
x As Long
y As Long
End Type
Dim MousePos As POINTAPI
GetCursorPos MousePos
ClientToScreen 控件名.hWnd, MousePos
完了以后,MousePos.x和MousePos.y就是鼠标相对控件的位置的横纵坐标.去掉"ClientToScreen 控件名.hWnd, MousePos"这句,就是取鼠标在屏幕上的位置.
你原来的代码里有
Button1.Location?=?New?Point(100,?100)
或
Button1.Left?=?100
Button1.Top?=?100
窗体内的左上角的座标为(0,0),向右是.Left+,向左是.Left-,向下是.Top+,向上是.Top-;如果要使用相对座标,比如向右移动100,就可以写成Object.Left=Object.Left+100即可.
以上就是土嘎嘎小编为大家整理的vb.net控件绝对坐标相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!