《列表框和组合框.doc》由会员分享，可在线阅读，更多相关《列表框和组合框.doc（13页珍藏版）》请在金锄头文库上搜索。
1、江苏省无锡立信会计学校备课笔记教 学 内 容学生活动复习：提问：1、说出下列程序的含义的功能：（1）Private Sub Form_Load()Text1.FontBold = FalseText1.FontItalic = FalseText1.FontUnderline = FalseEnd 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.Font
2、Italic Case 2 Text1.FontUnderline = Not Text1.FontUnderline End SelectEnd 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 SelectEnd Sub 2、演示例新授课：一、 列表框控件(List控件)1、 功能：列表框常用来显示一个项目的列表，用户可从中选择一项或多项。
3、默认名称为List1、List2、List3。2、 重要属性：List属性：以一维字符型数组形式表示列表框中所有的选项内容。ListIndex属性 ：执行时选中的列表项序号 ListCount属性 ：列表框中列表项的数目 Text属性 ：被选中的列表项的文本内容，只能在程序中引用 Selected属性 ：用于判断列表项是否被选中 MutiSelect属性：设定列表框中是否允许同时选中多个列表项 3、 重要方法：AddItem：向列表框中添加一个新的列表项 RemoveItem：在列表框中删除一个列表项 Clear ：清除列表框中的所有内容 练习1说出下列代码的含义List1.AddItem T
4、ext1.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，在此
5、窗体上创建2个标签Label1、Label2,1个文本框Text1，2个命令按钮Command1、Command2，和1个列表框List1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption书籍采购计划标签Label1Caption书名标签Label2Caption采购列表命令按钮Command1Caption添加命令按钮Command1Caption删除文本框Text1Text空白列表框List1List空白第三步：补充完成代码编写Private Sub Command1_Click()添加按钮If Text1.Text ThenList1.AddItem Text1.
6、TextEnd IfText1.Text = Text1.SetFocusEnd SubPrivate Sub Command2_Click()删除按钮List1.RemoveItem List1.ListIndexEnd Sub二、组合框控件(Combo控件)1、功能：组合框兼有文本框和列表框两者的功能，既可在控件的文本框部分输入信息，也可选择列表中的一项。默认名称为Combo1、Combo2、Combo3。2、 重要属性：List属性：以一维字符型数组形式表示列表框中所有的选项内容。ListIndex属性 ：执行时选中的列表项序号 Text属性 ：被选中的列表项的文本内容，只能在程序中引用
7、 Style属性 ：决定了组合框的类型 Style=0：下拉式组合框 Style=1：简单组合框 Style=2：下拉式列表框，不允许用户输入新文本，只能在列表项中进行选择。 3、 重要方法：AddItem：向组合框中添加一个新的项目 RemoveItem：在组合框中删除一个项目 Clear ：清除组合框中的所有内容 练习2说出下列代码的含义Text1.FontName = Combo1.Text 把文本框Text1的文字字形设置为组合框中规定的字形。Text1.FontSize = Val(Combo2.Text) 把文本框Text1的文字字号设置为组合框中规定的字号。思考：为什么要用VAL
8、（）函数？创建一个窗体Form1（Caption：组合框的应用），在此窗体上创建2个标签、1个文本框和2个组合框，界面如下图，要求程序运行时，能通过组合框改变文本框中文字的大小和颜色。解第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，和2个组合框Combo1、Combo2。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption组合框的应用标签Label1Caption字体大小标签Label2Caption字体颜色文本框Text1Text八荣八耻（见图）组合框Combo1List8、10、12、14、16、18、20组合框C
9、ombo2List黑色、红色、绿色、蓝色、黄色、青色、紫红第三步：补充完成代码编写Private Sub Combo1_Click()Text1.FontSize = Val(Combo1.Text)End SubPrivate Sub Combo2_Click()Dim x As Stringx = Combo2.TextSelect Case x Case 黑色 Text1.ForeColor = vbBlack Case 红色 Text1.ForeColor = vbRed Case 绿色 Text1.ForeColor = vbGreen Case 蓝色 Text1.ForeColor
10、 = vbBlue Case 黄色 Text1.ForeColor = vbYellow Case 青色 Text1.ForeColor = vbCyan Case 紫红 Text1.ForeColor = vbMagentaEnd SelectEnd Sub上机完成下列练习创建一个窗体Form1（Caption：选修课程），在此窗体上创建2个标签、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能够双向选择选修课程。解第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,2个命令按钮Command1、Command2，和2个列表框List1、List2。第二步
11、：设置对象的属性对象类型对象名属性设置窗体Form1Caption选修课程标签Label1Caption选修课目录标签Label2Caption我的选修课程命令按钮Command1Caption命令按钮Command1Caption列表框List1List按图例输入列表框List2List空白第三步：补充完成代码编写Private Sub Command1_Click()选中课程 List2.AddItem List1.Text List1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()删除选中课程 List1.Add
12、Item List2.Text List2.RemoveItem List2.ListIndexEnd Sub创建一个窗体Form1（Caption：计算100以内整数的平方和立方），在此窗体上创建3个标签和3个列表框，界面如下图，要求程序运行时，能够给出自然数1100的平方和立方。解第一步：创建新窗体Form1，在此窗体上创建3个标签Label1、Label2、Label3,和3个列表框List1、List2、List3。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption计算100以内整数的平方和立方标签Label1CaptionX标签Label2CaptionX2标签
13、Label3CaptionX3列表框List1List空白列表框List2List空白列表框List2List空白第三步：补充完成代码编写Private Sub Form_Activate()Dim XFor X = 1 To 100List1.AddItem XList2.AddItem X * XList3.AddItem X * X * XNext XEnd SubPrivate Sub List1_Click()List1.Selected(List1.ListIndex) = TrueList2.Selected(List1.ListIndex) = TrueList3.Selected(List1.ListIndex) = TrueEnd SubPrivate Sub List2_Click()List1.Selected(List2.ListIndex) = TrueList2.Selected(List2.ListIndex) = TrueList3.Selected(List2.ListIndex) = TrueEnd SubPrivate Sub List3_Click()List1.Selected(List3.ListIndex) = TrueList2.Selected(List3.Lis
