4.5  创建简单选课系统
【教学目标】
1、 掌握列表框控件的应用；
单个字符视为长度为1的字符串2、 掌握组合框控件的应用；
3、 掌握复选框按钮控件的应用。
【教学重点】
列表框控件和组合框控件的应用
【教学难点】
对Split函数的理解和应用
【教具】
多媒体、计算机
【教学过程】
一、复习
1、命令按钮控件的常用属性和常用事件？
二、导入
上一章讨论了Visual Basic中学习了单选按钮控件、框架控件以及复选框按钮控件的应用。本节课我们来通过制作小程序，学习列表框控件和组合框控件的应用。
三、自主学习
1、列表框控件
列表框（ListBox）控件用于显示项目列表，从其中可以选择一项或多项。如果项目总数超过了可显示的项目，就自动在列表框控件上添加滚动条。
列表框控件的常用属性如下：
1） List：返回或设置控件的列表框部分的项目。该属性值是一个字符串数组，数组的每个元素都是一个列表框项目，列表框控件在设计时可以通过属性窗口来设置。
2） ListCount：返回控件的列表部分项目的个数。
3） ListIndex：返回或设置控件中当前选择项目的索引，在设计时不可用。当选定列表的第一项时，ListIndex属性值为0，如果未选定项目，则ListIndex属性值是1，ListCount属性包含项目数，其值总是比最大的ListIndex值大1。
4） SelCount：返回在列表框控件中被选中项的数量。
5） Selected：返回或设置在列表框中的一个项的选择状态。该属性是一个布尔值数组，其项数与List属性相同。在设计时是不可用的。
6） Sorted：指定控件的元素是否自动按字母表顺序排序。
7） Style：指定列表框的样式。如果该属性值为0，则呈现为标准列表框；如果属性值为1，则呈现为复选框式列表框，每一个文本项的边上都有一个复选框，可以选择多项。
列表框控件的常用方法如下：
1） AddItem：用于将项目添加到列表框控件，语法格式如下：
oList.AddItem item, index
其中oList表示列表框控件；参数Item为字符串表达式，用来指定添加到该列表框的项目；参数Index为整数，用来指定新项目在该列表框中的位置。对于列表框控件的首项，index为0。
如果所给出的Index值有效，则Item将防止在oList中相应的位置。如果省略index，则当Sorted属性设置为True时，item将添加到恰当的排序位置，当Sorted属性设置为False时，item将添加到列表框的结尾。
2） RemoveItem：从列表框控件中删除一项，语法格式如下：
oList.RemoveItem index
其中oList表示列表框控件；参数index是一个整数，表示要删除的项在列表框中的位置。对于列表框中的首项，index为0。
2、组合框控件
组合框（ComboBox）控件将文本框控件和列表框控件的特性结合在一起，即可以在控件的文本框部分输入信息，也可以在控件的列表框部分选择一项。
组合框控件的常用属性如下。
1） Style：用于设置组合框控件的样式。如果该属性值为0（默认值），则呈现为下拉式组合框，包括一个下拉式列表和一个文本框，可以从列表选择或在文本框中输入。如果该属性为1，则得到一个简单组合框，包括一个文本框和一个不能下拉的列表，可以从列表中选择或在文本框中输入。如果该属性值为2，则呈现为下拉式列表，这种样式仅允许从下拉式列表中选择。
2） Text：对于Style属性设置为0的下拉组合框或Style属性设置为1的简单组合框，返回或设置编辑域中的文本；对于Style属性设置为2的下拉列表框，返回在列表框中选择的项目，返回值总与表达式List（ListIndex）的返回值相同。
为了添加或删除组合框控件中的项目，需要使用AddItem或RemoveItem方法。利用List、Lis
tCount和ListIndex属性可以实现对组合框中项目的访问。也可以在设计时使用List属性将项目添加到列表中。
3、Split函数
使用Split函数可以将一个字符串拆分为一个下标从0开始的一维数组，其中包含指定数量的子字符串。调用格式如下：
Split ( Expression, Delimiter, Limit, Compare )
其中参数Expression为必选项，是一个Single表达式，包含子字符串和分隔符；其他参数均为可选项。
Delimiter是用于标识子字符串的界限的任何单个字符。如果省略了Delimiter，则假定空白字符（“”）为分隔符。
Limit指定输入字符串应拆分到的子字符串的最大数量，默认值-1，指示在Delimiter字符串的每个匹配项处都拆分输入字符串。
Compare为一个数值，指示计算子字符串时使用的比较模式。若该参数为0，则执行二进制比较，即区分大小写字母；若该参数为1，则执行文本比较，即不区分大小写字母。
Split函数返回一个String数组。如果Expression为零长度字符串（“”），则Split返回包含零长度字符串的单个元素数组。如果Delimiter为零长度字符串，或它不在Expression中的任何位置出现，则Split将返回包含整个Expression字符串的单个元素数组。
默认情况下，或Limit等于-1时，Split函数将在分隔符字符串的每个匹配项处拆分输入字符串，并以数组形式返回子字符串。当Limit参数大于0时，Split函数在分隔符的第一个Limit-1匹配项处拆分此字符串，并返回带有结果子字符串的数组。例如Split(“a:b:c”,”:”)返回的数组包含三个元素：“a”、“b”、“c”；而Split（“a:b:c”,2）返回的数组包含两个元素：“a”和“b:c”。
当Split函数在一行中遇到连个分隔符时，或在字符串的开头或结尾遇到分隔符时，会将它们解释为围绕空字符串（“”）。例如，Split（“XX”，“X”）返回的数组包含三个空字符串：一个在字符串开头和第一个“X”之间，第二个在两个“X”字符串之间，第三个在最后一个“X”和字符串结尾之间。
四、合作探究
编程设计：
创建一个简单的选课系统，当从组合框中选择不同专业时，通过列表框列出相关的课程，可以从中选择所需的课程，并允许添加或删除课程；当选择了一些课程并单击“确定”按钮后，通过另一个窗体列出选课结果。。
设计步骤：
1、在Visual Basic集成开发环境中新建一个EXE工程，并把窗体文件和工程文件分别命名并保存。
2、利用属性窗口对窗体Form1的以下属性进行设置。
将其Caption属性设置为“选课系统”。
将其BorderStyle属性设置为1-Fixed Dialog。
3、在窗体FORM1依次添加以下控件。
1)标签lb1Major，将其Caption属性设置为“专业（&M）:”
2)在工具箱中单击ComboBox图标，并在窗体上绘制一个组合框控件，然后将其命名为cboMajor。
3）标签lb1Course，将其Caption属性设置为“可选课程（&A）：”
4）在工具箱中单击ListBox图标，并在窗体上绘制一个列表框控件，然后将其命名为1stCouse。
5）命令按钮cmdAdd，将其Caption属性设置为“>”。
6）命令按钮cmdRemove，将其Caption属性设置为“<”。
7)标签lb1SelectedCoourse，将其Caption属性设置为“已选课程（&S）:”
8)列表框1stSelectedCourse。
9）命令按钮cmdOK，将其Caption属性设置为“确定”，Defaule属性设置为“True”。
10）命令按钮cmdCancel,将其Caption属性设置为“取消”，Cancel属性设置为True。
4、在窗体Form1的代码窗口中编写以下事件过程。
Private smajor As String, scourse1 As striing, scourse2 As String, scourse3 As String
Private amajor() As String, acourse1() As String, acourse2() As String, acourse3() As String
Sub listfill(ByVal oname As Control, aitem() As String)

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。