VB第五章 窗体和控件

图片框与图像框图片框控件（PictureBox）和图像框控件（ImageBox）主要用于在窗体的指定位置显示图形信息。

VB支持.bmp、.ico、.wmf、.emf、.jpg、.gif等格式的图形文件。

一、图片框、图像框的常用属性1．Picture属性图片框和图像框中显示的图片由Picture属性决定。

图形文件可以在设计阶段装入，也可以在运行期间装入。

（1）在设计阶段装入在设计阶段，可以用属性窗口中的Picture 属性装入图形文件。

（2）在运行期间装入在运行期间，可以用LoadPicture函数把图形文件装入图片框或图像框中。

语句格式如下：对象名.Picture=LoadPicture（文件名）2．AutoSize属性该属性用于图片框。

决定控件是否自动改变大小以显示图像全部内容。

缺省值为False，此时保持控件大小不变，超出控件区域的内容被裁减掉；若值为True时，自动改变控件大小以显示图片全部内容（注意：不是图形改变大小）2．CurrentX和CurrentY属性[对象].CurrentX[=X][对象].CurrentY[=Y]“对象”可以是窗体,图片框和打印机,确省是以twip为单位.如果省略”=X”或”=Y”则显示当前的坐标值;如省略对象,则是当前窗体. 3．stretch 属性用于图像框。

当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。

4、Autosize用于图片框。

当该属性的取值为False时，图像控件将自动改变大小以与图形的大小相适应；当其值为True时，显示在控件中的图像的大小将完全适合于控件的大小，这时，图片可能会变形。

二、图片框、图像框的事件和方法图片框的图像框可以接收click和dbclick事件，可以在图片框中使用cls（清屏）和print方法。

三、图片框、图像框的区别（1）图片框中可以包含其它控件，而其它控件不能“属于”一个图像框。

（2）图片框可以通过Print方法接收文本，而图像框则不能接收用Print方法输入的信息。

（3）图像框比图片框占用的内存少，显示速度快。

【例】编写程序，交换两个图片框中的图形。

首先在窗体上建立3个图片框（并在picture1、picture2中装入图形），其中两个在上，一个在下。

程序代码如下：Private Sub Form_click()Picture3.Picture = Picture1.PicturePicture1.Picture = Picture2.PicturePicture2.Picture = Picture3.PicturePicture3.Picture = LoadPicture()End Sub选项钮和复选框1、复选框：复选框（CheckBox）也称检查框，单击复选框一次时被选中，左边出现“√”号，再次单击则取消选中，清除复选框中的“√”。

可同时使多个复选框处于选中状态，缺省名称和标题为checkx。

（一）属性：Value属性：0——表示没有选择该复选框1——表示选中该复选框2——表示该复选框被禁止其它属性类似于命令按钮。

（二）方法和事件：同命令按钮。

例：用复选框控制文本输入是否加下划线和斜体显示。

前提：在窗体上画1个文本框和2个复选框，并设置属性如下：程序如下：Private Sub display_Change()If underon.Value = 1 Thendisplay.FontUnderline = TrueElseIf italicon.Value = 1 Thendisplay.FontItalic = TrueEnd IfEnd SubPrivate Sub Form_Load()display.FontSize = 20End SubPrivate Sub italicon_Click()If italicon.Value = 1 Thendisplay.FontItalic = TrueElsedisplay.FontItalic = FalseEnd IfEnd SubPrivate Sub underon_Click()If underon.Value = True Thendisplay.FontUnderline = TrueElsedisplay.FontUnderline = FalseEnd IfEnd Sub2、单选按钮：单选钮（OptionButton）通常成组出现，主要用于处理“多选一”的问题。

用户在一组单选钮中必须选择一项，并且最多只能选择一项。

当某一项被选定后，其左边的圆圈中出现一个黑点。

缺省名称和标题为optionx。

（一）属性：•Value属性该属性表示单选按钮选中或不被选中的状态。

True为选中；False为不被选中。

•Caption属性该属性显示出现在单选钮旁边的文本。

•Style属性该属性用来设置控件的外观。

值为0时，控件显示标准样式；值为1时，控件外观类似命令按钮。

（二）方法和事件：同命令按钮。

例：用单选按钮在文本框显示不同字体。

