Question

我正在修复一个在Form_Load事件中有大量工作的旧VB6应用程序。因此，在用户双击后，应用程序实际显示需要几秒钟。

我尝试在Form_Load的顶部设置Screen.MousePointer = vbHourGlass，但它没有任何效果。

我也试过添加DoEvents和Me.Refresh，也无济于事。因此，用户没有迹象表明在此期间发生了任何事情。

如果用户双击应用程序，我该怎么做才能显示沙漏？

Answer 1

在致电表格之前，请设置screen.mousepointer = 11

screen.mousepointer=11
myform.show
screen.mousepointer=0

Answer 2

你需要允许表单加载，你不能做任何GUI的东西，直到发生。使用计时器运行启动代码，并在此过程中将鼠标显示为沙漏，或者使用进度条显示启动画面。