VB语言程序的设计 (2)ppt课件

1、主页主页框架框架滚动条滚动条图形方法和图形控件图形方法和图形控件GOTOGOTO语句和几个定义语句语句和几个定义语句主页主页 第第1111章章 绘图及其他控件功能绘图及其他控件功能本章主要内容退出退出主页主页 1. 框架的用途 作为容器放置其他控件对象，将这些控件对象分成可标识的控件组；框架内的一切控件将随框架一同挪动、显示和消逝。 (框架例如：“幻灯片放映“设置放映方式对话框) 例11.1 控制文本的字体、字号及颜色 在窗体上设置3个框架Frame1、Frame2和Frame3 11.1 框架(Frame)框架框架Frame3Frame3框架框架Frame2Frame2框架框架Frame1F

2、rame1例例11.1主页主页(2)(2)编写程序代码编写程序代码 功能要求：在三个框架中分别选择字体、字号和颜色，单击“确定按钮后，文本框中的文本相应属性会发生变化 Private Sub Form_Load() Option1.Value = True Option3.Value = True Option5.Value = True Text1.FontName = 宋体 Text1.FontSize = 16 Text1.ForeColor = RGB(0, 0, 255) End Sub主页主页 Private Sub Command1_Click() “确定按钮单击事件 If Op

3、tion1.Value Then Text1.FontName = 宋体 Else Text1.FontName = 幼圆 End If If Option3.Value Then Text1.FontSize = 16 Else Text1.FontSize = 20 End If If Option5.Value Then Text1.ForeColor = RGB(0, 0, 255) Else Text1.ForeColor = RGB(255, 0, 0) End If End Sub主页主页 11.2 11.2 滚动条滚动条 1.滚动条的用途 为不能自动支持滚动的运用程序和控件提供

4、滚动功能，也可作为数据输入的工具。 程度滚动条(HScrollBar)和垂直滚动条(VScrollBar) 2. 常用属性 (1) Min、Max属性：最小值Min属性的默许值为0，最大值Max属性的默许值为32767。 (2) Value属性：表示滚动块在滚动条中的位置值 挪动滚动块时，代表的值随之改动 (3) SmallChange属性：最小变动值 (4) LargeChange属性：最大变动值主页主页 3. 事件 滚动条控件可以识别10个事件，其中最常用的是Scroll和Change事件 (1)Scroll事件：当用鼠标拖动滚动块时，即触发Scroll事件 (2)Change事件：当改动

5、Value属性值时，即触发Change事件 当释放滚动块、单击滚动条内空白处或滚动箭头时，Change事件就会发生。主页主页例例11.2 11.2 设计一个调色板运用程序设计一个调色板运用程序 建立三个程度滚动条作为红、绿、蓝三种根本颜色的输入工具，合成的颜色显示在右边的标签中(图10.3)，用其背景颜色属性BackColor值的改动实现合成颜色的调色 Label1.BackColor = RGB(R, G, B)例例11.2其值分别由其值分别由3个滚动条控制个滚动条控制标签标签Label1主页主页 阐明：根据调色原理，根本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需求的恣意颜

6、色 (1)创建运用程序的用户界面和设置对象属性 三个程度滚动条称号从上至下分别为HScroll1、HScroll2、HScroll3 其Max属性均设置为255，Min属性均设置为0， SmallChange属性设置为1，LargeChange属性设置为10，Value设置为0。 显示合成颜色的标签名为Label1 主页主页 (2)编写程序代码 功能要求：经过操作(单击或拖动)滚动条，直接修正RGB设置，从而得到标签背景所需的颜色 Private Sub HScroll1_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Va

7、lue, HScroll3.Value) End Sub Private Sub HScroll2_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) End Sub Private Sub HScroll3_Change() Label1.BackColor = RGB(HScroll1.Value, _ HScroll2.Value, HScroll3.Value) End Sub主页主页 4种图形控件：PictureBox控件、Image控件、Shape控件和Line控件；图形