前提：在窗体上建立1个文本框和3个单选按钮，并设置属性如下：Private Sub Option1_Click()Display.FontSize = 18Display.FontName = "黑体"End SubPrivate Sub Option2_Click()Display.FontSize = 20Display.FontName = "隶书"End SubPrivate Sub Option3_Click()Display.FontSize = 24Display.FontName = "宋体"End Sub列表框与组合框列表框（ListBox）控件将一系列的选项组合成一个列表，用户可以选择其中的一个或几个选项，但不能向列表清单中输入项目；组合框（ComboBox）控件是综合文本框和列表框特性而形成的一种控件，用户可通过在组合框中输入文本来选定项目，也可从列表中选定项目。

一、列表框：列表框控件（ListBox）的主要用途在于提供列表式的多个数据项供用户选择。

在列表框中放入若干个项的名字，用户可以通过单击某一项或多项来选择自己所需要的项目。

如果放入的项较多，超过了列表框设计时可显示的项目数，则系统会自动在列表框边上加一个垂直滚动条。

缺省名称为Listx。

1．属性（1 ）List 属性该属性是一个字符串数组，用来保存列表框中的各个数据项内容。

List 数组的下标从0 开始，即List（0）保存表中的第一个数据项的内容。

List（1）保存第二个数据项的内容，依次类推，List（ListCount-1）保存表中的最后一个数据项的内容。

在窗体上添加一个列表框，其外观如图所示，图上所显示的“List1”是控件的名称，而不是列表项中的数据项。

（2）ListCount属性该属性记录了列表框中的数据项数，该属性只能在程序中引用它。

（3）Text属性用于存放被选中列表项的文本内容。

该属性是只读的，不能在属性窗口中设置，也不能在程序中设置，只用于获取当前选定的列表项的内容。

可在程序中引用Text属性值。

（4）ListIndex属性该属性是List数组中，被选中的列表项的下标值（即索引号）。

如果用户选择了多个列表项，则ListIndex是最近所选列表项的索引号；如果用户没有从列表框中选择任何一项，则ListIndex为－1。

程序运行时，可以使用ListIndex属性判断列表框中哪一项被选中。

例如，在列表框List1中选中第2项，即List1.List数组的第2项，则ListIndex＝1（ListIndex从0开始）。

ListIndex属性不能在设计时设置，只有程序运行时才起作用。

（5）Selected属性该属性是一个逻辑数组，其元素对应列表框中相应的项。

表示相应的项在程序运行期间是否被选中。

例如，Selected（0）的值为True，表示第一项被选中，如为False，表示未被选中。

（6）MultiSelect（多选择列表项）属性该属性值表明是否能够在列表框控件中进行复选以及如何进行复选。

它决定用户是否可以在控件中做多重选择，它必须在设计时设置，运行时只能读取该属性。

Multiselect属性值的说明如表所示。

（7）SelCount属性其值表示在列表框控件中所选列表项的数目，只有在MultiSelect属性值设置为1（Simple）或2（Extended）时起作用，通常与Selected数组一起使用，以处理控件中的所选项目。

2．方法ListBox 对应的控件方法有：AddItem，Clear 和RemoveItem （1）AddItem 方法该方法向一个列表框中加入列表项，索引值缺省则加在尾部，其语法是：列表框名.AddItem 项目字符串［，索引值］（2 ）RemoveItem 方法该方法用于删除列表框中指定的列表项，每次只能删除一项，其语法是：列表框名.RemoveItem 索引值（3）Clear方法该方法删除列表框控件中的所有列表项。

其语法是：列表框名.Clear【例1】利用列表框和命令按钮编程，要求程序能够实现添加项目、删除项目、删除全部项目的功能。

设计界面：在窗体上添加一个列表框（ListBox）控件，3个命令按钮。

属性设置如表所示。

在程序中添加如下代码：Private Sub Command1_Click（）Dim entryentry = InputBox（"输入添加内容"，"添加"）List1.AddItem entry ' 添加项目End SubPrivate Sub Command2_Click（）Dim i As IntegerFor i = List1.ListCount - 1 To 0 Step -1If List1.Selected（i）ThenList1.RemoveItem iNext iEnd SubPrivate Sub Command3_Click（）List1.ClearEnd Sub二、组合框组合框（ComoBox）是一种兼有列表框和文本框的功能的控件。

它可以像列表框一样，让用户通过鼠标选择所需要的项目；也可以像文本框一样，用键入的方式选择项目。

缺省名称为Combox。

1．属性（l）Style属性这是组合框的一个重要属性，其取值为0，1，2，它决定了组合框3种不同的类型，分别为下拉式组合框、简单组合框和下拉式列表框。