Visual Basic 2005 程序设计 何聚厚 第7章 My命名空间.pptVIP

第7章 My命名空间 本章主要内容： My命名空间结构。 Tabcontrol选项卡控件。 文件操作。 OpenFileDialog控件，SaveFileDialog控件和SaveAsFiledialog控件使用。 目录操作、FolderBrowserDialog控件。 键盘操作。 网络操作。 应用程序启动退出事件操作。 窗体实例间互相访问。 Visual Basic 2005 提供的My命名空间提供了一系列对象，程序设计人员通过这些对象可以方便地访问和控制计算机的相关内容（如文件、目录操作，剪贴板操作等）、应用程序和窗体等。My命名空间对象之间的关系如图7-1所示。 例7.1构建选项卡窗体，演示My命名空间中的相关功能。 具体操作过程： ⑴ 新建项目，选择“Windows应用程序”，项目名称为“MyComputer命名空间演示”。 ⑵ 在解决方案资源管理器中把“Form1.vb”文件名改为“MyComputer命名空间演示.vb”。 ⑶ 打开窗体设计视图，选择窗体，在属性框中修改窗体的属性：Name为“frmMyNameSpaceDemo”；StartPosition为“CenterScreen”；Text为“My.Computer命名空间演示”。 ⑷ 为窗体添加选项卡TabControl控件，Name为“myPages”。TabControl控件中的选项卡由空间的TabPages集合管理，在属性框中单击TabPages属性中的按钮，Visual Basic 2005 将打开TabPage集合编辑器，如图7-2所示。可以向集合中添加成员，选中成员后，还可以修改成员的属性，如Name和Text等。在本例中，在TabPage集合中共创建5个选项成员，其中的属性修改如表7-1所示。 表7-1 My命名空间演示中选项成员及其属性 ⑸ 为窗体添加TextBox控件，Name为“txtOutput”，Multiline为True，ScrollBars为Vertical。 ⑹ 在“Public Class frmMyNameSpaceDemo”后添加过程showText，用于通过txtOutput文本框显示输出内容： 定义通过输出文本框输出内容过程 Private Sub ShowText(ByVal txt As String, Optional ByVal clear As Boolean = False) If clear Then txtOutput.Text = 清除输出框内容 End If txtOutput.Text = txtOutput.Text txt End Sub 注意： ShowText中的clear为可选参数，如果为True，则消除输出内容，否则只是在输出框追加内容。 ⑺ 在代码编辑窗口中，在类名下拉列表中选择“myPages”，在方法名称下拉列表中选择“SelectedIndexChanged”，添加TabControll控件中被选中选项变化事件的响应代码： Private Sub myPages_SelectedIndexChanged(ByVal sender As Object, _ ByVal e As System.EventArgs) Handles myPages.SelectedIndexChanged 输出选择的选项卡的名称 ShowText(您选择的是： myPages.SelectedTab.Text() vbCrLf, True) End Sub 提示： Tabcontrol控件可以根据功能需要，对屏幕上显示的控件进行分类，每次只显示相关的控件，因此在程序设计中经常使用。 Tabcontrol控件的每个选项卡都是一个容器，因此向指定的选项卡中添加控制之前，必须先选中相应的选项卡。 可以通过单击控件中的某一选项卡来更改当前的选项卡，也可以使用TabControl 的属性，以编程的方式更改当前的选项卡： myPages.SelectedIndex = x 表示编号为x的选项卡被选中； x = myPages.SelectedIndex 返回选中的选项卡的编号。 myPages.SelectedTab = tmpTab 表示选项卡对象tmpTab被选中； tmpTab = myPages. SelectedTab 返回选中的选项卡对象。 myPages.DeselectTab(x)表示编号为x的选项卡取消选中，其后继选项卡被选中。 当不同选项进行切换时，触发的事件有： SelectedIndexChanged：选项卡发生改变发生。 Deselecting：在