7,763
社区成员
发帖
与我相关
我的任务
分享help me ~~~~help me ~~~~help me ~~~~help me ~~~~help me ~~~~
这段程序总是出错？当在程序运行期间按mouse时，进度条就会复位，，why?????
progressbar1.max=10000
for i=1 to 10000 step 1
ProgressBar1.Value =i
doevents
next i
progressbar1.max=10000
for i=1 to 10000 step 1
ProgressBar1.Value =i
doevents
next i
...全文
请发表友善的回复…
发表回复
cow_boy 2001-09-20
- 打赏
- 举报
thanks....
ozw 2001-09-20
- 打赏
- 举报
哪个form？是有ProgressBar的form?那就不能写在form_load中了
你在调用这个form的程序中写这段代码
比如
Private Sub Command1_Click()
Dim i As Integer
Load Form2
Form2.Show
Form2.ProgressBar1.Max = 10000
For i = 1 To 10000 Step 1
Form2.ProgressBar1.Value = i
DoEvents
Next i
End Sub
你在调用这个form的程序中写这段代码
比如
Private Sub Command1_Click()
Dim i As Integer
Load Form2
Form2.Show
Form2.ProgressBar1.Max = 10000
For i = 1 To 10000 Step 1
Form2.ProgressBar1.Value = i
DoEvents
Next i
End Sub
ozw 2001-09-20
- 打赏
- 举报
form_load
cow_boy 2001-09-20
- 打赏
- 举报
那可以写到什么地方啊。
我要求form一出来就执行程序啊。
我要求form一出来就执行程序啊。
ozw 2001-09-20
- 打赏
- 举报
那当然会出毛病了！
你每点一下Form，就会触发Form_Activate()
写到别的地方
你每点一下Form，就会触发Form_Activate()
写到别的地方
cow_boy 2001-09-20
- 打赏
- 举报
Private Sub Form_Activate()
call my_stat()
End Sub
call my_stat()
End Sub
ozw 2001-09-20
- 打赏
- 举报
写在哪个事件里面？？？
cow_boy 2001-09-20
- 打赏
- 举报
看一下这段程序
http://www.csdn.net/expert/TopicView.asp?id=295622
http://www.csdn.net/expert/TopicView.asp?id=295622
hhdsq 2001-09-20
- 打赏
- 举报
就这段程序而言，没有问题
zork 2001-09-20
- 打赏
- 举报
看看鼠标事件有什么特殊的东西。
liuchunpeng 2001-09-20
- 打赏
- 举报
不明白！
kkttcsd 2001-09-20
- 打赏
- 举报
没毛病，我用的挺好的
