还是不能让它无效!!!请看清题目!!~~~~~Private Sub Form_DblClick() MsgBox "F" End Sub我改了自定义的鼠标形状,可是双击还是不行~!! 而且我发现使用了vbNodrop,再用漏斗的MouseIcon时,将会始终显示一个“圈里带杠”的不能操作的鼠标符号,MouseIcon被屏蔽了~
我好象明白你的意思了,你是想让程序不响应鼠标事件是吧! 程序是否可以响应鼠标的输入与鼠标指针的形状无关。 无论鼠标指针是什么形状,只要鼠标是有效的,那么系统就会响应鼠标的。你想禁止鼠标可以这样: Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long' 使用鼠标无效 EnableWindow Me.hwnd, 0' 恢复鼠标 EnableWindow Me.hwnd, 1 另外, "而且我发现使用了vbNodrop,再用漏斗的MouseIcon时,将会始终显示一个“圈里带杠”的不能操作"这是因为VB总是依据mousepointer的值来决定鼠标指针样式的。只有当mousepointer为99时,才使用mouseicon设置的指针。不知这回你满意否?如我理解的不对,可再论!
然后设置mouseicon属性为你想要的图标文件
MsgBox "F"
End Sub我改了自定义的鼠标形状,可是双击还是不行~!!
而且我发现使用了vbNodrop,再用漏斗的MouseIcon时,将会始终显示一个“圈里带杠”的不能操作的鼠标符号,MouseIcon被屏蔽了~
程序是否可以响应鼠标的输入与鼠标指针的形状无关。
无论鼠标指针是什么形状,只要鼠标是有效的,那么系统就会响应鼠标的。你想禁止鼠标可以这样:
Private Declare Function EnableWindow Lib "user32" (ByVal hwnd As Long, ByVal fEnable As Long) As Long' 使用鼠标无效
EnableWindow Me.hwnd, 0' 恢复鼠标
EnableWindow Me.hwnd, 1
另外, "而且我发现使用了vbNodrop,再用漏斗的MouseIcon时,将会始终显示一个“圈里带杠”的不能操作"这是因为VB总是依据mousepointer的值来决定鼠标指针样式的。只有当mousepointer为99时,才使用mouseicon设置的指针。不知这回你满意否?如我理解的不对,可再论!