列表框和组合框

1、江苏省无锡立信会计学校备课笔记教学内容学生活动复习：提问：1、说出卜列程序的含义的功能：(1) Private Sub Form_Load()Textl.FontBold = FalseTextl.Fontltalic = FalseTextl.FontUnderline = FalseEnd Sub(2) Private Sub Check1_Click(Index As Integer)Select Case IndexCase 0Text1.FontBold = Not Text1.FontBoldCase 1Text1.FontItalic = Not Text1.FontItalic

2、Case 2Textl.FontUnderline = Not Textl.FontUnderlineEnd SelectEnd Sub(3) Private Sub Option4_Click(Index As Integer)Select Case IndexCase 0Textl.Alignment = 0Case 1Textl.Alignment = 1Case 2Text1.Alignment = 2End SelectEnd Sub2、演示例新授课：一、列表框控件(List控件)1、功能：列表框常用来显示一个项目的列表，用户可从中选择一项 或多项。默认名称为List1、List2、

3、List3。2、重要属性：List属性：以一维字符型数组形式表示列表框中所有的选项内容。 ListIndex属性：执行时选中的列表项序号ListCount属性：列表框中列表项的数目Text属性：被选中的列表项的文本内容，只能在程序中引用 Selected属性：用于判断列表项是否被选中MutiSelect属性：设定列表框中是否允许同时选中多个列表项提问演小列表框主要功能介绍3、重要方法：AddItem :向列表框中添加一个新的列表项Removeitem :在列表框中删除一个列表项Clear ：清除列表框中的所有内容练习1说出下列代码的含义Listl.Addltem Textl.Text把文本框T

4、extl中的文本添加到列表框Listl中。Listl.Removeltem Listl.Listlndex把列表框Listl中选中的项目删除。List2.AddItem Listl.Text把列表框Listl中选中的文本添加到列表框 List2中。List2.RemoveItem List2.ListIndex把列表框Listl中选中的项目删除。创建一个窗体Forml （Caption：书籍采购计划），在此窗体上创建 2个标 签、1个文本框、2个命令按钮和1个列表框，界面如下图，要求程序运 行时，能通过文本框向列表框添加书目或删除已有书目。分析程序解第一步：创建新窗体 Forml,在此窗体上创

5、建 2个标签Labell、Label2,1 个文本框 Textl, 2 个命令按钮 Commandl、Command2,和 1 个 列表框List1。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption书籍采购计划标签Label1Caption书名标签Label2Caption采购列表命令按钮Command1Caption添加命令按钮Command1Caption删除文本框Text1Text空白列表框List1List空白第三步：补充完成代码编写Private Sub Command1_Click()'添加按钮If Text1.Text <> "

6、;" Then教学内容学生活动Listl.AddItem Textl.TextEnd IfTextl.Text =""Textl.SetFocusEnd SubPrivate Sub Command2_Click()'删除按钮Listl.Removeltem Listl.ListIndexEnd Sub二、组合框控件（Combo控件）1、功能：组自框兼用文本框和列表框两者的功能，既口在控件的文对比列表框本框部分输入/息，也可选择列表中的一项。默认名称为Combo1、Combo2、Combo3 。讲解组合框2、重要属性：List属性：以一维子付型数组形式表不

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

8、 = Val(Combo2.Text)提问把文本框Text1的文字字号设置为组合框中规定的字号。思考：为什么要用 VAL （）函数？创建一个窗体 Form1 （Caption：组合框的应用），在此窗体上创建2个标签、1个文本框和2个组合框，界面如下图，要求程序运行时，能通过组行框改变文本框中文子的大小和颜色。教 学 内 容学生活动以熟萋祖国为荣、以危害祖国为N 以服努人民为荣、以背离人民为 以崇尚科学为荣，以愚昧无知为 以辛勤劳动为荣、以好逸心甘为 以IT姑互助为荣民损人利己为口 以诚实守情为荥，以见利忘义为口 以澧纪守法为荣、以违法乱比为口 以艰苦奋斗为荣、以骄奢淬逸为力出 &L，

