第二篇 案例篇 5-3VB常用控件2

常用控件2❝框架控件的最核心的作用是对单选按钮进行分组，以确保在一个窗体中能够多组单选按钮的存在。

❝常用属性◦Name：习惯以fra为前缀；◦Caption：标题◦Enabled：是否可用◦Visible：是否可见❝复选框控件表明一个特定的状态是选定还是取消。

❝复选框彼此独立，用户可以同时选中任意多个复选框。

❝复选框可以分组，和单选按钮不同的是，复选框的分组主要是基于功能的目的。

❝在同一组中单选按钮只能选中一个，而复选框可以选中多个。

Caption属性：文本标题。

Alignment属性0：控件钮在左边，标题显示在右边。

1：控件钮在右边，标题显示在左边。

Value属性单选钮(逻辑型)检查框（数值型）True：选定0--Unchecked：未被选定False：未选定1--Checked：选定2--Grayed：灰色，禁止选择Style属性0--Standard：标准方式1--Graphical：图形方式❝滚动条通常用来辅助显示内容较多的信息，或者用来对要显示的内容进行简便的定位，也可作为数量或进度的指示器。

❝水平滚动条（HscrollBar）❝垂直滚动条（VscrollBar）属性：◦Name：以hsb（vsb）为前缀；◦Value：滑动框所在的位置；◦Max：Value属性的最大值；◦Min：Value属性的最小值；◦Smallchange：当用户单击滚动箭头时，Value属性值的改变量；◦Largechange：当用户单击滚动条和滚动箭头之间的区域时，value属性值的改变量。

事件：◦Change：当Value值改变时，调用。

◦Scroll：当按住滑动框拖到时，反复调用。

❝列表框控件提供一个可选项目列表，用户可以从其中选择一项或多项。

❝项目总数超过了列表框可以显示的项目数，列表框会自动出现滚动条（水平、垂直或两者皆可）列表框选项内容的输入方式◦列表框中的选项内容可以通过List属性来设置，注意输入一个项目文本后，按住Ctrl键不放，再按回车键，光标将移动到下一行输入。

◦可以在程序代码中用AddItem方法来添加选项内容。

组合框和列表框功能相似。

在结构上，组合框控件是将文本框和列表框结合在一起，组合框的特色在于既可以在输入信息，有可以选择事先增加好的项目，比列表框更具有灵活性。

列表框各主要属性的值：List1.ListIndex = 3 (下标从0开始的)下拉式组合框 简单组合框 List1. Sorted = FalseList1. Text Combo11. 共有的重要属性(P：可在程序中设置或引用，D：可在设计状态设置。

) List ：PD字符型数组，存放列表框的项目，下标是从0开始。

ListIndex：P选中的项目的序号，没有项目被选定时为-1 ListCount：P项目的数量，ListCount-1是最后一项的下标。

Sorted：DTrue：按字母顺序排列。

False：按加入先后顺序排列。

Text：P列表项中被选定的内容，List 1.List(List 1.ListIndex) = List1.Text。

简单组合框下拉式列表框24. 方法AddItem对象.AddItem item [, index]RemoveItem对象.RemoveItem indexClear对象.Clear5. 事件列表框：Click、DblClick。

组合框：Click，只有简单组合框才有DblClick事件。

一般不需要编写Click事件过程。

通常在单击命令按钮或发生DblClick事件时才读取Text属性。

例：设计一餐饮订购程序，用户选择其餐饮名称，品名和价格会自动显示，输入所需数量后，单击“确定”按钮，即会显示每一项的金额及总金额，可多次订购，会自动累计金额在总金额内。

例：设计一个程序，当用户选择科目名称时，会显示出所选科目的上课教室及该科目的任课老师❝图像控件（Image）❝图片控件（PictureBox）Line图形框图形框（PictureBox）控件的功能是显示图形图片，也可作为其他控件的容器。

显示图片的方法主要有两种：●在设计状态直接设置Picture属性。

