Question

VB6.0 程序主窗口假死

一旦点击command1后，整个主窗口就卡掉了，其他按钮和timer中控制板面一个lable1.caption循环改变的都卡死，窗口也拖动不了，但是程序确实在运行，等一段时间程序运行结束弹出设定的msgbox后主窗口才恢复正常，此时timer控制的label也重新开始循环改变。求解如何不假死
循环量很小，但是该按钮程序1200多行，已经大量加上doevents了，还是不能根本上解决
If Label14.Caption <> "文件正在生成中" Then
Label14.Caption = "请输入产品信息"
End If
If Label14.Caption = "请输入产品信息" Then
Label13.Caption = Label13.Caption & "~"
If Label13.Caption = " ~~~~" Then
Label13.Caption = "~"
End If
If Label13.Caption = "~~~~~" Then
Label13.Caption = "~"
End If
End If
If Label14.Caption = "文件正在生成中" Then
Label13.Caption = Label13.Caption & "."
If Label13.Caption = "...." Then
Label13.Caption = "请等待."
End If
If Label13.Caption = "请等待...." Then
Label13.Caption = "请等待."
End If
End If
If Label14.Caption = "完成！" Then
Label13.Caption = ""
End If
这是timer中的语句

Answer 1

应该是你在timer中的循环语句有问题,尝试添加doevents

追问

timer中的语句已经贴出来，但是那个按钮没按的时候，label的显示是能能根据timer0.3秒做一次的，但是那个按钮一按，主程序开始运行，timer以及主窗口就都假死了

Answer 2

大批量进行控件属性操作是没什么效率的，建议看看代码优化方面的文章。

追问

问题是，这种版面显示程序运行中的动画，网上流行的是改变某个图形控件的宽度，这应该要比我改变lable好不到哪去吧

追答

可以用GIF，那样效率高很多。

追问

我试过，但是VB的Image控件放上去的gif根本不动啊。。。。

追答

你找下GIF使用的方法，或者直接用timer+image变动，也比你原来的方法效率高很多。

追问

现在主要问题是主窗口假死，不仅仅timer的工作问题，程序运行时连窗口的拖动都做不到，要等到程序运行结束窗口才恢复正常

Answer 3

在大运算量的程序循环处加doevents

追问

循环量很小，但是该按钮程序1200多行，已经大量加上doevents了，还是不能根本上解决