单纯得变成漏斗形状还是可以按下来触发事件处理。这个问题该怎么搞好呢?MousePointer=11(是漏斗,vbHourglass)
            =12 (是不允许操作,vbNodrop,鼠标是一个黑色的圈加一杠)
我要的是漏斗并且不允许操作!!
但是这个属性又不能结合!~~~~怎么办啊?

解决方案 »

  1.   

    mousepointer=99
    然后设置mouseicon属性为你想要的图标文件
      

  2.   

    还是不能让它无效!!!请看清题目!!~~~~~Private Sub Form_DblClick()
    MsgBox "F"
    End Sub我改了自定义的鼠标形状,可是双击还是不行~!!
    而且我发现使用了vbNodrop,再用漏斗的MouseIcon时,将会始终显示一个“圈里带杠”的不能操作的鼠标符号,MouseIcon被屏蔽了~
      

  3.   

    我好象明白你的意思了,你是想让程序不响应鼠标事件是吧!
    程序是否可以响应鼠标的输入与鼠标指针的形状无关。
    无论鼠标指针是什么形状,只要鼠标是有效的,那么系统就会响应鼠标的。你想禁止鼠标可以这样:
    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设置的指针。不知这回你满意否?如我理解的不对,可再论!