●程序运行时，使用LoadPicture( )函数装入图形文件图形框.Picture = LoadPicture（"图形文件名"）例如，在图形框中显示C:\person1.bmp的图片文件：Picture1.Picture =LoadPicture("C:\person1.bmp")清除图形框中的图片：LoadPicture("")●装入另一个图形框中的图形图形框1.Picture=图形框2.Picture●利用剪贴板装入图形文件（粘贴，只适应于PictureBox控件）。

图形框（1）图形框的重要属性：Picture、AutoSizeAutoSize属性，可设置控件是否自动调整大小：True 图形框自动调整大小与图片匹配False 图形超过图形框的部分将被剪裁掉（2）图形框常用事件：支持Click和DblClick等事件。

（3）图形框主要方法：图形框也支持Circle（画圆）、Line（画直线）和Point（画点）、Print（打印）等方法。

速度❝Image控件使用的系统资源少，重绘图的速度相对较快；❝Image控件支持的属性、方法和事件比PictureBox控件少；❝Image控件只能用于显示图形，而PictureBox功能更为强大；❝Image控件能够延伸图形的大小，以适应控件的大小；而PictureBox控件则不能，但它能自动调整控件的大小以使图形全部显示出来。

主要方法❝（1）Print 和Cls 方法这两个方法的使用与窗体相同，不再赘述。

❝（2）绘图方法绘图方法包括Line 、Circle 、Pset 和Point 方法。

事件❝图片框支持常用的鼠标事件、键盘事件和焦点事件等图片框（PictureBox ）案例：受到Borderwidth【例8】Line控件示例。

Dim i As Integer, j As Integer, k As IntegerPrivate Sub Command1_Click()' 改变线形i = i + 1If i > 6 Then i = 0' 直线BorderStyle属性值为0～6 Line1.BorderStyle = i ' 为直线的BorderStyle属性赋值Select Case I' 显示当前直线控件的线形Case 0: Label1.Caption = "透明线"Case 1: Label1.Caption = "实线"Case 2: Label1.Caption = "虚线"Case 3: Label1.Caption = "点线"Case 4: Label1.Caption = "点划线"Case 5: Label1.Caption = "双点划线"Case 6: Label1.Caption = "内收实线"End SelectEnd Sub受到Borderwidth⑥Shape属性：这是最重要的一个属性，用于设置图形的样式。

其取值如上表所示。

附加：绘图方法1、Pset方法PSet方法可以在对象指定位置按确定的像素颜色画点格式：[对象.]Pset(x,y) [,颜色]例如，Form1.PSet (300,400), VbRed 在窗体Form1上(300,400)处为产生一个红色的点。

2、Line方法Line方法可以在对象上的两点之间画直线或矩形。

[对象.] Line[ (x1, y1)]－(x2, y2)[, 颜色][,B[F]]说明：◆(x1, y1)为线段的起点坐标或矩形的左上角坐标◆(x2, y2)为线段的终点坐标或矩形的右下角坐标◆B表示画矩形；◆F表示用画矩形的颜色来填充矩形。

F必须与B一起用◆执行line方法后，currentx和currenty属性被设置为终点，利用此特性可用line方法画连接线。

3、Circle方法Circle方法用于在对象上画圆、椭圆、圆弧和扇形。

[对象.]Circle[Step](x, y),半径[,颜色,起点,终点,纵横比]说明：◆（x,y）为圆心坐标◆圆弧和扇形通过参数起点、终点控制。

◆起点、终点取值在0~0~2 时为圆弧；◆在起始角、终止角前加一负号时，画出扇形。

◆椭圆通过长短轴比率控制，默认值为1时，画圆。

❝计时器控件是一种独立于用户、按一定时间间隔周期性地自动引发事件的控件。

❝计时器控件必须依附在窗体上，在程序运行时，它是不可见的。

❝计时器控件通过Interval属性设置定时器触发的周期（毫秒数），即触发计时器两个事件之间的毫秒数。

❝计时器控件会自动检查系统时间是否符合Interval属性值，判断是否执行某项任务。

❝属性：◦Enabled属性：设置定时器是否生效；◦Interval：设置定时器的时间间隔，单位为毫秒（1000毫秒＝1秒），取值范围为0～65535，因此最大时间间隔约为65.5秒。

❝事件：◦Timer：以Interval设置的值为间隔的频率，周期性地调用课本例5-13。