锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net设置坐标系 vb自定义坐标系

IT技术坐标

如何用vb.net语言 ， 将AutoCAD里的坐标系Y轴方向 ， 即变向上为正转为向下为正 。工具 -新建-z轴矢量 。在再你要变坐标vb.net设置坐标系的地方vb.net设置坐标系的一点点击一下让z轴向上vb.net设置坐标系，就可以vb.net设置坐标系了 。
vb.net怎么绘制平面直角坐标系创建Graphics对象vb.net设置坐标系，可以调用CreateGraphics()直接做图也可以创建Bitmap对象然后调用Graphics.FromBitmap(b)得到Graphics G
G.Clear(Colors.Black)
G.DrawLine(Pens.White, 画线vb.net设置坐标系的坐标
VB.NET坐标变换Dim g As Graphics = PictureBox1.CreateGraphics
g.TranslateTransform(2, 2)‘定义原点坐标
g.ScaleTransform(1, -1)’X轴不变vb.net设置坐标系，反转Y轴
以PictureBox1中（2,2）点为新vb.net设置坐标系的原点（0,0）
向右为X轴正方向向上为Y轴正方向
在VB.net中怎么获取 鼠标在屏幕中的坐标【vb.net设置坐标系 vb自定义坐标系】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 '声明转换要用到vb.net设置坐标系的变量
GetCursorPos(P) '获取鼠标在屏幕中vb.net设置坐标系的位置
ScreenToClient(Me.Handle.ToInt32, P) '转换为本窗体vb.net设置坐标系的坐标
xx = P.x.ToString '把X转换成能显示到文本框的字符串格式
yy = P.y.ToString '把Y转换成能显示到文本框的字符串格式
TextBox1.Text = xx"和"yy '文本框的内容为X坐标和Y坐标
End Sub
基于VBNET的GDI坐标系统如何设置坐标单位123456789101112Dim picX, picY, x1, y1, x2, y2, a href="https://www.04ip.com/post/;tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aX, a href="https://www.04ip.com/post/;tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aYpicX = 0 '要转换的Picture1坐标XpicY = 0 '要转换的Picture1坐标Yx1 = Picture1.ScaleLefty1 = Picture1.ScaleTopx2 = Picture1.ScaleLeftPicture1.ScaleWidthy2 = Picture1.ScaleTopPicture1.ScaleHeight '记录原先的坐标系统Picture1.ScaleMode = 3 '坐标系统设为像素a href="https://www.04ip.com/post/;tn=44039180_cprfenlei=mv6quAkxTZn0IZRqIHckPjm4nH00T1YLPhmknAcvPjNhnvRYPAF90ZwV5Hcvrjm3rH6sPfKWUMw85HfYnjn4nH6sgvPsT6KdThsqpZwYTjCEQLGCpyw9Uz4Bmy-bIi4WUvYETgN-TLwGUv3EnHb3rjbkrjc3rHc4nHn1rj0vPs" target="_blank" class="baidu-highlight"gdi/aX = Round((picX - x1) / (x2 - x1) * Picture1.ScaleWidth)gdiY = Round((picY - y1) / (y2 - y1) * Picture1.ScaleHeight)MsgBox "Picture1的坐标("picX","picY")转为GDI坐标是("gdiX","gdiY")"Picture1.Scale (x1, y1)-(x2, y2) '改回原先的坐标系统
vb.net设置坐标系的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于vb自定义坐标系、vb.net设置坐标系的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：如何成为营销编辑，营销编辑是做什么工作

    下一篇：三国演义手游单机游戏，三国演义手游单机版下载