9、出 心 心 匕 k 曲李纪1亨ER*收工11年位二1解第一步：创建新窗体Form1,在此窗体上创建2个标签Label1、分析程序Label2,1 个文本框 Text1 ,和 2 个组合框 Combo1、Combo2。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption组合框的应用标签Label1Caption字体大小标签Label2Caption字体颜色文本框Text1Text八荣八耻（见图）组合框Combo1List8、10、12、14、16、18、20组合框Combo2List黑色、红色、绿色、蓝色、黄色、青色、紫红第三步：补充完成代码编写Private Sub Com

10、bo1_Click() Textl.FontSize = Val(Combol.Text) End SubPrivate Sub Combo2_Click() Dim x As Stringx = Combo2.Text Select Case xCase "黑色"Text1.ForeColor = vbBlack Case "红色"Text1.ForeColor = vbRed Case "绿色"Text1.ForeColor = vbGreen Case "蓝色"Text1.ForeColor = vbBlue

11、 Case "黄色"Text1.ForeColor = vbYellowCase "青色" Text1.ForeColor = vbCyan Case "紫红"Textl.ForeColor = vbMagentaEnd SelectEnd Sub上机完成下列练习创建一个窗体Forml (Caption：选修课程)，在此窗体上创建 2个标签、2 个命令按钮和1个列表框，界面如下图，要求程序运行时，能够双向选择 选修课程。口|加选修课目录我的法修课程才口学 谡 与文 学设旅角 讲歌球以破页界语 演诗足针太网世蓑解第一步：创建新窗体For

12、ml,在此窗体上创建 2个标签Labell、Label2,2 个命令按钮 Command1、Command2,和 2 个列表框 List1、List2。 第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption选修课程标签Label1Caption选修课目录标签Label2Caption我的选修课程命令按钮Command1Caption>命令按钮Command1Caption<列表框List1List按图例输入列表框List2List空白第三步：补充完成代码编写Private Sub Command1_Click()'选中课程List2.AddItem Li

13、st1.TextList1.RemoveItem List1.ListIndexEnd SubPrivate Sub Command2_Click()'删除选中课程List1.AddItem List2.TextList2.RemoveItem List2.ListIndexEnd Sub创建一个窗体 Forml （Caption：计算100以内整数的平方和立方），在此 窗体上创建3个标签和3个列表框，界面如下图，要求程序运行时，能够 给出自然数1100的平方和立方。解第一步：创建新窗体Forml,在此窗体上创建3个标签Labell、Label2、Label3,和 3 个列表框 Lis

14、tl、List2、List3。第二步：设置对象的属性对象名属性设置窗体Form1Caption计算100以内整数的平 方和立方标签Label1CaptionX标签Label2CaptionX人2标签Label3CaptionX人3列表框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 L

15、ist1Click()教学内容学生活动Listl.Selected(Listl.Listlndex) = TrueList2.Selected(List1.ListIndex) = TrueList3.Selected(List1.ListIndex) = True End SubPrivate Sub List2_Click()List1.Selected(List2.ListIndex) = TrueList2.Selected(List2.ListIndex) = TrueList3.Selected(List2.ListIndex) = True End SubPrivate Sub

16、List3_Click()List1.Selected(List3.ListIndex) = TrueList2.Selected(List3.ListIndex) = TrueList3.Selected(List3.ListIndex) = True End SubPrivate Sub List1_Scroll()List2.TopIndex = Listl.TopIndexList3.TopIndex = Listl.TopIndex End SubPrivate Sub List2_Scroll()List1.TopIndex = List2.TopIndexList3.TopInd

17、ex = List2.TopIndex End SubPrivate Sub List3_Scroll()List2.TopIndex = List3.TopIndexList1.TopIndex = List3.TopIndex End Sub创建一个窗体 Form1 (Caption：计算100以内的勾股数)，在此窗体上创 建5个标签和3个列表框，界面如下图，要求程序运行时，能够给出100以内的勾股数。教 学 内 容学生活动解第一步：创建新窗体 Forml,在此窗体上创建5个标签Labell、Label2、Label3、Label4、Labe和 3 个列表框 Listl、List2、Lis

