Visual Basic程序设计教程第7章 图形设计.pptVIP

Command1的Click事件为：（设置线宽） Private Sub Command1_Click() For i = 0 To 4 Line1(i).BorderWidth = i + 3 Next i End Sub Command2的Click事件为：（设置线型） Private Sub Command2_Click() For i = 0 To 4 Line1(i).BorderStyle = i + 1 Next i End Sub Command3的Click事件为：（设置线色） Private Sub Command3_Click() For i = 0 To 4 Line1(i).BorderColor = QBColor(i + 8) Next i End Sub 第*页 7.3 绘制图形 第*页 7.3.1 绘图属性 1．DrawWidth属性 该属性用于设置（或读取）使用窗体或图片框对象的绘图方法画线时的线宽，其值以像素为单位， 2．DrawStyle属性 该属性用于设置（或读取）使用绘图方法画线时的线型样式，其取值范围为：0 —实线（缺省）、1 —虚线、2—点线、 3 —点划线、4 —双点划线、5 —透明线、6 —内实线。 第*页 3．FillColor属性、FillStyle属性 利用FillColor属性和FillStyle属性可以对已绘制好的封闭图形（如正方形、矩形、圆等）设置填充颜色或图案。 4．AutoRedraw属性 该属性用于设置窗体或其他容器控件对图形重绘的处理。 当AutoRedraw属性设置为True时，重绘自动进行。 AutoRedraw属性值默认为False，此时重绘工作需要依赖Paint事件过程来完成。 第*页 例7-9 在窗体的下方放一个PictureBox控件，在AutoRedraw属性为为True时在窗体上画一个永久的绿色实心圆；每次用鼠标单击矩形框（PicturnBox控件），将在AutoRedraw属性为False时在窗体上画一个红色实心圆，并移动矩形框。 运行程序将会出现如下图所示的情况。当矩形框同时覆盖两种颜色的实心圆后，再单击矩形框使其移开，绿色实心圆将完整的再现，而红色实心圆被矩形框遮住的部分没有被重画。 第*页 * * * * * Visual Basic 程序设计教程 第7章 图形设计 第*页 本章主要内容 7.1 坐标系统 7.2 图形控件 7.3 绘制图形 (2学时) 第*页 7.1 坐标系统 第*页 7.1.1 默认坐标系统 构成一个坐标系需要有三个要素：坐标原点、坐标轴的方向、坐标度量单位。 默认坐标系统，都是从容器的左上角(0,0)坐标开始；x轴的正方向水平向右，y轴的正方向垂直向下；默认的度量单位是缇（Twip，即1/1440英寸）。 第*页 1．Visual Basic坐标系统的规则 （1）当移动控件或调整控件的大小时，使用控件容器的坐标系统。 （2）所有图形方法和Print方法都使用容器的坐标系统。 （3）当创建用来调整窗体大小或移动窗体的代码时，应先检查屏幕对象的Height属性和Width属性，以确保窗体在屏幕上大小合适。 （4）屏幕的左上角总是（0，0）。 第*页 2．Visual Basic坐标系统常用属性 （1）控件在容器中的位置属性 Top属性：控件左上角到所在容器上边沿的距离。 Left属性：控件左上角到所在容器左边沿的距离。 （2）控件自身宽度、高度的属性 Width属性：控件本身的宽度。 Height属性：控件本身的高度。 第*页 （3）容器（窗体、图片框）的坐标属性 ScaleMode属性 坐标度量单位由容器对象的ScaleMode属性决定，ScaleMode属性的设置如表7-1所示。 第*页 ScaleLeft、ScaleTop属性 ScaleLeft属性为容器左上角的横坐标；ScaleTop属性为容器左上角的纵坐标。 ScaleWidth、ScaleHeight属性 ScaleWidth属性为容器内部的宽度值，ScaleHeight属性为容器内部的高度值。 CurrentX、CurrentY属性 CurrentX属性为当前点在容器内的横坐标，CurrentY属性为当前点在容器内的纵坐标。 第*页 7.1.2 用户自定义坐标系统 1．通过对象的坐标属性自定义坐标系。 用户可以利用ScaleLeft、ScaleTop、ScaleWidth、ScaleHeight属性自己定义坐标系。 在标准坐标系统中，ScaleLeft和ScaleTop属性总是0；ScaleWidth和ScaleHeight属性则是根据坐标系统的长度单位计算的内部区