vb中用设计一个进度条,一按command,进度条开始工作
发布网友
发布时间：2024-05-29 10:18
我来回答
共2个回答
热心网友
时间：2024-06-02 19:02
Private 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
For Counter = LBound(Workarea) To UBound(Workarea)
Workarea(Counter) = "lintial value" & Counter
ProgressBar1.Value = Counter
Next Counter
End Sub
将ProgressBar1控件的Visible 设为False
热心网友
时间：2024-06-02 18:57
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 Sub
Private Sub T1_Timer()
If i < 100 Then
pb1.Value = i
i = i + 10
End If
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...
VB怎样使ProgressBar1载入时运作
在窗体里添加一个ProgressBar，一个Command，一个Timer，代码如下：Private Sub Form_Load()ProgressBar1.Value = 0 Timer1.Interval = 100 Timer1.Enabled = False End Sub Private Sub Command1_Click()Timer1.Enabled = True End Sub Private Sub Timer1_Timer()If ProgressBar1.Value < 100 ...
VB中如何为事件设进度条显示?
1、点击系统菜单“工具”－＞“选项”，调出选项对话匡后选择“控件”页，再选择ActiveX控件，选定列表栏里的Microsoft ProgressBar Control控件，一般里面有两个版本的，分别是V5.0(SP2)和v6.0。建议用V5.0（SP2）版的，这个控件的风格可以根据WIN的主题风格的变化而变化，而V6.0是固定的一个格子...
如何在VB窗体中加入进度条?
首先，你要加载这个部件，选择工程--部件，再选择Microsoft Windows common controls6.0控件，加载，这时ProgressBar就可以使用了 例子：在窗体上添加Timer1,command1,ProgressBar1,Label1控件 再添加如下代码：Private Sub Command1_Click()Timer1.Interval = 1000 ProgressBar1.Value = 0 Timer1.Enabled...
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进度条问题
窗体上放一进度条,一个Timer控件,一个按钮 代码如下 Option Explicit Private Sub Command1_Click()ProgressBar1.Value = 0 ProgressBar1.Max = 100 ProgressBar1.Min = 0 Timer1.Interval = 1000 Timer1.Enabled = True End Sub Private Sub Timer1_Timer()ProgressBar1.Value = ProgressBar1....
VB中怎么用LABEL做进度条?
'做着玩的小例子，仅供参考 '窗体上放两个Label，一个CommandButton Private Sub Command1_Click()Command1.Enabled = False Me.Caption = Chr(&HD5FD) & Chr(&HD4DA) & _Chr(&HB8F1) & Chr(&HCABD) & Chr(&HBBAF) & _Chr(&H43) & Chr(&HC5CC) & Chr(&HA1AD)Label1.Visible...
VB如何实现进度条
1．首先，编写一个程序框架，如下所示。2．然后您可以在这里输入各种语句，如下所示。3．然后找到两个语句块的中间部分，如下图所示。4．输入语句［Exitsub］，如下所示。5．最后，您可以运行测试并解决实现进度条的问题，如下所示。注意事项：VB背后的思想是让程序员（新手和专家）都能轻松使用它。
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 ...
如何在VBA中使用VB的其它控件 如进度条等
在Excel中，单击［视图］－－［工具栏］－－［控件工具箱］，在出现的工具箱里选择最后（或最下）的一个图标（叫做其他控件），在出现的窗口里选择你所需要的控件．进度条是：MicroSoft ProgressBar
