您现在的位置:首页 >> 网络教学 >> 常用控件 >> 内容

进度条和微调控件

时间:2009-6-19 9:29:06 点击:2461

进度条和微调控件

7.5.1进度条控件

ProgressBar控件,通过从左到右用一些方块填充矩形来表示一个较长操作的进度。因而可以监视操作完成的进度。ProgressBar控件位于Microsoft Windows Common Control 6.0部件中。ProgressBar控件有一个行程和一个当前位置。行程代表操作的整个持续时间,当前位置则代表应用程序在完成该操作过程时的进度。

ProgressBar控件的重要属性有Max属性,Min属性和Value属性。MaxMin属性设置了行程界限;Value属性则指明了在行程范围内的当前位置。由于使用方块来填充控件,因此所填充的数量只能接近于Value属性的当前设置。一般来讲,可以将Max设置为100Min设置为1

此时,Value=50表示完成了50%的操作。可以使用ProgressBar控件的Align属性把它自动定位在窗体的顶部或底部。

7.5设计一个进度条用来指示一个大数组的计算进度。界面设计如图7-9所示。

Sub Command1_Click()

    Dim Counter As Integer

    Dim Workarea(25000) As String

    ProgressBar1.Min = LBound(Workarea)

    ProgressBar1.Max = UBound(Workarea)

    ProgressBar1.Visible = True

    ProgressBar1.Value = ProgressBar1.Min       ' 设置进度的值为Min

    ' 在整个数组中循环

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

    ' 设置数组中每项的初始值

    Workarea(Counter) = "Initial value" & Counter

    ProgressBar1.Value = Counter

    Next Counter

    ProgressBar1.Visible = False

    ProgressBar1.Value = ProgressBar1.Min

End Sub

7.5.2UpDown控件

UpDown控件有一对上下箭头按钮,位于Microsoft Windows Common Control-2 6.0部件中,往往与其他控件捆绑在一起使用。单击时使诸如滚动位置或关联的伙伴控件中的值增减。

对用户而言,UpDown控件及其伙伴控件常常像单个控件。伙伴控件可以是通过BuddyControl属性与UpDown控件相关联的任何控件,通常它显示如TextBox控件或CommonButton控件的数据。

一些辅助的无窗口控件,如标签控件,不能用作UpDown控件的伙伴控件。

建立UpDown控件的伙伴控件有两种方法:

通过设置AutoBuddy属性,UpDown控件自动将Tab顺序中前面的控件作为它的伙伴控件。如果Tab顺序中没有前面的控件,UpDown控件则将Tab顺序中的下一个控件作为它的伙伴控件。

另一种设置伙伴控件的方法是使用BuddyControl属性。在设计时,一旦AutoBuddy属性或BuddyControl属性被设置,伙伴控件会自动地按其大小和位置与UpDown控件配对。UpDown控件可用Alignment属性决定它被放在伙伴控件的右面还是左面。

当单击控件上的按钮时,Increment,Min,MaxWrap属性规定UpDown控件的Value属性如何改变。例如,如果有一些值是10的倍数,且在20~80之间,可以设置Increment,MinMax属性值分别为102080Wrap属性属于Value属性值超过Max时,属性值从Min属性值从新开始增加,或相反。

UpDown控件常用的事件有UpClick(单击向上箭头)DownClick(单击向下箭头)Change(Value属性值改变)事件。

【例7.6】用UpDown控件控制字号

Text1文本框控件作为UpDown1控件的伙伴控件,要求单击向上箭头时,Text1中的文本字号增加,反之则减少。

(1)界面设计。在工程中添加窗体,在窗体上添加一个几乎充满整个窗体的文本框Text1,在Text1的右边添加一个UpDown1。右击UpDown1,打开如图7-10所示的UpDown控件的“属性页”对话框。单击“合作者”标签,在“合作者控件”(即伙伴控件)文本框内输入Text1(或者选择“自动合作者”复选框,则自动在文本框内输入“Text1)在“合作者属性”下拉列表框内选择“Text(即运行时Text1中显示UpDown控件的Value属性值)

(2)属性设置。对象属性设置如表7-7所示。

7-7对象属性设置

对象

属性

设定值

窗体

Name

Form1

Caption

UpDown控件

UpDown控件

Name

UpDown1

文本框

Name

Text1

(3)代码编写。“合作者属性”只是与UpDown控件关联的属性,这里与UpDown控件关联的属性为Text1.Text。要达到程序要求,还应编写UpDown1_Change事件代码如下:

Private Sub UpDown1_Change ()

Text1.FontSize = UpDown1.Value

End Sub

运行程序,输入任意文本,可发现,字号可以大的吓人,图7-12为程序的运行结果。

作者:Admin  
相关文章
  • 没有相关文章
本类推荐
  • 没有
本类固顶
  • 没有
  • VB程序设计学习网站(赣南师范学院) © 2008 版权所有 All Rights Reserved.
  • 地址:江西省赣州市经济技术开发区 赣南师范学院数学与计算机科学学院 邮政编码:341000
    Email:ZQ188@163.com 技术支持QQ:87319633 移ICP备10086号
  • GnsySjxy! V2.4