vb 如何实现鼠标变沙漏的同时点窗体上的控件不起作用！

显示全部楼层 · 2011-9-27 11:14:17

个人认为现在的计算机要执行好长时间的程序，应该是程序不够精炼或者确实比较大，若属后者，可使用执行进度条或者采用延时，若是可以将功能分开，可采用DDE技术，将突发式的大量耗占资源的模块单独作为一个后台程序，否则你的程序运行起来就老火了。代码不够精炼通常是运行大的循环时会出现这种情况，要注意合理采用算法。...

千问 · 2011-9-27 11:14:17

你自己找一个想要作为指针的ICO图标修改窗体的mouseicon 属性为上面找到的图标文件把mousepointer属性改成最后一个 99-custom 运行窗体就可以了...

千问 · 2011-9-27 11:14:17

“一段代码要执行好长时间”这是不应该的，应该改进算法，进行优化，实在不行就加进度条，如果按你的要求做出来，用户以为死机了呢。...

千问 · 2011-9-27 11:14:17

这个很简单，就是稍显麻烦在每个控件click事件里首行添加一段代码：if me.mousepointer=11 then exit sub...

千问 · 2011-9-27 11:14:17

Private Sub Command2_Click()Dim i As Object'下面的代码让所有的控件变为不可用For Each i In Mei.Enabled = FalseNext'下面的代码让所有的控件变为可用For Each i In Mei.Enabled = TrueNextEnd Sub...