怎么解决vb窗口等待或者白屏啊，希望大家帮忙啊

来源：百度知道 编辑：UC知道 时间：2024/09/24 04:19:44
我的程序运行后主要处理后台的数据库操作，因为数据量比较大，可能要10多分钟，一旦中途用鼠标或者程序激发其他事件的时候，主界面就会出现界面死掉的假象，或者白屏，待执行完成后又恢复了正常，请问各位高手有什么好的解决办法吗？谢谢了啊！

Private Declare Function GetInputState Lib "user32" () As Long
'该API用来判断是否存在任何待决（等待处理）的鼠标或键盘事件

private sub 你处理数据库的函数()
'里面肯定会有循环
do while xx
if GetInputState then doevents
'以上的代码是用来转让控制权，以便让操作系统处理其它的事件。
'你处理数据的程序
loop

end sub

'如果满意我的回答,请采纳,谢谢
'如有不解之处,请给我发消息

修改一下鼠标的显示模式
Screen.MousePointer = vbHourglass
运行完以后
Screen.MousePointer = vbDefault
在对数据库进行检索的过程中可以把画面上的按钮和对话框等控件Lock柱。一般的控件都有Lock属性。设成ture就可以了。

经常增加doevent语句，让Windows可以重绘界面。

做一个loading界面