如何在VB窗体中加入进度条?
发布网友
发布时间:2022-04-30 13:52
我来回答
共1个回答
热心网友
时间:2022-06-22 20:05
首先,你要加载这个部件,选择工程--部件,再选择Microsoft
Windows
common
controls6.0控件,加载,这时ProgressBar就可以使用了
例子:
在窗体上添加Timer1,command1,ProgressBar1,Label1控件
再添加如下代码:
Private
Sub
Command1_Click()
Timer1.Interval
=
1000
ProgressBar1.Value
=
0
Timer1.Enabled
=
True
End
Sub
Private
Sub
Timer1_Timer()
If
ProgressBar1.Value
>=
100
Then
Timer1.Enabled
=
False
Else
ProgressBar1.Value
=
ProgressBar1.Value
+
10
Label1.Caption
=
"进度为:"
&
ProgressBar1.Value
&
"%"
End
If
End
Sub
excel图表使用VBA创建进度条
接下来,在用户窗体中插入一个框架控件。使该框架在水平和垂直方向上大致居于用户窗体中心,并位于前面添加的标签下方,如下图3所示。图3 设置框架的属性。将其命名为fraProgress,设置其Caption属性为空(即没有文本),修改其SpecialEffect属性为“2-fmSpecialEffectSunken”。此时,表示进度条的用户窗体如...
VB如何实现进度条
VB实现进度条的方法只需要5个步骤就可以。1.首先,编写一个程序框架,如下所示。2.然后您可以在这里输入各种语句,如下所示。3.然后找到两个语句块的中间部分,如下图所示。4.输入语句[Exitsub],如下所示。5.最后,您可以运行测试并解决实现进度条的问题,如下所示。注意事项:VB背后的思想是...
关于VB.NET进度条的实例
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True Timer1....
关于VB.NET进度条的实例
首先要在窗体中载入以下控件:progressbar(进度条),label(用来实时显示文本提示),两个timer(分别控制进度条进度的增减),然后用以下代码就能实现:Public Class Form1 Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Timer1.Enabled = True T...
VB怎么制作进度条?
1.在控件工具箱中右键=>部件。2.在“部件”窗口中勾选Microsoft windows common controls 5.0或6.0。单击确定。3.然后控件工具箱中就有进度条了。改变样式方法:(我暂时只知道这种)下载一个SkinH,下载的文件夹里面有使用方法哦~(并且会优化所有控件及窗体)注意事项:1.使用时避免使用End语句...
vb中用设计一个进度条,一按command,进度条开始工作
1.首先添加microsoft window common Cortrols 6.0部件;2.在控件工具箱中点ProgressBar,在窗体中放置一个滚动条,命名为字pb1;3.在窗体中放置一个命令按钮;4.在窗体上在放置一个计时器控件,命名为T1;代码如下:Dim i As Integer Private Sub Command1_Click()T1.Interval = 1000 i = 10 End...
VB加进度条问题
使用菜单,[工程]--[部件],勾选 Microsoft Windows Common Controls 6.0 (SP6),[确定]。将进度条,添加到窗体。在你的语句中合适位置增加4行代码,看看效果。ProgressBar1.Min = 1 '增加的代码 ProgressBar1.Max = ost1.UsedRange.Rows.Count '增加的代码 ProgressBar1.Value = 0 '...
vb怎样才能使执行进度条时原程序不中断
vb能使执行进度条时原程序不中断有以下几步骤:1、在主程序中创建一个进度条窗口,这个窗口可以是一个独立的窗体,也可以是一个控件。2、.在主程序中启动一个新的线程,用于执行进度条的逻辑。可以使用VB自带的Threading库实现多线程功能。3、在新线程中,编写进度条的逻辑,包括显示进度条、更新进度条...
vb6.0 如何做任务栏进度条?望大神指教,谢谢。
.szTip = "任务栏进度条示例"End With '加任务栏图标 Shell_NotifyIcon NIM_ADD, NotifyIconData End Sub Private Sub Form_Unload(Cancel As Integer)'除任务栏图标 Shell_NotifyIcon NIM_DELETE, NotifyIconData End Sub Private Sub Timer1_Timer()Dim progress As Integer progress = progress + ...
如何在VBA中使用VB的其它控件 如进度条等
在Excel中,单击[视图]--[工具栏]--[控件工具箱],在出现的工具箱里选择最后(或最下)的一个图标(叫做其他控件),在出现的窗口里选择你所需要的控件.进度条是:MicroSoft ProgressBar