图形坐标体系颜色绘图方法形状控件坐标X值是沿X轴点的位置-Read.pptVIP

图形 坐标体系 颜色 绘图方法 形状控件 坐标 X值：是沿X轴点的位置，窗体中最左端是缺省位置0 Y值：是沿Y轴点的位置，窗体中最上端是缺省位置0 X,Y的值可以小于0，也可以大于容器宽度或高度 坐标值的刻度 缺省使用缇（Twip）为测量单位。 缇是打印机的一磅的1/20（1440缇等于一英寸；567缇等于一厘米）。这些测量值指示对象打印后的大小。利用缇可以精确地控制图形打印输出的质量。 通过设置控件的ScaleMode属性，可以采用不同的刻度 来表示坐标值 ScaleMode属性 每个可见控件都有ScaleMode属性，可以取以下常量值： vbUser：0，用户自定义。若直接设置了 ScaleWidth、ScaleHeight、ScaleTop 或 ScaleLeft，则 ScaleMode 属性自动设为 0 vbTwips（缺省值）：1，缇 vbPoints：2，磅，72磅等于一英寸 vbPixels：3，像素。像素是监视器或打印机分辨率的最小单位，每英寸里像素的数目由设备的分辨率决定 vbCharacters：4，字符。打印时，一个字符有 1/6 英寸高、1/12 英寸宽 vbInchs：5，英寸 vbMillimeters：6，毫米 vbCentimeters：7，厘米 不同刻度的转换 ScaleX和ScaleY方法：用来将水平坐标或垂直坐标值从一种刻度模式转换为另一种刻度模式。返回转换后的刻度值。 [object.]ScaleX (value [, fromScale [, toScale]]) [object.]ScaleY (value [, fromScale[,toScale]]) Value：是给定的一个坐标值（如控件的宽度或高度）； fromScale：指定从哪一种坐标系统转换（刻度常量）；如省略，则默认value的刻度模式是HIMETRIC（0.01毫米）。 toScale：指定要转换到哪一种坐标系统（刻度常量） 。省略，则取object的刻度模式（即ScaleMode属性指定的刻度模式）。 如将1厘米的宽度转换为以缇为单位的宽度数并输出： Debug.Print Form1.ScaleX(1, vbCentimeters, vbTwips) 输出结果为566.9286 颜色 指定颜色有四种方式： 使用RGB函数，该函数有三个参数，分别取值0-255； 使用QBColor函数，该函数有一个参数，取值0-15，16种Microsoft QuickBasic颜色中的一种； 使用内部描述颜色的常量，如vbRed； 直接输入一种颜色值。 调色板颜色值：正常的RGB颜色的有效范围，是从0到16,777,215（HFFFFFF）。即可以用十六进制数按照下述语法来指定颜色：HBBGGRR 系统颜色值：最高位设置为1时，颜色值不再代表RGB颜色，而是从Windows“控制面板”指定的系统环境范围颜色。这些数值对应的系统颜色范围是从 绘图方法 VB提供有以下创建图形的方法，这些图形方法适用于窗体和图片框控件。 Cls：清除所有图形和调用Print方法所作的输出 PSet：设置屏幕指定位置像素的颜色 Line：画线、矩形、或填充框 Circle：画圆、椭圆、或圆弧 Point：返回指定点的颜色值 PaintPicture：在任意位置画出图形 使用Pset方法画点 [object.]PSet (x, y)[, color] x和y参数是单精度参数，所以它们可以接受整数或分数的输入，可以适应不同的坐标系。 color参数指定点的颜色，该参数可以使用任意一种方法来指定。如果没有指定color参数，PSet将像素设置为前景色（object对象的ForeColor属性）。 下述语句在当前窗体、MyForm窗体和Picture1图片框上设置各种点： PSet (10.75, 50.33) MyForm.PSet (230, 1000) Picture1.PSet (1.5, 3.2) PSet (50, 75), RGB(0, 0, 255) Pset方法示例 【例】编写程序，在窗体上随机画出各种颜色的点。 Sub Form_Click() Dim R As Integer, G As Integer, B As Integer Dim XPos As Integer, YPos As Integer Do 设置红、绿、兰随机颜色值，赋值后会自动转换为整数 R = 255 * Rnd G = 255 * Rnd B = 255 * Rnd 设置水平和垂直位置的随机坐标值 XPos = Rnd