VB语言教案

单击此处编辑母版标题样式,单击此处编辑母版文本样式,第二级,第三级,第四级,第五级,*,主页,第,11,绘画及其他常用控件,第11章,绘图及其他控件功能,框架(Frame),滚动条(ScrollBar),图形方法和图形控件,GOTO语句和几个定义语句,本,章,主,要,内,容,退出,1. 框架的用途,作为容器放置其他控件对象，将这些控件对象分成可标识的控件组；框架内的所有控件将随框架一起移动、显示和消失。,(,框架示例：,“幻灯片放映”“设置放映方式”对话框),控制文本的字体、字号及颜色,在窗体上设置3个框架Frame1、Frame2和Frame3,框架(Frame),框架,Frame3,框架,Frame2,框架,Frame1,(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 Option1.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,滚动条,为不能自动支持滚动的应用程序和控件提供滚动功能，也可作为数据输入的工具。,水平滚动条,(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,事件：当改变Value属性值时，即触发Change事件,当释放滚动块、单击滚动条内空白处或滚动箭头时，Change事件就会发生。,设计一个调色板应用程序,建立三个水平滚动条作为,红、绿、蓝,三种基本颜色的输入工具，合成的颜色显示在右边的标签中(图10.3)，用其背景颜色属性BackColor值的改变实现合成颜色的调色,Label1.BackColor = RGB(R, G, B),其值分别由3,个滚动条控制,标签Label1,说明：,根据调色原理，基本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需要的任意颜色,(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.Value, 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控件；,图形方法,11.3.1 坐标系,每个对象都定位于存放它的容器内,每个容器都有一个坐标系，它包括坐标原点，x坐标轴和y坐标轴，默认的,坐标原点,(0,0)在容器对象的左上角,默认单位为,Twip,(缇)，还可以使用磅、像素、厘米等单位,图形方法和图形控件,Y,X,Top,Height,Left,Width,使用,Pset,(画点)、,Line,(画线)、,Circle,(画圆)等图形方法，可以在窗体和图片框上绘制简单的图形,1. Pset(画点)方法,格式：,对象名. Pset Step(x,y),颜色,功能：在对象的指定位置(x,y)上按选定的颜色画点,示例：,下列语句能在坐标位置(500，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)，半径，颜色，起点，终点，纵横比,功能：,在对象上画圆、椭圆或圆弧,图形方法,图片框(PictureBox)和图像框(Image)都是用于显示图形。图片框可以作为其他控件的容器。,例11.4 在图片框上写字和画图,Private Sub Form_Load(),Show,Picture1.Print 在图片框内写字和画圆 ,Picture1.Circle(1200, 1000), 600, RGB(0, 0, 255),Picture1.PSet(1200, 1000), RGB(255, 0, 0),End Sub,11.3.3 图片框(PictureBox),图像框(Image),图像框(Image)控件的作用与图片框PictureBox控件相似，但它只能用于显示图形，不能作为其他控件的容器。,Shape形状控件,VB提供了画图形的基本工具，如Shape(形状控件)、Line(线控件)。Shape控件和Line控件只用于表面装饰，不支持任何事件,Shape控件画出矩形、正方形、圆形等图形。,Line直线控件,Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。,1. GoTo语句,语法格式：,GoTo 行号|标号,功能：改变程序的执行顺序，跳转到程序中指定的行继续执行,应用GoTo语句示例,Private Sub Form_Load(),Show,Print 整型数,GoTo Line1,跳转到标号Line1指定的行,Print 单精度数,Line1:,Print 字符串,End Sub,11.5 GOTO语句和几个定义语句,避免因为写错变量名而导致错误,例如，,交换变量a、b的值,Temp=a,a=b,b=Tmp,把Temp写错成Tmp,运行结果是使b的值为0。若改成：,O,ption Explicit,模块级声明,Dim a As Integer,b As Integer,Temp As Integer,. . .,Temp=a,a=b,b=Tmp,运行时VB就会发出警告“Variable not defined”(变量未定义)，只有把Tmp改为Temp后才恢复正常,2. 强制显式声明变量语句(Option Explicit),3. 定义变量类型,格式：,Def类型标志 字母范围,示例：DefInt m-P,4. 自定义数据类型,用户可以利用Type语句定义自己的数据类型,Private|Public Type 数据类型名,元素名1 As 类型名1 ,End Type,定义类型语句,