WWW信息服务与信息搜索 - 浙江广播电视大学德清学院

计算机文化基础德清学院方圆雨田工作室2002年第五章常用控件(二)VB程序设计2001计大基本内容标签Label文本框Textbox命令按钮CommandBox

复选框OptionBox单选框CheckBox列表框ListBox

德清学院方圆雨田工作室

组合框ComboBox滚动条Scroll框架Frame对话框CommonDialog图片框PictureBox图像框ImageBox5-4单选按钮(OptionButton)Value属性:设置一个单选按钮控件所代表项的选中状态Click事件:

PrivatesubObject_click([indexasInteger])实例:四则运算PrivateSubOption1_click(indexasinteger) case0 Label2.caption=56*89 case1 Label2.caption=56/89 case2 Label2.caption=56+89 case3 label2.caption=56-89endselectEndsub返回5-5复选框(CheckBox)Value属性:设置复选框处于选中,未选中或禁止状态(暗淡的)中哪一种012复选框不支持双击事件例:试利用,结合标签框,演示字体效果相关属性,fontBold\fontItalicfontUnderline,ontstrikethruPrivateSubcheck1_click()Label1.fontBold=check1.value EndsubPrivateSubcheck2_click()Label1.fontItalic=check2.value EndsubPrivateSubcheck3_click()Label1.fontUnderline=check3.value EndsubPrivateSubcheck4_click()Label1.fontstrikethru=check4.value Endsub返回5-7列表框列表框和组合框是Windows应用程序常用的控件主要用于提供一些可供选择的列表项目。列表框常用来显示一个项目的列表，用户可从中选择一项或多项。组合框兼有文本框和列表框两者的功能，既可以在控件的文本框部分输入信息，也可在控件的列表部分选择一项。

德清学院方圆雨田工作室

列表框基本属性1)Columns属性：设置或返回一个值，以决定列表框是水平还是垂直滚动，以及如何显示列表框中的项目。

德清学院方圆雨田工作室

属性值功能说明0(默认值)1-n以单列的方式显示列表项，竖直滚动列项以多列形式显示列表项，水平滚动列表项该属性用于设置或返回控件的列表项内容。属性值是一个字符型的数组，其下标是列表项的顺序号，从0开始。通过该属性可读出列表内容或向列表框添加列表项。例：LIST1.LIST(2)=“服装部”例：TEXT.TEXT=LIST1.LIST(2)

德清学院方圆雨田工作室

LIST属性：列表框基本属性该属性返回当前选定项目的索引。如果选定第一个项目，则属性值为0，如果选定下一个项目，则为1，依次类推。如未选定项目，则值为-1

德清学院方圆雨田工作室

ListIndex属性：列表框基本属性Listcount属性：返回列表框项目的数目例：Text1.text=“youhave”&list1.listcout&”listed”通过TEXT属性获取列表内容、TEXT属性总是对应用户在运行时选定的列表项目。例：TEXT1.TEXT=LIST1.TEXT

德清学院方圆雨田工作室

Text属性：列表框基本属性语法：box.Additemitem[,index]Box为列表框名称，若item内容，index指定在列表中插入新项目的位置，默认为追加。

德清学院方圆雨田工作室

1、向列表框添加项目：Additem列表框主要使用方法

实例：试在窗体中绘制一列表框，并设置Columns属性为2，内容为屏幕字体名清单PrivateSubform_Load()DimIasintegerforI=0toscreen.fontcount-1list.additemscreen.fonts(I)nextIEndsub

德清学院方圆雨田工作室

实例：试在窗体中逐项添加德清学院计算机专业相关班级PrivateSubform_Load()list1.additem“99计大”

list1.additem“00计大”

list1.additem“01计大”Endsub若在指定位置添加，例：List.additem“02计大”，0

德清学院方圆雨田工作室

语法：box.Additemindex

德清学院方圆雨田工作室

2、从列表中删除项目：1)RemoveItem列表框主要使用方法2)clear例：list1.clear实例：试用列表框编写字体设置

德清学院方圆雨田工作室

控件类别属性名称属性值说明Form1Borderstyle3List1List2list3StyleColumns12复选框Label5Command1command2Borderstylecaption1“清除字体”PrivateSubform1_load() dimIasinteger ForI=0toscreen.fontcount-1 List1.additemscreen.fonts(I) NextI ForI=8to12 List3.additemtrim(str(I)) NextI ForI=14to72setp2 List3.additemtrim(str(I)) NextEndsub1.窗体启动

PrivateSublist1_itemcheck(itemasinteger) list2.additemlist1.textEndsubPrivateSublist2_click() label1.fontname=list2.textEndsubPrivateSublist3_click()

label1.fontsize=val(list3.text)Endsub

德清学院方圆雨田工作室

2.PrivateSubcommand1_click() list2.clearEndsubPrivateSubcommand2_click() list2.removeitemlist2.listindexEndsub

德清学院方圆雨田工作室

3组合框(ComboBox)组合框适用于建议性的选项列表。组合框包含编辑区域，因此可将不在列表中选项输入列区域中。

德清学院方圆雨田工作室

组合框基本属性

德清学院方圆雨田工作室

1.Style属性设置值样式0-vbcombodropDown1–vbcombsimple2=vbcombodropdownlist下拉式组合框简单组合框下拉式列表框PrivateSubform1_load() combo1.additem“北京”