VBNET VS2005 高级篇.doc

高级篇
高级篇

实例71：提示信息
实例说明
在本实例中，我们将介绍使用如何使用ToolTip控件来显示提示信息。程序运行后，可以设置显示提示信息的时间以及是否显示提示信息。程序运行结果如图71-1所示。

图71-1运行结果
技术要点
ToolTip控件
显示/隐藏提示信息
显示提示信息的时间
实现过程
新建项目
打开VisualStudio.NET，选择“新建项目”，在项目类型窗口中选择“VisualBasic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“ToolTipExam”，然后选择保存路径。单击“确认”。
添加控件
向窗体上添加一个Label控件，用于测试提示信息。添加一个GroupBox控件，在GroupBox控件上放置两个CheckBox控件，然后再添加三个Label控件和三个TextBox控件，用于设置提示时间。最后添加两个Button控件。
设置属性
对窗体上的控件设置属性，在本实例中，我们只需要将所有控件的Text属性改为和界面一致。
添加代码
'是否显示提示信息
PrivateSubCheckBox1_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox1.CheckedChanged
ToolTip1.Active=CheckBox1.Checked
EndSub
'是否显示提示信息，当窗体没有获得焦点时
PrivateSubCheckBox2_CheckedChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesCheckBox2.CheckedChanged
ToolTip1.ShowAlways=CheckBox1.Checked
EndSub
'提示信息延迟时间
PrivateSubTextBox1_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox1.TextChanged
ToolTip1.AutomaticDelay=Val(TextBox1.Text)*1000
EndSub
'提示信息弹出时间
PrivateSubTextBox2_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox2.TextChanged
ToolTip1.AutoPopDelay=Val(TextBox2.Text)*1000
EndSub
'提示信息刷新时间
PrivateSubTextBox3_TextChanged(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTextBox3.TextChanged
ToolTip1.ReshowDelay=Val(TextBox3.Text)*1000
EndSub
运行程序
单击菜单“调试|启动”或单击图标运行程序。
小结
我们在本实例中主要讲解了ToolTip控件的使用方法。ToolTip控件几乎在我们的每个程序中都要使用。相信大家一定会掌握好这个控件的。
实例72：使用数据集
实例说明
在本实例中，我们再利用VB.NET开发一个程序，即使用DataSet数据集来制作一个程序。程序运行结果如图72-1所示。

图72-1运行结果
技术要点
使用DataSet控件
添加数据集文件
连接DataSet控件和DataGrid控件
实现过程
新建项目
打开VisualStudio.NET，选择“新建项目”，在项目类型窗口中选择“VisualBasic项目”，在模板窗口中选择“Windows应用程序”，在名称域中输入“DatasetExam“，然后选择保存路径。单击“确认“。
添加控件和数据集
向当前窗体上添加一个DataGrid控件（在工具箱“Windows窗体”选项卡上），然后选择菜单“项目|添加新项”，在弹出的对话框中选择“数据集”，输入文件名，单击“确定”按钮。然后双击Dataset.xsd文件，在工具箱中向DataSet1上添加一个element元素。其界面如图72-2所示。

图72-2数据集的界面
最后向窗体上添加一个DataSet控件（在工具箱“数据”选项卡上）。弹出如图72-3所示的界面。在典型化数据集“名称”中选择刚才的数据集文件。单击“确定”。

图72-3运行结果
设置属性
切换到窗体的界面，给窗体上的控件设置属性，详细情况见表72-1。

表72-1设