vb 鼠标 沙漏

来源：百度知道 编辑：UC知道 时间：2024/06/24 23:57:54
MousePointer = 11

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

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

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

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

声明一个boolean变量,用来表示鼠标的状态，放一个timer控件来判断鼠标是否是沙漏。
在点击事件中加一个boolean变量的判断.