Dim g As Graphics = PictureBox1.CreateGraphics
g.ScaleTransform(1, -1) 'X轴不变,反转Y轴
向右为X轴正方向 向上为Y轴正方向
下面说坐标轴和原点的标示法:
假定自定义坐标设为:
则
Print "x" '标示x轴
Print "y" '标示y轴
Print "0" '标示原点
Private Structure POINTAPI '声明坐标变量
End Structure
'好了,全部的声明部分
'以下是窗口部分
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick '用时钟控件来取坐标,窗口上放个Timer组件,Enabled为允许,周期为10到100毫秒均可
Dim P As POINTAPI '声明坐标变量
Dim xx, yy '声明转换要用到的变量
GetCursorPos(P) '获取鼠标在屏幕中的位置
xx = P.x.ToString '把X转换成能显示到文本框的字符串格式
yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式
TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标
End Sub
控件.location=New Point(X,Y)
X,Y为整数,即控件坐标,原点在窗体左上角
代码就不写了,给你思路,默认左上角是原点,所以x的位置=窗口高度-y.
这样就获得xy
复杂点的办法是重写绘制,绘制十字,
Button1.Location?=?New?Point(100,?100)
或
Button1.Left?=?100
Button1.Top?=?100
以上就是土嘎嘎小编大虾米为大家整理的相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!