vb.net转换坐标 vb如何显示坐标

vb.net 坐标的转化

也就是A(x,y)-------A'(y*sin(x*pi/180),y*cos(x*pi/180))------------前提是先vb.net转换坐标：

Dim g As Graphics = Me.PictureBox1.CreateGraphics

g.TranslateTransform(x, y)'实现坐标平移vb.net转换坐标，即把圆中心作为vb.net转换坐标了坐标原点了-----该处的x,y为圆心在要作图picture中的相对坐标

g.ScaleTransform(1, -1) 'X轴不变vb.net转换坐标，反转Y轴

相关问答

Q1: 可不可以回答一下，vb.net中的窗体坐标和屏幕上的屏幕坐标怎么转换？？ （最好是有代码） 祝好人一生平安!

vb.net 2008

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim a_Point, b_Point, c_point As Point

b_Point = MousePosition '鼠标点击坐标（屏幕上的屏幕坐标）

a_Point = PointToClient(MousePosition) 'vb.net中的窗体坐标

c_point = PointToScreen(a_Point) '将vb.net中的窗体坐标转换成屏幕上的屏幕坐标

End Sub

End Class

Q2: 如何用vb.net语言，将AutoCAD里的坐标系Y轴方向，即变向上为正转为向下为正。

工具 -新建-z轴矢量。在再你要变坐标的地方的一点 点击一下让z轴向上，就可以了。

Q3: VB.NET 坐标查找问题

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

这样就获得xy

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

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

Q4: 在VB.net中怎么获取 鼠标在屏幕中的坐标

Private Declare Function GetCursorPos Lib "user32" (ByRef lpPoint As POINTAPI) As Long '全屏坐标声明

Private Declare Function ScreenToClient Lib "user32.dll" (ByVal hwnd As Int32, ByRef lpPoint As POINTAPI) As Int32 '窗口坐标声明

Private Structure POINTAPI '声明坐标变量

Public x As Int32 '声明坐标变量为32位

Public y As Int32 '声明坐标变量为32位

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) '获取鼠标在屏幕中的位置

ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体的坐标

xx = P.x.ToString '把X转换成能显示到文本框的字符串格式

yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式

TextBox1.Text = xx + "和" + yy '文本框的内容为X坐标和Y坐标

End Sub

Q5: VB.NET坐标变换

Dim g As Graphics = PictureBox1.CreateGraphics

g.TranslateTransform(2, 2) ‘定义原点坐标

g.ScaleTransform(1, -1) ’X轴不变，反转Y轴

以PictureBox1中（2,2）点为新的原点（0,0）

向右为X轴正方向 向上为Y轴正方向

vb.net转换坐标的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb如何显示坐标、vb.net转换坐标的信息别忘了在本站进行查找喔。