VB语言第11章教案

主页框架滚动条图形方法和图形控件GOTO语句和几个定义语句主页第11章绘图及其他控件功能框架(Frame)滚动条(ScrollBar)图形方法和图形控件GOTO语句和几个定义语句本章主要内容退出主页1.框架的用途作为容器放置其他控件对象，将这些控件对象分成可标识的控件组；框架内的所有控件将随框架一起移动、显示和消失。(框架示例：“幻灯片放映”→“设置放映方式”对话框)例11.1控制文本的字体、字号及颜色在窗体上设置3个框架Frame1、Frame2和Frame311.1框架(Frame)框架Frame3框架Frame2框架Frame1例11.1主页(2)编写程序代码功能要求：在三个框架中分别选择字体、字号和颜色，单击“确定”按钮后，文本框中的文本相应属性会发生变化PrivateSubForm_Load()Option1.Value=TrueOption3.Value=TrueOption5.Value=TrueText1.FontName=宋体Text1.FontSize=16Text1.ForeColor=RGB(0,0,255)EndSub主页PrivateSubCommand1_Click()‘“确定按钮单击事件IfOption1.ValueThenText1.FontName=宋体ElseText1.FontName=幼圆EndIfIfOption3.ValueThenText1.FontSize=16ElseText1.FontSize=20EndIfIfOption5.ValueThenText1.ForeColor=RGB(0,0,255)ElseText1.ForeColor=RGB(255,0,0)EndIfEndSub主页11.2滚动条1.滚动条的用途为不能自动支持滚动的应用程序和控件提供滚动功能，也可作水平滚动条(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事件就会发生。主页例11.2设计一个调色板应用程序建立三个水平滚动条作为红、绿、蓝三种基本颜色的输入工具，合成的颜色显示在右边的标签中(图10.3)，用其背景颜色属性BackColor值的改变实现合成颜色的调色Label1.BackColor=RGB(R,G,B)例11.2其值分别由3个滚动条控制标签Label1主页说明：根据调色原理，基本颜色有红、绿、蓝三种，选择这三种颜色的不同比例，可以合成所需要的任意颜色(1)创建应用程序的用户界面和设置对象属性三个水平滚动条名称从上至下分别为HScroll1、HScroll2、HScroll3其Max属性均设置为255，Min属性均设置为0，SmallChange属性设置为1，LargeChange属性设置为10，Value设置为0。显示合成颜色的标签名为Label1主页(2)编写程序代码功能要求：通过操作(单击或拖动)滚动条，直接修改RGB设置，从而得到标签背景所需的颜色PrivateSubHScroll1_Change()Label1.BackColor=RGB(HScroll1.Value,_HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll2_Change()Label1.BackColor=RGB(HScroll1.Value,_HScroll2.Value,HScroll3.Value)EndSubPrivateSubHScroll3_Change()Label1.BackColor=RGB(HScroll1.Value,_HScroll2.Value,HScroll3.Value)EndSub主页4种图形控件：PictureBox控件、Image控件、Shape控件和Line控件；图形方法11.3.1坐标系每个对象都定位于存放它的容器内每个容器都有一个坐标系，它包括坐标原点，x坐标轴和y坐标轴，默认的坐标原点(0,0)在容器对象的左上角默认单位为Twip(缇)，还可以使用磅、像素、厘米等单位11.3图形方法和图形控件YXTopHeightLeftWidth主页使用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)，半径[，颜色，起点，终点，纵横比]功能：在对象上画圆、椭圆或圆弧11.3.2图形方法主页图片框(PictureBox)和图像框(Image)都是用于显示图形。图片框可以作为其他控件的容器。例11.4在图片框上写字和画图PrivateSubForm_Load()ShowPicture1.Print在图片框内写字和画圆Picture1.Circle(1200,1000),600,RGB(0,0,255)Picture1.PSet(1200,1000),RGB(255,0,0)EndSub11.3.3图片框(PictureBox)例11.4主页11.3.4图像框(Image)图像框(Image)控件的作用与图片框PictureBox控件相似，但它只能用于显示图形，不能作为其他控件的容器。11.3.5Shape形状控件VB提供了画图形的基本工具，如Shape(形状控件)、Line(线控件)。Shape控件和Line控件只用于表面装饰，不支持任何事件Shape控件画出矩形、正方形、圆形等图形。11.3.6Line直线控件Line直线控件可用来在窗体、框架和图片框中绘制简单的线段。主页1.GoTo语句语法格式：GoTo{行号|标号}功能：改变程序的执行顺序，跳转到程序中指定的行继续执行例11.5应用GoTo语句示例PrivateSubForm_Load()ShowPrint整型数GoToLine1'跳转到标号Line1指定的行Print单精度数Line1:Print字符串EndSub11.4GOTO语句和几个定义语句例11.5主页避免因为写错变量名而导致错误例如，交换变量a、b的值Temp=aa=bb=Tmp'把Temp写错成Tmp运行结果是使b的值为0OptionExplicit‘模块级声明DimaAsInteger,bAsInteger,TempAsInteger...Temp=aa=bb=Tmp运行时VB就会发出警告“Variablenotdefined”(变量未定义)，只有把Tmp改为Temp后才恢复正常2.强制显式声明变量语句(OptionExplicit)主页3.定义变量类型格式：Def类型标志字母范围示例：DefIntm-P4.用户可以利用Type[Private|Public]Type元素名1As类型名1……EndType定义类型语句