[分享]双击工具栏空白处禁止自定义弹出(36、39楼)

zbs112 · 发表于 2006-8-21 17:48

AwdngEDq.rar (12.85 KB, 下载次数: 63)

[此贴子已经被作者于2006-9-8 11:10:09编辑过]

zbs112 · 发表于 2006-8-21 20:29

搜索了论坛，不知道这下面的API是不是用在这方面

Option Explicit
'模块代码
Public Declare Function SetWindowsHookEx Lib "user32" Alias "SetWindowsHookExA" (ByVal idHook As Long, ByVal lpfn As Long, ByVal hmod As Long, ByVal dwThreadId As Long) As Long
Public Declare Function UnhookWindowsHookEx Lib "user32" (ByVal hHook As Long) As Long
Public Declare Function CallNextHookEx Lib "user32" (ByVal hHook As Long, ByVal ncode As Long, ByVal wParam As Long, lParam As Any) As Long
Public Const WH_MOUSE_LL = 14
'鼠标消息
Public Const WM_RBUTTONDOWN = &H204
Public Const WM_RBUTTONUP = &H205
Public lHook(1) As Long
'鼠标钩子
Public Function CallMouseHookProc(ByVal code As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
If wParam = WM_RBUTTONDOWN Then
   CallMouseHookProc = 1
End If
If wParam = WM_RBUTTONUP Then
   CallMouseHookProc = 1
End If
If code <> 0 Then
   CallMouseHookProc = CallNextHookEx(0, code, wParam, lParam)
End If
End Function

zbs112 · 发表于 2006-8-22 09:58

1楼的问题，盼解。

VLE · 发表于 2006-8-22 10:35

CommandBars.DisableCustomize = True

zbs112 · 发表于 2006-8-22 10:57

你好,VLE!

有如下图的错误提示

QnBRwxLj.rar (12.77 KB, 下载次数: 31)

VLE · 发表于 2006-8-22 12:09

Application.CommandBars.DisableCustomize = True

清风_ll · 发表于 2006-8-22 12:18

该属性用于2003中,XP中记得好象也有,2000或以下不可用.

zbs112 · 发表于 2006-8-22 12:40

该属性在2000或以下是不可用.

不知道有没有其他的方法可实现？

zbs112 · 发表于 2006-8-22 22:16

1楼的问题，继续求助中......

zbs112 · 发表于 2006-8-23 12:35

自己做不来，只好再次求助。

		自动登录	找回密码
密码			免费注册