VB应用程序中的工具提示和状态显示(2)

原作者:kuku 添加时间:2007-06-02 原文发表:2007-06-02 人气:51 来源：互联网

本文章共3356字，分3页，当前第2页，快速翻页：

-----------------------------------------------------------------------------------------------------------------------------------------------

本文提示：《VB应用程序中的工具提示和状态显示(2)》是本站编辑们为广大网友精选的实用文章，本文阐述了关于文章的相关理论，相对来说专业性强，但是本文只是针对于某个问题提出的见解与论述，未必能辐射到相关问题的方方面面，所以本文处理问题的方法仅仅为您提供一些参考。更多问题请查阅学习中国网其他栏目哦.

-----------------------------------------------------------------------------------------------------------------------------------------------

当鼠标移到该控件上（例如Text1）时，这条消息将显示在此 Label 控件中。

为了仅在鼠标移动到该控件上时进行显示，鼠标一离开控件就把Label控件隐藏，可以在该窗体的MouseMove（或要显示信息控件的LostFocus）事件中添加以下代码：

Labelname.Visible=False

2 利用ProgressBar控件

ProgressBar 控件的主要功能是用图形方式显示事务的进程，该控件的边框在事务进行过程中逐渐被充满。它可以提示用户通过网络进行文件传输的进展情况，可以反映要持续几秒钟以上的过程的进展情况，还可以显示正在运行的复杂算法的进展情况。通常要进行需要几秒钟才能完成的操作时，就可使用 ProgressBar来进行状态显示。ProgressBar控件为用户提供了可视化的反馈信息，它的应用还可以优化应用程序的外观速度。

ProgressBar控件的Value 属性决定该控件被填充多少，其 Min 和 Max 属性设置该控件的界限。要显示某个操作的进展情况，Value 属性将持续增长，直到达到了由 Max 属性定义的最大值为止。这样该控件显示的填充块的数目总是 Value 属性与Max和Min 属性之差的比值。例如，如果 Min 属性被设置为 1，Max 属性被设置为 100，Value 属性为 50，那么该控件将显示百分之五十的填充块。

在操作开始之前通常不显示ProgressBar控件，并且在操作结束之后它应随之消失。在操作开始时，将 Visible 属性设置为 True 以显示该控件，并在操作结束时，将该属性重新设置为 False 以隐藏该控件。

　　下面的示例说明如何用一个名为 ProgressBar1 的 ProgressBar 控件，来表示对一个大数组冗长的操作进度。把一个 CommandButton 控件和一个 ProgressBar 控件放在同一窗体里。

Private Sub Command1_Click()

Dim Counter As Integer

Dim Workarea(250) As String

ProgressBar1.Min = LBound(Workarea)

ProgressBar1.Max = UBound(Workarea)

ProgressBar1.Visible = True

注释：设置进度的值为 Min。

ProgressBar1.Value = ProgressBar1.Min

注释：在整个数组中循环。

For Counter = LBound(Workarea) To UBound(Workarea)

　　注释：设置数组中每项的初始值。

　　 Workarea(Counter) = “初始值为”& Counter

　　 ProgressBar1.Value = Counter

Next Counter

ProgressBar1.Visible = False

ProgressBar1.Value = ProgressBar1.Min

End Sub

Private Sub Form_Load()

ProgressBar1.Visible = False

End Sub

3 利用StatusBar控件

　　StatusBar 控件由若干个面板构成，主要用来显示应用程序的运行状态。它既可以节省界面空间又可包含丰富的信息。例如显示数据库表的有关情况（记录总数、以及当前记录在数据库中的位置等），显示关于 RichTextBox 控件的文本和字体状态的信息，显示键盘的状态（例如 Caps Lock 或 Number Lock），显示当前日期或时间等。

StatusBar 控件是由 Panels 集合构成的，在该集合中最多可包含十六个 Panel 对象。每个对象可以显示一个图象和文本。在运行时，可以通过 Text、Picture 和 Width 属性动态地改变任何 Panel 对象的文本、图象或宽度。要在设计时添加 Panel 对象时，可以用鼠标右键单击控件，然后单击“属性”，即可打开“属性页”对话框。使用该对话框，既可以添加 Panel 对象，也可以设置每个面板的各种属性。其中只需简单地设置StatusBar 控件的Style 属性就能够用最少的代码显示键盘状态、时间和日期等信息。

如果要在运行时添加 Panel 对象，可以显示应用程序运行过程中不断变化的内容。首先声明 Panel 类型的对象变量，然后将该对象变量设置为由 Add 方法创建的 Panel，如下面的代码所示：

本文章更多内容：<<上一页 - 1 - 2 - 3 - 下一页>>

本页地址

收藏到：[收藏夹] [百度搜藏] [新浪ViVi] [POCO网摘] [ 和讯网摘] [好哦网摘] [Google书签]
[搜狐网摘] [365Key网摘] [天极网摘] [我摘] [博采网摘] [igooi网摘]

• VB6.0动态加载ActiveX控件漫谈

• VB中处理长列表框项的两种方法

• VB中多级下拉列表的实现

• VB中防止将重复项目添加到列表框控件中