18、t3。第二步：设置对象的属性对象名属性设置窗体Form1Caption计算100 以内的 勾股数标签Label1CaptionaA 2标签Label2Caption+标签Label3CaptionB人2标签Label4Caption=标签Label5CaptionC人2列表框List1List空白列表框List2List空白列表框List2List空白第三步：补充完成代码编写Private Sub Form_Activate()Dim i As Integer, j As Integer, c As SingleFor i = 1 To 100For j = i + 1 To 100c = S

19、qr(i A 2 + j A 2)If c < 100 And Int(c) = c ThenList1.AddItem iList2.AddItem jList3.AddItem c End If Next j Next i End SubPrivate Sub List1_Click()Listl.Selected(Listl.Listlndex) = TrueList2.Selected(List1.ListIndex) = TrueList3.Selected(List1.ListIndex) = True End SubPrivate Sub List2_Click()List

20、1.Selected(List2.ListIndex) = TrueList2.Selected(List2.ListIndex) = TrueList3.Selected(List2.ListIndex) = True End SubPrivate Sub List3_Click()List1.Selected(List3.ListIndex) = TrueList2.Selected(List3.ListIndex) = TrueList3.Selected(List3.ListIndex) = True End SubPrivate Sub List1_Scroll()List2.Top

21、Index = List1.TopIndexList3.TopIndex = List1.TopIndexEnd SubPrivate Sub List2_Scroll()List1.TopIndex = List2.TopIndexList3.TopIndex = List2.TopIndex End SubPrivate Sub List3_Scroll()List2.TopIndex = List3.TopIndexList1.TopIndex = List3.TopIndex End Sub创建一个窗体Forml （Caption：字体设置），在此窗体上创建 2个标签、1 个文本框和2

22、个组合框，界面如下图，要求程序运行时，能通过组合框改 变文本框中文字的字形和大小。解第一步：创建新窗体Forml,在此窗体上创建2个标签Labell、Label2,1 个文本框 Textl ,和 2 个组合框 Combol、Combo2。第二步：设置对象的属性对象类型对象名属性设置窗体Form1Caption组合框的应用标签Label1Caption字体标签Label2Caption大小文本框Text1Text心想事成组合框Combo1List宋体、楷体_gb2312、仿宋_gb2312、黑体、隶书组合框Combo2List8、 12、 16、 20、 24、 36、 48、60、72第三步：

23、补充完成代码编写Private Sub Combo1_Click（）Textl.FontName = Combo1.Text'设置字体End SubPrivate Sub Combo2_Click()Text1.FontSize = Val(Combo2.Text)'设置字号End Sub考用、考题创建一个窗体Form1 （Caption：组合框的应用），在此窗体上创建1个文本框和1个组合框，界面如下图，要求程序运行时，能通过组 合框选项，在文本框中显示当前系统日期和时间。解第一步：创建新窗体Forml ,在此窗体上创建1个文本框Textl和 1个组合框Combol。第二步：设

24、置对象的属性对象名属性设置窗体Form1Caption组合框的应用文本框Text1Text空白组合框Combo1List空白第三步：补充完成代码编写Private Sub Form_Load()Combol.Text ="系统日期和时间的显示 "Combol.AddItem "当前日期"Combol.AddItem "当前时间"Combol.AddItem ”当前日期和时间"End SubPrivate Sub Combo1_Click()Select Case Combo1.ListIndexCase 0Text1.Tex

25、t ="当前日期："& DateCase 1Text1.Text ="当前时间："& TimeCase 2Textl.Text ="当前日期："& Date & " 当前时间："& TimeEnd SelectEnd Sub/、考题创建一个窗体Forml （Caption：偶数迁移）,在此窗体上创建2个标签、2个命令按钮和2个列表框，界面如下图，要求程序运行时， 点击“产生”命令按钮，在左边列表框中随机产生10个两位正整数，点击“一一”命令按钮，10个整数中偶数自动迁移到右边的列表框。教 学 内 容学生