vb.net高级篇.docVIP

实例71：提示信息 实例说明 在本实例中，我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后，可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。 图71-1 运行结果 技术要点 ToolTip控件 显示/隐藏提示信息 显示提示信息的时间 实现过程 新建项目 打开Visual Studio.NET，选择新建项目，在项目类型窗口中选择Visual Basic项目，在模板窗口中选择Windows应用程序，在名称域中输入ToolTipExam”，然后选择保存路径。单击确认。 添加控件 向窗体上添加一个Label控件，用于测试提示信息。添加一个GroupBox控件，在GroupBox控件上放置两个CheckBox控件，然后再添加三个Label控件和三个TextBox控件，用于设置提示时间。最后添加两个Button控件。 设置属性 对窗体上的控件设置属性，在本实例中，我们只需要将所有控件的Text属性改为和界面一致。 添加代码 是否显示提示信息 Private Sub CheckBox1_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox1.CheckedChanged ToolTip1.Active = CheckBox1.Checked End Sub 是否显示提示信息，当窗体没有获得焦点时 Private Sub CheckBox2_CheckedChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CheckBox2.CheckedChanged ToolTip1.ShowAlways = CheckBox1.Checked End Sub 提示信息延迟时间 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged ToolTip1.AutomaticDelay = Val(TextBox1.Text) * 1000 End Sub 提示信息弹出时间 Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox2.TextChanged ToolTip1.AutoPopDelay = Val(TextBox2.Text) * 1000 End Sub 提示信息刷新时间 Private Sub TextBox3_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox3.TextChanged ToolTip1.ReshowDelay = Val(TextBox3.Text) * 1000 End Sub 运行程序 单击菜单调试|启动或单击 图标运行程序。 小结 我们在本实例中主要讲解了ToolTip控件的使用方法。ToolTip控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。 实例72：使用数据集 实例说明 在本实例中，我们再利用VB.NET开发一个程序，即使用DataSet数据集来制作一个程序。程序运行结果如图72-1所示。 图72-1 运行结果 技术要点 使用DataSet控件 添加数据集文件 连接DataSet控件和DataGrid控件 实现过程 新建项目 打开Visual Studio.NET，选择“新建项目，在项目类型窗口中选择Visual Basic项目，在模板窗口中选择Windows应用程序，在名称域中输入DatasetExam“，然后选择保存路径。单击确认。 添加控件和数据集 向当前窗体上添加一个DataGrid控件（在工具箱Windows窗体选项卡上），然后选择菜单项目|添加新项，在弹出的对话框中选择数据集，输入文件名，单击确定按钮。然后双击Dataset.xsd文件，在工具箱中向DataSet1上添加一个element元素。其界面如图72-2所示。 图72-2 数据集的界面 最后向窗体上添加一个DataSet控件（在工具箱“数据”选项卡上）。弹出如图72-3的界面。在典型化数据集“名称”中选择刚才的数据集文件。单击确定。