问将Screen.MousePointer设置为HourGlass对启动没有影响
EN

Stack Overflow用户

提问于 2013-12-28 03:45:25

回答 2查看 3K关注 0票数 0

我正在修复一个在Form_Load事件中有大量工作的旧VB6应用程序。因此，在用户双击应用程序后，它需要几秒钟才能真正出现。

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

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

当用户双击应用程序时，我该如何显示沙漏？

发布于 2013-12-28 16:32:14

在调用表单之前，设置screen.mousepointer=11

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

票数 0

发布于 2013-12-31 20:06:38

你需要允许表单加载，在此之前你不能做任何GUI的事情。使用计时器运行您的初始化代码，并在此过程中将鼠标显示为沙漏，或显示带有进度条的闪屏。

http://www.vb6.us/tutorials/multiple-form-splash-screen-tutorial

票数 0

页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持

原文链接：

https://stackoverflow.com/questions/20806843

复制

相似问题

问将Screen.MousePointer设置为HourGlass对启动没有影响EN