VB 坐标系简介与使用

Posted 2022-11-27 皮皮黄-机电工程师

VB坐标系统简介

本篇简要介绍如何改变系统默认坐标系统，使其变成正常的二维坐标系统，从而直观的绘制所需要的几何图形，本篇附带操作案例

目录：
1、系统默认坐标系
2、坐标系坐标系变换方法
3、案例源码演示

1、系统默认坐标系是以左上角为原点，向右为X轴正方向，向下为Y轴正方向，通常情况下是不会使用默认坐标系的，会将其进行变换。

2、变换坐标系通常使用控件Scale方法，例如使用
Form1.Scale (X1, Y1)-(X2, Y2)对控件坐标系进行变换， (X1, Y1)为控件左上角顶点坐标值，(X2, Y2)为控件右下角顶点坐标值。通过对顶点值的设定，得到相应的坐标系统。
举例说明：需要将Form1设置成一个总长、总高均为100且原点在正中心的坐标系，可以设置Form1.Scale (-50, 50)-(50, -50)即可。
这种设置方法的优点是可以直观的将默认坐标系统转换成自己所需要的的，并且可以设置坐标范围，而且不受控件大小、以及默认长度单位的影响，十分方便。

3、操作实例说明：本案例通过改变Picture1控件坐标系的Scale属性，然后画直线的方式直观说明坐标系变换的结果。
界面说明如下：
源代码如下：

'定义坐标系范围坐标参数
Dim X1 As Double
Dim Y1 As Double
Dim X2 As Double
Dim Y2 As Double

'定义直线两个端点坐标参数
Dim LX1 As Double
Dim LY1 As Double
Dim LX2 As Double
Dim LY2 As Double

Private Sub Command1_Click()
    '赋值坐标参数
    X1 = Text1.Text
    Y1 = Text2.Text
    X2 = Text3.Text
    Y2 = Text4.Text
    
    '赋值直线坐标参数
    LX1 = Text5.Text
    LY1 = Text6.Text
    LX2 = Text7.Text
    LY2 = Text8.Text
    
    Picture1.Cls '清屏
    Picture1.Scale (X1, Y1)-(X2, Y2) '定义坐标系图像范围
    Picture1.Line (LX1, LY1)-(LX2, LY2) '画直线
  
    Picture1.Line (-99999, 0)-(99999, 0), vbRed '画横坐标
    Picture1.Line (0, -99999)-(0, 99999), vbRed '画纵坐标
    
End Sub

下载地址：https://download.csdn.net/download/LuDanTongXue/12227533

（微信/QQ：pph846375164）