[原创]新突破!自定义增加EXCEL 的一些事件的DLL.

stanleypan

对于Private Sub Workbook_Open()等事件,其实这些事件也是代码写在:EXCEL.EXE里面.从Object Browser里面可以查到:

Library        Class                Member

Excel         Workbook             Open

在WINDOWS下事件是由消息驱动来产生的.

所以通地子类化,钩住相关消息可以自定义一件事件.

对于EXCEL中不支持MouseMove,MouseUp,WheelMoved等等事件.

特做了此DLL.

缺点是占用CPU比较多.

在公司无法上传附件,看来只能回家放上去了.

CHiZHNiQ.zip (20.36 KB, 下载次数: 130)

2007-4-4 18:47 上传

点击文件名下载附件
自定义增加EXCEL 的一些事件的DLL.

[此贴子已经被作者于2007-4-4 20:09:53编辑过]

stanleypan

Option Explicit
Dim WithEvents sh As MouseHook.cSystemHook
Dim WithEvents Wb As Excel.Workbook   '= Dim WithEvents Wb As Workbook
Private Sub sh_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
Application.Caption = "X:" & x & ";" & "Y:" & y & " " & ActiveWindow.RangeFromPoint(x, y).Address
ActiveWindow.RangeFromPoint(x, y).Activate
End Sub
Private Sub sh_KeyDown(KeyCode As Integer, Shift As Integer)
Debug.Print "KeyDown:" & KeyCode & "; " & Shift; ""

End Sub
Private Sub sh_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
On Error Resume Next
If Button = 1 Then
   Debug.Print "你按了左键"
End If
If Button = 2 Then
   Debug.Print "你按了右键"
End If   '
If Button = 4 Then
   Debug.Print "你按了中键"
End If
End Sub
'写入Workbook事件中相当不稳定.
Sub StartHook()
Set sh = New cSystemHook
sh.SetHook
End Sub
Sub StopHook()
sh.RemoveHook
Set sh = Nothing
End Sub

Private Sub sh_MouseUp(Button As Integer, Shift As Integer, x As Single, y As Single)
Debug.Print "Mouse Up:" & Button & "; " & Shift; ""
End Sub

Private Sub sh_WheelMoved(Button As Integer, Shift As Integer, x As Single, y As Single)
Debug.Print "WheelMoved:" & Button & "; " & Shift; ""
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
On Error Resume Next
sh.RemoveHook
Set sh = Nothing
End Sub
Private Sub Workbook_Open()
Set sh = New cSystemHook
sh.SetHook
End Sub

Total_min

老版主总有新东西，学习哟！

[em10][em10][em10]

冰山上的来客

使劲看看啊。

冰山上的来客

下载后打开文件，要重新引用那个*.dll文件才能用的。

yuanzhuping

下来学习学习。

f_qc

学习学习

Rowen

不错不错, 试过很好.

三戒

版主的研究精神值得学习！

dgwdgw

真实厉害，要好好学习学习