VB 进度条控件控制
发布网友
发布时间:2022-05-02 00:11
我来回答
共2个回答
热心网友
时间:2022-06-25 10:34
添加控件textbox一个,progressbar一个,按钮2个 ,timer一个,复制以下代码即可:
Option Explicit
Dim n As Integer
Private Sub Command1_Click()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
Private Sub Command2_Click()
If Val(Text1) <= 0 Then Exit Sub
Text1 = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)
End Sub
Private Sub Text1_LostFocus()
n = Val(Text1)
If n <= 0 Then MsgBox "text1不能为0": Exit Sub
ProgressBar1.Max = Val(Text1)
End Sub
Private Sub Timer1_Timer()
Text1.Text = Val(Text1) - 1
ProgressBar1.Value = n - Val(Text1)
If Val(Text1) <= 0 Then Timer1.Enabled = False
End Sub
热心网友
时间:2022-06-25 10:35
等差数列问题
VB 进度条控件控制
添加控件textbox一个,progressbar一个,按钮2个 ,timer一个,复制以下代码即可:Option Explicit Dim n As Integer Private Sub Command1_Click()Timer1.Enabled = True Timer1.Interval = 1000 End Sub Private Sub Command2_Click()If Val(Text1) <= 0 Then Exit Sub Text1 = Val(Text1) - ...
关于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怎样才能使执行进度条时原程序不中断
vb能使执行进度条时原程序不中断有以下几步骤:1、在主程序中创建一个进度条窗口,这个窗口可以是一个独立的窗体,也可以是一个控件。2、.在主程序中启动一个新的线程,用于执行进度条的逻辑。可以使用VB自带的Threading库实现多线程功能。3、在新线程中,编写进度条的逻辑,包括显示进度条、更新进度条...
VB,那个进度条和TIMER 如何同步,比如我想用进度条和TIMER同时及计时_百...
进度条控件一定有三个属性,即最小值Min、最大值Max和当前值Value。你知道了这三个属性后就可以采用实时改变其当前值Value的大小的方法来控制进度条的前进了。你说要与TIMER 同步,你只要在TIMER 的事件中增加一条改变进度条当前值Value的语句即可达到你的“需要同步”的目的了,但要注意Value的值必须...
vb如何设置进度条并在10秒后提示??
窗体上有一个按钮,一个进度条,一个Timer控件:Private Sub Command1_Click()ProgressBar1.Min = 0 ProgressBar1.Max = 100 ProgressBar1.Value = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()ProgressBar1.Value = ProgressBar1.Value + 10 If ...
vb的进度条怎么用?
你可以这样解决:1.首先,创建一个Timer控件和一个进度条控件。2.设置Timer1的InterVal属性值为:1000,ProgressBar1控件的Max属性为500。3.在Timer的事件是里写如下代码:Private Sub Timer1_Timer()ProgressBar1.Value =ProgressBar1.Value + 1 End Sub End Sub ...
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...
如何在VBA中使用VB的其它控件 如进度条等
在Excel中,单击[视图]--[工具栏]--[控件工具箱],在出现的工具箱里选择最后(或最下)的一个图标(叫做其他控件),在出现的窗口里选择你所需要的控件.进度条是:MicroSoft ProgressBar
求VB进度条的详细使用方法
控件不停地显示动画,直到在结束事件中调用 Stop 方法为止。详细信息 有关使用 Animation 控件的更详细内容,请参阅“使用 Animation 控件”。用 Visible 属性隐藏 ProgressBar 在操作开始之前通常不显示进度栏,并且在操作结束之后它应再次消失。在操作开始时,将 Visible 属性设置为 True 以显示该控件;...