《Visual Basic程序设计案例教程 工业和信息化普通高等教育十二五 规划教材立项项目 教学课件 ppt 作者 刘红梅 第10章》由会员分享，可在线阅读，更多相关《Visual Basic程序设计案例教程 工业和信息化普通高等教育十二五 规划教材立项项目 教学课件 ppt 作者 刘红梅 第10章（45页珍藏版）》请在金锄头文库上搜索。
1、第10章 在程序中运用绘图方法,10.1在应用程序中运用绘图方法,10.2 任务分析,10.1 任务描述,10.1 任务描述,在Visual Basic 6.0编程中几乎离不开其图形操作功能，图形的使用不仅可以使得程序界面美观、富有生气，而且适当的图形应用还可以引导用户更好地使用该程序。本章学习Visual Basic 6.0中图形操作中各控件和方法的使用。,10.2 任务分析,学习坐标系统的相关知识和建立方法； 学习一些基本的绘图属性，如当前坐标、线宽、线型、填充图案及色彩； 学习图形控件的常用属性，如PictureBox、Image、Line、Shape等 学习图形方法，画点、直线、圆形（
2、椭圆、扇形、弧形）等。,10.3 在应用程序中运用绘图方法,10.3.1 坐标系统 10.3.2 绘图属性 10.3.3 图形控件 10.3.4 图形方法,10.3.1 坐标系统,放置图形的对象被称为“容器”。 坐标系由坐标原点、坐标度量单位、坐标轴的长度与方向3个要素构成。 1默认坐标系 2自定义坐标系,1默认坐标系,默认坐标系的坐标原点在“容器”的左上角，横向向右为X轴的正向，纵向向下为Y轴的正向。,（1）ScaleMode属性。,通过设置容器对象的ScaleMode属性值来改变坐标系的坐标单位。坐标单位可分为： 0-User(用户自定义) 1-Twip 2-Point(磅) 3-Pixe
3、l（像素） 4-Character（字符） 5-Inch（英寸） 6-millimeter（毫米） 7-centimeter（厘米） 8种形式，默认时为Twip度量单位。 注意：1 Inch=1440 Twip 1 Point=20 Twip,（2）Height属性及ScaleHeight属性。,“容器”的高度由Height属性及ScaleHeight属性确定。注意：Height属性值包括了标题栏和水平边框宽度，而实际可用高度由ScaleHeight确定。 ScaleHeight=右下角坐标的y值-左上角坐标的y值,（3）Width属性及ScaleWidth属性。,“容器”的宽度由Width属
4、性及ScaleWidth属性确定。 ScaleWidth=右下角坐标的x值-左上角坐标的x值,（4）ScaleTop属性,ScaleTop属性表示“容器”左上角坐标的y值，默认为0。,（5）ScaleLeft 属性,ScaleLeft 属性表示“容器”左上角坐标的x值，默认为0。 注意：ScaleMode属性值改变后与坐标度量相关的属性均会随之改变，如ScaleHeight和ScaleWidth等。,2自定义坐标系,（1）通过属性定义坐标系。 通过ScaleTop，ScaleLeft，ScaleWidth和ScaleHeight属性实现。,例10.1 通过属性定义坐标系,Private Sub
5、 Form_Click() Cls Form1.ScaleLeft = -10: Form1.ScaleTop = 20 Form1.ScaleWidth = 40: Form1.ScaleHeight = -30 Line (-10, 0)-(30, 0) Line (0, 20)-(0, -10) CurrentX = 0: CurrentY = 0: Print 0 CurrentX = 28: CurrentY = -1: Print “X“ CurrentX = 1: CurrentY = 17: Print “Y“ End Sub,2自定义坐标系,（2）通过Scale方法定义坐标系
6、。 采用Scale方法来设置坐标系： 对象.Scale (xLeft,yTop)-(xRight,yBotton),例10.2 采用Scale方法定义坐标系,Private Sub Command1_Click() Cls Form1.Scale (0, 1000)-(1000, 0) Form1.Circle (500, 500), 300 End Sub Private Sub Command2_Click() Cls Form1.Scale Form1.Circle (500, 500), 300 End Sub,10.3.2 绘图属性,1当前坐标CurrentX，CurrentY 2线
7、宽DrawWidth 3线型DrawStyle 4填充FillStyle，FillColor 5色彩ForeColor,1当前坐标CurrentX，CurrentY,CurrentX，CurrentY属性给出窗体或图形框或打印机在绘图时的当前坐标。 这两个属性在设计阶段不能使用。,例10.3 使用当前坐标属性设置立体字,Private Sub Form_Click() FontSize = 40 字号 ForeColor = QBColor(0) 字颜色=黑 CurrentX = 100 CurrentY = 60 Print “ 当前坐标练习“ ForeColor = QBColor(15)
8、 字颜色=白 CurrentX = 110 CurrentY = 70 Print “ 当前坐标练习“ End Sub,2线宽DrawWidth,窗体、图形框或打印机的DrawWidth属性给出这些对象上所画线的宽度或点的大小。DrawWidth属性以像素为单位来度量，最小值为1。,例10.4 属性DrawWidth的应用,Private Sub Form_Click() Dim i As Integer Form1.ScaleHeight = 4000 可用高度 Form1.ScaleWidth = 8000 可用宽度 CurrentX = 0 当前横坐标 CurrentY = ScaleH
9、eight /2 当前纵坐标 For i = 1 To 15 DrawWidth = i * 3 线宽 Line -Step(ScaleWidth / 16, 0), QBColor(i) 画彩色线 Next i End Sub,3线型DrawStyle,例10.5 利用属性DrawStyle来演示线的七种形状。,Private Sub Form_Click() Dim i As Integer Form1.ScaleHeight = 80 Form1.ScaleWidth = 100 For i = 0 To 6 Form1.DrawStyle = i Line (0, 10 * (i +
10、1)-(100, 10 * (i + 1) Next i End Sub,4填充FillStyle，FillColor,FillStyle填充图案，共有8种类型，分别为0-solid（实填充）、 1-transparent（透明）、 2-horizontle line（水平线） 、3-verticle line（竖直线）、 4-upward diagonal（向上对角线）、 5-downward diagonal（向下对角线）、 6-cross（交叉线）、 7-diagonal cross（斜交叉线）。 FillColor填充颜色，属性值由QBColor或RGB函数确定，或者等于一个六位的十六
11、进制长整数。,例10.6 填充图案FillStyle和填充颜色FillColor的演示,Private Sub Form_Load() For i = 1 To 5 Load Shape1(i) Shape1(i).Visible = True Shape1(i).Left = Shape1(i - 1).Left + 1000 Shape1(i).Shape = i Next i End Sub Private Sub Command1_Click() Randomize For i = 0 To 5 Shape1(i).FillStyle = Int(Rnd * 8) Shape1(i).
12、FillColor = QBColor(Int(Rnd * 16) Next i End Sub,5色彩ForeColor,Visual Basic 默认采用对象的前景色(ForeColor属性)绘图，也可以通过以下颜色函数指定色彩。 1. RGB(红,绿,蓝)函数 红、绿、蓝三基色使用0255之间的整数。 2. QBColor(颜色码) 颜色码使用015之间的整数。,例10.7 利用RGB函数产生一个过渡色。,Private Sub Form_Load() Form1.ScaleHeight = 256 Form1.ScaleWidth = 200 For j = 0 To 255 Line
13、 (0, j)-(200, j), RGB(j, 0, 0) Next j End Sub,例10.8 利用QBColor函数产生一组不同颜色的线条。,Private Sub Form_Load() Form1.ScaleHeight = 15 Form1.ScaleWidth = 200 For j = 0 To 15 Line (0, j)-(200, j), QBColor(j) Next j End Sub,10.3.3 图形控件,1PictureBox与Image 2. Line 3. Shape,1PictureBox与Image,Picture Box(图形框) 主要作用：显示图
14、片、也可作为其他控件的容器。 装入图形：图形框对象.Picture = LoadPicture(“图形文件名”) 删除图形：图形框对象.Picture = LoadPicture( ) Autosize属性设置为True时，图形框能自动调整大小与显示的图片匹配,例10.9控件Picture的练习。,Private Sub Form_Load() Picture1.Height = 2200 Picture1.Width = 2655 Picture2.Height = 2200 Picture2.Width = 2655 Picture1.AutoSize = False Picture1.P
15、icture = LoadPicture(“E:zptaolingouIMG_0780.jpg“) Picture2.AutoSize = True Picture2.Picture = LoadPicture(“E:zptaolingouIMG_0780.jpg“) End Sub,Image(图像框),图像框比图形框占用更少的内存块。图像框内不能保存其他控件。 Stretch属性=False，图像框可自动改变大小，以适应其中的图形。 Stretch属性=True， 图形可自动调整尺寸，以适应图像框的大小。,例10.10 控件Image的练习。,Private Sub Form_Load()
16、 Image1.Height = 2200 Image1.Width = 2655 Image2.Height = 2200 Image2.Width = 2655 Image1.Stretch = True Image1.Picture = LoadPicture(“E:zptaolingouIMG_0780.jpg“) Image2.Stretch = False Image2.Picture = LoadPicture(“E:zptaolingouIMG_0780.jpg“) End Sub,2.Line,用于在界面上绘制线条，主要用于修饰。程序运行时不能使用Move方法移动线条控件，但是可以通过改变X1、X2、Y1和Y2属性来移动或调整它的大小。,3.Shape,Shape控件可以用来画矩形、正方形、椭圆、圆、圆角矩形及圆角正方形