8、方法 11.3.1 坐标系 每个对象都定位于存放它的容器内 每个容器都有一个坐标系，它包括坐标原点，x坐标轴和y坐标轴，默许的坐标原点(0,0)在容器对象的左上角 默许单位为Twip(缇)，还可以运用磅、像素、厘米等单位11.3 11.3 图形方法和图形控件图形方法和图形控件YXTopHeightLeftWidth主页主页 运用Pset(画点)、Line(画线)、Circle(画圆)等图形方法，可以在窗体和图片框上绘制简单的图形 1. Pset(画点)方法 格式：对象名. Pset Step(x,y),颜色 功能：在对象的指定位置(x,y)上按选定的颜色画点 例如：以下语句能在坐标位置(500

9、，900)处画一个红点： Pset (500,900)，RGB(255,0,0) 2. Line(画线)方法 格式：对象名. Line (x1,y1)-(x2,y2),颜色 功能：在两个坐标点之间画一条线段。 例如，以下语句可在窗体上画一条斜线 Line (600,600)-(2000,3000) 3. Circle(画圆)方法 格式：对象名. Circle Step(x,y)，半径，颜色，起点，终点，纵横比 功能：在对象上画圆、椭圆或圆弧 11.3.2 11.3.2 图形方法图形方法 主页主页 图片框图片框(PictureBox)(PictureBox)和图像框和图像框(Image)(Ima

10、ge)都是用于都是用于显示图形。图片框可以作为其他控件的容器。显示图形。图片框可以作为其他控件的容器。 例例11.4 11.4 在图片框上写字和画图在图片框上写字和画图 Private Sub Form_Load()Private Sub Form_Load() ShowShow Picture1.Print Picture1.Print 在图片框内写字和画在图片框内写字和画圆圆 Picture1.Circle(1200, 1000), 600, Picture1.Circle(1200, 1000), 600, RGB(0, 0, 255)RGB(0, 0, 255) Picture1.PS

11、et(1200, 1000), RGB(255, Picture1.PSet(1200, 1000), RGB(255, 0, 0)0, 0) End SubEnd Sub11.3.3 11.3.3 图片框图片框(PictureBox)(PictureBox)例例11.4主页主页 11.3.4 11.3.4 图像框图像框(Image)(Image) 图像框(Image)控件的作用与图片框PictureBox控件类似，但它只能用于显示图形，不能作为其他控件的容器。11.3.5 Shape外形控件 VB提供了画图形的根本工具，如Shape(外形控件)、Line(线控件)。Shape控件和Line控

12、件只用于外表装饰，不支持任何事件 Shape控件画出矩形、正方形、圆形等图形。11.3.6 Line直线控件 Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。主页主页 1. GoTo语句 语法格式：GoTo 行号|标号 功能：改动程序的执行顺序，跳转到程序中指定的行继续执行 例11.5 运用GoTo语句例如 Private Sub Form_Load() Show Print 整型数 GoTo Line1 跳转到标号Line1指定的行 Print 单精度数 Line1: Print 字符串 End Sub 11.4 GOTO 11.4 GOTO语句和几个定义语句语句和几个定义语句例

13、例11.5主页主页 防止由于写错变量名而导致错误防止由于写错变量名而导致错误 例如，交换变量例如，交换变量a a、b b的值的值 Temp=a Temp=a a=b a=b b=Tmp b=Tmp 把把TempTemp写写错成错成TmpTmp 运转结果是使运转结果是使b b的值为的值为0 0。假设改成：。假设改成： Option Explicit Option Explicit 模块级声明模块级声明 Dim a As Integer,b As Integer,Temp As Integer Dim a As Integer,b As Integer,Temp As Integer . . . . . . Temp=a Temp=a a=b a=b b=Tmp b=Tmp 运转时运转时VBVB就会发出警告就会发出警告“Variable not definedVariable not defined( (变量未定变量未定义义) )，只需把，只需把TmpTmp改为改为TempTe