列表框和组合框

《列表框和组合框》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、江苏省无锡立信会计学校备课笔记教学内容学生活动复习：提问：1、说出下列程序的含义的功能：（1）PrivateSubForm_Load()Text1.FontBold=FalseText1.FontItalic=FalseText1.FontUnderline=FalseEndSub（2）PrivateSubCheck1_Click(IndexAsInteger)SelectCaseIndexCase0Text1.FontBold=NotText1.FontBoldCase1Text1.FontIt

2、alic=NotText1.FontItalicCase2Text1.FontUnderline=NotText1.FontUnderlineEndSelectEndSub（3）PrivateSubOption4_Click(IndexAsInteger)SelectCaseIndexCase0Text1.Alignment=0Case1Text1.Alignment=1Case2Text1.Alignment=2EndSelectEndSub2、演示例新授课：一、列表框控件(List控件)1、功

3、能：列表框常用来显示一个项目的列表，用户可从中选择一项或多项。默认名称为List1、List2、List3…。2、重要属性：List属性：以一维字符型数组形式表示列表框中所有的选项内容。ListIndex属性：执行时选中的列表项序号ListCount属性：列表框中列表项的数目Text属性：被选中的列表项的文本内容，只能在程序中引用Selected属性：用于判断列表项是否被选中MutiSelect属性：设定列表框中是否允许同时选中多个列表项提问演示列表框主要功能介绍1、重要方法：AddItem：向列

4、表框中添加一个新的列表项　RemoveItem：在列表框中删除一个列表项Clear：清除列表框中的所有内容[练习1］说出下列代码的含义List1.AddItemText1.Text　　　把文本框Text1中的文本添加到列表框List1中。List1.RemoveItemList1.ListIndex　　　把列表框List1中选中的项目删除。List2.AddItemList1.Text　　　把列表框List1中选中的文本添加到列表框List2中。List2.RemoveItemList2.List

5、Index　　　把列表框List1中选中的项目删除。创建一个窗体Form1（Caption：书籍采购计划），在此窗体上创建2个标签、1个文本框、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能通过文本框向列表框添加书目或删除已有书目。［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，2个命令按钮Command1、Command2，和1个列表框List1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption书籍采购

6、计划标签Label1Caption书名标签Label2Caption采购列表命令按钮Command1Caption添加命令按钮Command1Caption删除文本框Text1Text空白列表框List1List空白第三步：补充完成代码编写PrivateSubCommand1_Click()　　　'添加按钮IfText1.Text<>""Then练习分析程序List1.AddItemText1.TextEndIfText1.Text=""Text1.SetFocusEndSubPrivateSub

7、Command2_Click()　　　　'删除按钮List1.RemoveItemList1.ListIndexEndSub二、组合框控件(Combo控件)1、功能：组合框兼有文本框和列表框两者的功能，既可在控件的文本框部分输入信息，也可选择列表中的一项。默认名称为Combo1、Combo2、Combo3…。2、重要属性：List属性：以一维字符型数组形式表示列表框中所有的选项内容。ListIndex属性：执行时选中的列表项序号Text属性：被选中的列表项的文本内容，只能在程序中引用Style属性

8、：决定了组合框的类型　　　　Style=0：下拉式组合框　　　　Style=1：简单组合框　　　　Style=2：下拉式列表框，不允许用户输入新文本，只能在列表项中进行选择。3、重要方法：AddItem：向组合框中添加一个新的项目　RemoveItem：在组合框中删除一个项目　Clear：清除组合框中的所有内容［练习2］说出下列代码的含义Text1.FontName=Combo1.Text　　　把文本框Text1的文字字形设置为组合框中规定的字形。Text1.FontSize=Va