vb 鼠标 沙漏

MousePointer = 11

这么设置之后 鼠标变成沙漏了 可为什么还能点击?
如何设置成 变成沙漏 无法点击的状态
不改变 command1.Enabled 的属性

在鼠标指针越过窗体或对话框上的控件时，为了指出功能上的改变，可以使用该属性。沙漏标形状设置值 (11) 是很有用的，用来指示用户需要等待过程或操作的完成。

注意 如果应用程序调用 DoEvents，那么 MousePointer 属性在经过 ActiveX 部件时可能暂时地改变。

在 onclick事件中判断一下 if MousePointer <> 11 then 点击事件 end if

沙漏状就是要你继续等待，后台还没有完全启动好！如果一直都这样的话，建议重装系统！ 如果对你有帮助，劳驾点下五星采纳，祝您游戏愉快！记得采纳哦~

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息！