Basic程序设计实用教程与实训.ppt

图形图像与多媒体编程 8.1 绘 图 控 件 8.2 常用绘图方法 8.3 显 示 图 形 8.4 滚动条控件 8.5 计时器控件 8.6 简单多媒体编程 本章要点 绘图控件和绘图方法 图片框控件、图像控件、时钟控件的使用方法 滚动条控件和简单多媒体编程技术 8.1 绘 图 控 件 8.1.1 形状控件 8.1.2 直线控件 8.1.3 使用颜色 8.1.1 形状控件 形状控件预定义了6种形状，通过设置Shape属性值，可绘制不同形状的图形。Shape属性值见表8-1。 形状控件的常用属性有以下几个。 (1) BorderColor属性：设置或返回对象的边框颜色。 (2) BackStyle 属性：设置Shape 的背景样式是否透明。 (3) BorderStyle属性：设置对象的边框样式，有7个不同的值，默认值为1(实线)。 (4) BorderWidth属性：设置或返回控件的边框宽度。 (5) DrawMode属性：设置Shape控件输出时的外观，有16个不同的值，默认值为13(像素颜色变为前景色)。 (6) FillColor属性：设置或返回填充形状所使用的颜色。 (7) FillStyle 属性：设置或返回Shape控件的填充样式，有8个不同值，默认值为1。 (8) Width属性、Height属性、Left属性、Top属性能确定形状控件的大小和位置。 形状控件不能响应事件，但支持Move等方法。 8.1.2 直线控件 直线控件用于绘制直线。直线控件的BorderColor、BorderStyle、BorderWidth、DrawMode属性与形状控件的相关属性相似。但直线控件通过X1、X2、Y1、Y2四个属性来确定直线的起点和终点。 直线控件不支持Move方法。 8.1.3 使用颜色 1. 在属性窗口设置颜色 在VB的属性窗口中，为需要设置颜色的属性提供了调色板，只要在调色板中直接选择所需颜色即可，非常直观。 2. 直接赋给相关属性颜色常数 在VB中已预先定义好部分颜色常数，如：vbRed表示红色，vbBlue表示蓝色，vbBlack表示黑色，vbGreen表示绿色，vbWhite表示白色。可以直接将颜色常数赋给相关属性，例如，Text1.ForeColor=vbBlue。 3. 使用RGB函数 红、绿、蓝是3种基本颜色，由这3种基本颜色可组合产生出各种颜色。RGB函数是根据输入的代表红、绿、蓝3种颜色的数值来产生颜色的。 RGB函数的语法格式为? RGB(red,green,blue)? 其中，red、green、blue这3个参数分别表示所产生的颜色中红色的成分、绿色的成分、蓝色的成分，3个参数的取值范围均为0～255。 如设置Text1的前景色为红色：Text1.ForeColor=RGB(255,0,0)。 常用标准颜色的RGB值为：黑色(RGB(0，0，0))、蓝色(RGB(0，0，255))、绿色(RGB(0，255，0))、红色(RGB(255，0，0))、白色(RGB(255，255，255))、青色(RGB(0，255，255))、洋红色(RGB(255，0，255))、黄色(RGB(255，255，0))。 4. 使用QBColor函数 QBColor函数起源于早期的Basic版本QBasic，它是根据颜色码确定对应的颜色。QBColor函数的语法格式为? QBColor(颜色码)? 其中，颜色码的取值范围为0～15。各颜色码对应的颜色见表8-2。 如4对应红色：Text1.ForeColor= QBColor(4)。 【例8.1】 设计一个应用程序，其功能是设置Shape控件的线型、填充类型、形状和填充颜色。 1) 界面设计 2) 代码分析与设计 程序的源代码如下：? Private Sub Combo1_Click() If Combo1.ListIndex = 0 Then Shape1.BorderStyle = Val(Combo1.Text) End Sub Private Sub Combo2_Click() If Combo2.ListIndex = 0 Then Shape1.FillStyle = Val(Combo2.Text) End Sub Private Sub Combo3_Click() If Combo3.ListIndex = 0 Then Shape1.Shape = Val(Combo3.Text) End Sub Private Sub Command1_Click() Dim r As Integer, g As Integer, b As Integ