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

zbs112 · 发表于 2006-9-7 12:50

'我想把下面的预览列示在第2行自定义上，不知道要怎么修改？
      Set BarCtlBtn = zbs112.Controls.Add(Type:=msoControlButton)
        With BarCtlBtn
            .Style = msoButtonIconAndCaption
            .Caption = "预览"
            .FaceId = 2517
            .BeginGroup = True
            '.OnAction = "Macro_Look"
        End With

OtoAdRiw.rar (16.97 KB, 下载次数: 19)

nawong · 发表于 2006-9-7 13:45

QUOTE:

以下是引用button在2006-9-7 12:50:48的发言：

将HOOK或者子类化技术应用于VBA中的确会出现程序不响应的问题，这个问题在非模式窗体里也非常容易出现，最好是运行程序时不要打开VBE窗口，可能会好一些。

確實是這樣，我在未曾打開過VBE時也是可以运行的，但一打開過VBE，再回來執行時，就不响应了，不過若此時再重打開一個EXCEL實例--關掉，就又可以了。

zbs112 · 发表于 2006-9-7 13:57

原来是这样分为2行显示的自定义

tXS64hCF.rar (17.82 KB, 下载次数: 15)

zbs112 · 发表于 2006-9-7 16:22

如题问题，在版主BUTTON的精心打造下，终于完工！

hOiDjzDr.rar (18.14 KB, 下载次数: 25)

zbs112 · 发表于 2006-9-7 19:30

同样的代码和API（如本楼的附件）

在运行程序时，没有打开VBE窗口，当单击或双击自定义的菜单空白处时：

1）有时会出现程序不响应，有时却可正常操作。

2）当出现程序不响应时，点击任务栏上该EXCEL(2次)，然后又可以正常操作了。

不知道有完善的方法吗？

FOPOD0si.rar (25.81 KB, 下载次数: 13)

[此贴子已经被作者于2006-9-7 21:05:56编辑过]

丸究阵引 · 发表于 2006-9-7 22:32

thisworkbook

Private Sub Workbook_BeforeClose(Cancel As Boolean)
Application.OnDoubleClick = "" '取消
End Sub

Private Sub Workbook_Open()
Application.OnDoubleClick = "temp" '加载
End Sub

Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean)
SendKeys "{F2}" '实现单元格双击
End Sub

模块
Sub temp()

End Sub

zbs112 · 发表于 2006-9-7 22:42

丸究阵引，你好！

能用楼上的附件，把你给的代码加进文件做个示例，好吗？

丸究阵引 · 发表于 2006-9-7 22:54

blrMWuPW.rar (25.3 KB, 下载次数: 30)

qee用 · 发表于 2006-9-7 22:59

OnDoubleClick!!!
又一个隐藏的事件.

stanleypan · 发表于 2006-9-7 23:14

另一种思路:

http://club.excelhome.net/viewthread.php?tid=187384

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

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

[分享]双击工具栏的空白处禁止自定义弹出

[求助]还是不稳定，请版主修改完善