我两个窗体form1和form2,
form2做成了假的进程条,代码如下
Private Sub Form_Activate()
Call setPic
Call showPic
End SubPrivate Sub setPic()
Pic1.Move 0, 100, Me.Width, Me.Height / 3
Set Pic2.Container = Pic1
Pic2.AutoRedraw = True
Pic1.ScaleWidth = 1000000
Pic2.Move 0, 0, 0, Pic1.Height
Pic2.BackColor = vbRed '
End SubPrivate Sub showPic()
Dim i As Long
For i = 0 To 1000000
If i = 1000000 Then
i = 0
End If
Pic2.Width = i
DoEvents '让出CPU
Next
End Sub我在form1的一个事件中,先show form2,表示过程开始,
然后再调用一个长时间的动作,最后再卸载form2。。
代码大致如下
private sub button_click()
form2.show
call doit() '一个长时间的循环动作
unload form2
end subprivate sub doit()
dim i as long
for i=0 to 1000000
i=i+1
next
end sub我希望在这个doit()长时间的动作中,show出form2的假的进度过程让用户知道。。
可是我发现在button.click()的动作中,只能够很好的show出form2里的虚假的进度,
但是一直不能往下执行doit(),都在form2的showPic()里执行。。
请教,这个问题应该如何解决呢??怎么既能够让虚假的进度条很好允许,又能让doit()
这个动作也运行呢??希望再次得到你的帮助。。万分感谢。谢谢
解决方案 »
- Listbox 里面列表怎么样才能显示成这样 在线等~~~~
- 谁帮我写个让背景自动随机变颜色的程序啊?谢谢
- 问一下VB操作EXCEL的问题,大侠帮忙
- 全程变量的使用问题
- 那里有考勤软件完整的文档以及源程序?
- 如何捕捉声音朗读的位置?
- 那位高手有VB程序源代码,可供小弟学习参考一下(一个系统有数据库)
- 无人帮我,我就死定了,ACCESS数据库。。。。。。
- 用什么控件读取数据项用下拉条显示在里面~~送分啊!
- 在DLL中怎样识别手工加入的类(非公共类)
- PrevTab = Switch(PrevTab = 0, 1, PrevTab >= 1 And PrevTab <= Val(Txttabs.Text) + 1, PrevTab)是什么意思?
- 还是超市小票打印的问题………………
设定一个全局变量为进度值;
进度条这方有个timer,每隔段时间取这个进度值,然后显示进度;
主程序方:
开始循环前show出进度条,打开timer,
循环中间,改变全局进度值,加doevents。
循环完后,关闭timer,unload进度条。
设定一个全局变量为进度值;
进度条这方有个timer,每隔段时间取这个进度值,然后显示进度;
主程序方:
开始循环前show出进度条,打开timer,
循环中间,改变全局进度值,加doevents。
循环完后,关闭timer,unload进度条。
private sub button_click()
PictureBox.show
end sub
只是,现在我这个控制权交不回form1里,一直不能执行下一句的长时间的动作所有请教大家。。