列表框和组合框.docVIP

江苏省无锡立信会计学校备课笔记 教 学 内 容 学生活动 复习： 提问： 1、说出下列程序的含义的功能： （1）Private Sub Form_Load() Text1.FontBold = False Text1.FontItalic = False Text1.FontUnderline = False End Sub （2）Private Sub Check1_Click(Index As Integer) Select Case Index Case 0 Text1.FontBold = Not Text1.FontBold Case 1 Text1.FontItalic = Not Text1.FontItalic Case 2 Text1.FontUnderline = Not Text1.FontUnderline End Select End Sub （3）Private Sub Option4_Click(Index As Integer) Select Case Index Case 0 Text1.Alignment = 0 Case 1 Text1.Alignment = 1 Case 2 Text1.Alignment = 2 End Select End Sub 2、演示例 新授课： 列表框控件(List控件) 功能：列表框常用来显示一个项目的列表，用户可从中选择一项或多项。默认名称为List1、List2、List3…。 重要属性： List属性：以一维字符型数组形式表示列表框中所有的选项内容。 ListIndex属性 ：执行时选中的列表项序号 ListCount属性 ：列表框中列表项的数目 Text属性 ：被选中的列表项的文本内容，只能在程序中引用 Selected属性 ：用于判断列表项是否被选中 MutiSelect属性：设定列表框中是否允许同时选中多个列表项 重要方法： AddItem：向列表框中添加一个新的列表项 　RemoveItem：在列表框中删除一个列表项 Clear ：清除列表框中的所有内容 [练习1］说出下列代码的含义 List1.AddItem Text1.Text 　　　把文本框Text1中的文本添加到列表框List1中。 List1.RemoveItem List1.ListIndex 　　　把列表框List1中选中的项目删除。 List2.AddItem List1.Text 　　　把列表框List1中选中的文本添加到列表框List2中。 List2.RemoveItem List2.ListIndex 　　　把列表框List1中选中的项目删除。 创建一个窗体Form1（Caption：书籍采购计划），在此窗体上创建2个标签、1个文本框、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能通过文本框向列表框添加书目或删除已有书目。 ［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，2个命令按钮Command1、Command2，和1个列表框List1。 第二步：设置对象的属性 对象类型 对象名 属性设置 窗体 Form1 Caption 书籍采购计划 标签 Label1 Caption 书名 标签 Label2 Caption 采购列表 命令按钮 Command1 Caption 添加 命令按钮 Command1 Caption 删除 文本框 Text1 Text 空白 列表框 List1 List 空白 第三步：补充完成代码编写 Private Sub Command1_Click()　　　添加按钮 If Text1.Text Then List1.AddItem Text1.Text End If Text1.Text = Text1.SetFocus End Sub Private Sub Command2_Click()　　　　删除按钮 List1.RemoveItem List1.ListIndex End Sub 二、组合框控件(Combo控件) 1、功能：组合框兼有文本框和列表框两者的功能，既可在控件的文本框部分输入信息，也可选择列表中的一项。默认名称为Combo1、Combo2、Combo3…。 重要属性： List属性：以一维字符型数组形式表示列表框中所有的选项内容。 ListIndex属性 ：执行时选中的列表项序号 Te