VB.NET开发技术实验指导书
End If End Sub
从上述代码可以看出，当单击CheckBox1后还将触发RadioButton1、RadioButton2和RadioButton3的CheckedChanged事件。这样能够在选中CheckBox1后，窗体颜色随选择的颜色而改变。上述语句中还调用了一个名为ColorSet的函数，该函数的功能是实现颜色的选择，代码如下：
Private YanSe As Color
Private Function ColorSet(ByVal color As Integer) As Color Select Case color Case 0
Return YanSe.Red Case 1
Return YanSe.Green Case 2
Return YanSe.Blue Case Else
Return YanSe.Gray End Select End Function
CheckBox2（即文本）的CheckChanged事件的代码与CheckBox1相似，惟一不同的是将CheckBox1代码中的CheckBox1.Checked改为CheckBox2.Checked，将Me替换为TextBox1。
接下来Text属性为“颜色”的组中RadioButton的CheckChanged事件。例如RadioButton1（即红色）的CheckChanged事件的代码为：
Private Sub RadioButton1_CheckedChanged(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles RadioButton1.CheckedChanged, _ CheckBox1.CheckedChanged, CheckBox2.CheckedChanged End Sub
上述过程中虽然没有过程体，但是该过程仍然不可缺少。RadioButton2和RadioButton3的CheckChanged事件与上述代码相似。他们实现与CheckBox1和CheckBox2的联合触发。
再往下是对字体大小的设置。下面的6行代码分别是RadioButton4（大号）、RadioButton5（中号）和RadioButton6（小号）的CheckChanged事件中的代码：
TextBox1.Font = New System.Drawing.Font(\宋体\ System.Drawing.GraphicsUnit.Point) TextBox1.Font = New System.Drawing.Font(\宋体\ System.Drawing.GraphicsUnit.Point) TextBox1.Font = New System.Drawing.Font(\宋体\ System.Drawing.GraphicsUnit.Point)
编写完前面的代码后就可以对该应用程序进行操作。图6-2和6-3为运行应用程序时所做的不同操作。
12
VB.NET开发技术实验指导书
图6-2 文本颜色采用默认值 图6-3 为窗体和文本选择颜色
练习2：综合使用组合框和列表框
在一个窗体中添加1个组合框、1个列表框、1个标签、1个文本框和6个按钮，并为这些控件设置属性。如图6-4所示为设置好属性的窗体。运行该应用程序时，可以在文本框中输入要向组合框中添加的成员，然后单击【添加】按钮进行添加。可以单击图6-4所示的按钮来对组合框和列表框中的成员进行操作。
图6-4 设置好属性的窗体
下面为该窗体中各个控件的触发事件编写代码。当在文本框或组合框中输入要添加成员后，单击【添加】按钮便可在组合框中添加成员。【添加】按钮（Button3）的Click事件的代码如下：
If TextBox1.Text = \ MessageBox.Show(\请输入要添加的成员\ TextBox1.Focus() End If
If TextBox1.Text <> \
ComboBox1.Items.Add(TextBox1.Text) TextBox1.Text = \ End If
If ComboBox1.Text <> \
ComboBox1.Items.Add(ComboBox1.Text) End If
如果要将组合框中的成员添加到列表框中，同时从组合框中删除该成员，那么在组合框中选择成员后，单击“向右移动”>>按钮即可。当在组合框中选择成员后，便使“向右移动”>>按钮的Enable属性为真，其SelectedValueChanged事件的代码如下：
13
VB.NET开发技术实验指导书
Button1.Enabled = True
当单击“向左移动”>>按钮后，触发MouseDown事件，其代码为：
Private Sub Button1_MouseDown(ByVal sender As Object, _
ByVal e As System.Windows.Forms.MouseEventArgs) Handles Button1.MouseDown If ComboBox1.SelectedItem <> \
ListBox1.Items.Add(ComboBox1.SelectedItem) ComboBox1.Items.Remove(ComboBox1.SelectedItem) End If
Button1.Enabled = False End Sub
如果要将列表框中的成员添加到组合框中，同时从列表框中删除该成员，那么在列表框中选择成员后，单击“向左移动”<<按钮即可。该按钮的MouseDown事件的代码与上述“向右移动”>>按钮相似，只需将代码中的ListBox1与ComboBox1互换，将Button1该为Button5即可。
如果要将组合框中的所有成员添加到列表框中，则【全部移入】按钮的Click事件的代码如下：
If ComboBox1.Items.Count > 0 Then Dim i As Integer
For i = 0 To ComboBox1.Items.Count - 1
ListBox1.Items.Add(ComboBox1.Items.Item(i)) Next i
ComboBox1.Items.Clear() End If
上述代码中通过ComboBox1的Items.Clear属性删除组合框中的所有成员。从列表框中将所有元素全部移出与上述代码相似。在为每个控件编写代码后就可以对该应用程序进行操作。
练习3：综合使用TreView控件和ListView控件
在一个窗体中添加1个TreeView控件、1个ListView控件和两个Label控件，并设置相应的属性。下面通过代码为TreeView控件添加树节点，如下所示：
Dim newtree As TreeNode = New TreeNode(\图书管理系统\ TreeView1.Nodes.Add(newtree)
Dim node1 As TreeNode = New TreeNode(\用户表\ TreeView1.Nodes(0).Nodes.Add(node1)
Dim node2 As TreeNode = New TreeNode(\作者表\ TreeView1.Nodes(0).Nodes.Add(node2)
Dim node3 As TreeNode = New TreeNode(\学生信息表\ TreeView1.Nodes(0).Nodes.Add(node3)
Dim node4 As TreeNode = New TreeNode(\图书明细表\ TreeView1.Nodes(0).Nodes.Add(node4)
Dim node5 As TreeNode = New TreeNode(\出版社信息表\ TreeView1.Nodes(0).Nodes.Add(node5)
在上述代码中，首先通过前两行代码在TreeView中添加1个根节点，然后再声明5个TreeNode变量，并将这5个变量添加为子节点。
14
VB.NET开发技术实验指导书
当运行应用程序时，选择一个子节点在ListView中显示该节点的相关信息。选择节点同时在ListView中显示相关信息由TreeView控件的AfterSelect事件实现，其代码如下：
Private Sub TreeView1_AfterSelect(ByVal sender As System.Object, _
ByVal e As System.Windows.Forms.TreeViewEventArgs) Handles TreeView1.AfterSelect Select Case TreeView1.SelectedNode.Index Case 0
ListView1.Columns.Clear() ListView1.Items.Clear()
ListView1.Columns.Add(\编号\ ListView1.Columns.Add(\姓名\ ListView1.Columns.Add(\性别\ ListView1.Columns.Add(\联系电话\ ListView1.Columns.Add(\密码\ Dim a As New ListViewItem(\ ListView1.Items.Add(a) a.Checked = True a.SubItems.Add(\赵俊昌\ a.SubItems.Add(\男\
a.SubItems.Add(\ a.SubItems.Add(\ ?? Case 1 ?? End Select End Sub
通过Select Case语句来判断选择的是哪一个节点，并通过ListView的Columns.Add方法为其添加列，然后声明一个ListViewItem变量（表示添加的行），然后通过SubItems.Add方法为其添加行。图6-5所示为当选择“出版社信息表”节点时，在ListView中显示该节点的相关信息。
图6-5 显示“出版社信息表”的相关信息
15
VB.NET开发技术实验指导书
实验七 MDI程序设计
一、实验目的与要求
1. 掌握MDI窗体的创建。
2. 掌握工具栏、状态栏、菜单和快捷菜单控件的使用。 3. 掌握管理MDI子窗体的方法。
二、实验内容
练习1：创建MDI字处理程序
在实验中，我们将创建一个MDI应用程序来对文本文字进行简单的处理。MDI应用程序的运行结果如图7-1所示，其中显示了加载了多个MDI子窗体时的效果，并在每个子窗体分别对文字进行了不同的处理，例如加粗或添加下划线等。
图7-1 MDI字处理程序
关于本程序的完整解决方案可以打开本书的光盘并找到相应的章，此处仅列出了创建过程中的部分代码。
（1）创建一个新的项目Exercises8-1，配置一个MDI父窗体后设置其外观属性；然后添加一个新的窗体作为子窗体。
（2）切换到父窗体的窗体设计器，创建一个下拉菜单控件实例，包含一个“文件”菜单，一个“新建”和“退出”两个菜单项以及一个分隔线。
（3）设置“文件”菜单的属性，并为“新建”和“退出”菜单项编写代码。实现可以新建一个子窗体并显示，子窗体的默认标题栏是“未命名”。选择“退出”菜单项将退出整个应用程序。
（4）在子窗体中添加文本框控件实例，设置它随子窗体改变大小，显示多行文本并且总是显示垂直滚动条。添加下拉菜单控件实例，创建一个“格式”菜单对文本框中的字体设置格式的对齐方式，初始值为“默认”和“左对齐”。还可以设置为粗体、斜体、下划线和删除线字体，对齐方式有居中对齐和右对齐。
（5）创建一个“窗口”菜单，它可以显示加载的子窗体列表以及改变子窗体的布局方式。
（6）设置“格式”菜单和“窗口”菜单的属性，使运行时两个子窗体的菜单出现在父窗体“文件”菜单之后。
16