列表框和组合框
- 格式：doc
- 大小：348.00 KB
- 文档页数：13
江苏省无锡立信会计学校备课笔记3、重要方法：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 练习分析程序［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，和2个组合框Combo1、Combo2。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 组合框的应用标签Label1 Caption 字体大小标签Label2 Caption 字体颜色文本框Text1 Text 八荣八耻（见图）组合框Combo1 List 8、10、12、14、16、18、20组合框Combo2 List 黑色、红色、绿色、蓝色、黄色、青色、紫红第三步：补充完成代码编写Private Sub Combo1_Click()Text1.FontSize = Val(Combo1.Text)End SubPrivate Sub Combo2_Click()Dim x As Stringx = Combo2.TextSelect Case xCase "黑色"Text1.ForeColor = vbBlackCase "红色"Text1.ForeColor = vbRedCase "绿色"Text1.ForeColor = vbGreenCase "蓝色"Text1.ForeColor = vbBlueCase "黄色"Text1.ForeColor = vbYellowCase "青色"Text1.ForeColor = vbCyanCase "紫红"分析程序Text1.ForeColor = vbMagentaEnd SelectEnd Sub上机完成下列练习创建一个窗体Form1（Caption：选修课程），在此窗体上创建2个标签、2个命令按钮和1个列表框，界面如下图，要求程序运行时，能够双向选择选修课程。
［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,2个命令按钮Command1、Command2，和2个列表框List1、List2。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 选修课程标签Label1 Caption 选修课目录标签Label2 Caption 我的选修课程命令按钮Command1 Caption ＞命令按钮Command1 Caption ＜列表框List1 List 按图例输入列表框List2 List 空白第三步：补充完成代码编写Private Sub Command1_Click() ‘选中课程List2.AddItem List1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click() ‘删除选中课程List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub［创建一个窗体Form1（Caption：计算100以内整数的平方和立方），在此窗体上创建3个标签和3个列表框，界面如下图，要求程序运行时，能够给出自然数1～100的平方和立方。
［解］第一步：创建新窗体Form1，在此窗体上创建3个标签Label1、Label2、Label3,和3个列表框List1、List2、List3。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 计算100以内整数的平方和立方标签Label1 Caption X标签Label2 Caption X＾2标签Label3 Caption X＾3列表框List1 List 空白列表框List2 List 空白列表框List2 List 空白第三步：补充完成代码编写Private Sub Form_Activate()Dim XFor X = 1 To 100List1.AddItem XList2.AddItem X * XList3.AddItem X * X * XNext XEnd SubPrivate Sub List1_Click()［解］第一步：创建新窗体Form1，在此窗体上创建5个标签Label1、Label2、Label3、Label4、Label5,和3个列表框List1、List2、List3。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 计算100以内的勾股数标签Label1 Caption a＾2标签Label2 Caption +标签Label3 Caption B＾2标签Label4 Caption ＝标签Label5 Caption C＾2列表框List1 List 空白列表框List2 List 空白列表框List2 List 空白第三步：补充完成代码编写Private Sub Form_Activate()Dim i As Integer, j As Integer, c As SingleFor i = 1 To 100For j = i + 1 To 100c = Sqr(i ^ 2 + j ^ 2)If c < 100 And Int(c) = c ThenList1.AddItem iList2.AddItem j创建一个窗体Form1（Caption：字体设置），在此窗体上创建2个标签、1个文本框和2个组合框，界面如下图，要求程序运行时，能通过组合框改变文本框中文字的字形和大小。
［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2,1个文本框Text1，和2个组合框Combo1、Combo2。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 组合框的应用标签Label1 Caption 字体标签Label2 Caption 大小文本框Text1 Text 心想事成组合框Combo1 List 宋体、楷体_gb2312、仿宋_gb2312、黑体、隶书组合框Combo2 List 8、12、16、20、24、36、48、60、72第三步：补充完成代码编写Private Sub Combo1_Click()Text1.FontName = Combo1.Text '设置字体End SubPrivate Sub Combo2_Click()Text1.FontSize = Val(Combo2.Text) '设置字号End Sub［思考题］创建一个窗体Form1（Caption：组合框的应用），在此窗体上创建1个文本框和1个组合框，界面如下图，要求程序运行时，能通过组合框选项，在文本框中显示当前系统日期和时间。
［解］第一步：创建新窗体Form1，在此窗体上创建1个文本框Text1和1个组合框Combo1。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 组合框的应用文本框Text1 Text 空白组合框Combo1 List 空白第三步：补充完成代码编写Private Sub Form_Load()Combo1.Text = "系统日期和时间的显示"Combo1.AddItem "当前日期"Combo1.AddItem "当前时间"Combo1.AddItem "当前日期和时间"End SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.Text = "当前日期:" & DateCase 1Text1.Text = "当前时间:" & TimeCase 2Text1.Text = "当前日期:" & Date & " 当前时间:" & TimeEnd SelectEnd Sub［思考题］创建一个窗体Form1（Caption：偶数迁移），在此窗体上创建2个标签、2个命令按钮和2个列表框，界面如下图，要求程序运行时，点击“产生”命令按钮，在左边列表框中随机产生10个两位正整数，点击“――＞”命令按钮，10个整数中偶数自动迁移到右边的列表框。
［解］第一步：创建新窗体Form1，在此窗体上创建2个标签Label1、Label2和2个命令按钮Command1、Command12,2个列表框List1 、List2。
第二步：设置对象的属性对象类型对象名属性设置窗体Form1 Caption 空白标签Label1 Caption 空白标签Label2 Caption 空白命令按钮Command1 Caption 空白命令按钮Command2 Caption 空白列表框List1 List 空白列表框List2 List 空白第三步：补充完成代码编写Private Sub Form_Load()Form1.Caption = "偶数迁移"Form1.BorderStyle = 3Label1.Caption = "两位正整数:"Label2.Caption = "偶数:"Command1.Caption = "产生"Command2.Caption = "-->"End SubPrivate Sub Command1_Click() '产生10个随机数List1.ClearRandomizeFor i = 1 To 10List1.AddItem Int(Rnd * 90) + 10Next iList2.Clear 'list2中所有的数清空End SubPrivate Sub Command2_Click()。
