Excel也可以使用任务栏图标!(提供原码式)

stanleypan · 发表于 2004-1-11 21:38

好象还没有过别人做过此种尝试,我是把VB的一些东西运用到了VBA中,想要完善可以再用 CasBoy高手的API构建VBA菜单示例程序做一下菜单的链结.注:由于Addressof 的影响,此File只能用于Excel2000以上版本.

BSFQ6H3X.rar (28.46 KB, 下载次数: 961)

Rowen · 发表于 2004-1-16 21:04

XP 试过,可以.

mingg · 发表于 2008-4-14 16:02

学习

xiaog · 发表于 2004-1-17 00:09

正确的说，应该是Excel的托盘程序。

chenjunzxc · 发表于 2009-5-10 21:03

thanks very much!

a269zya · 发表于 2009-7-9 12:21

请问stanleypan版主，托盘右键菜单建立后，怎样响应事件？

stanleypan · 发表于 2009-7-9 17:50

搞了一个简单的例子，具体请见代码。

a269zya · 发表于 2009-7-23 11:03

谢谢版主，有些地方看不懂：
为什么要用一个空白的Form2呢？为什么要用两个AddressOf呢，子程序却是同一个DialogProc
一个是用来接收托盘消息，一个是菜单消息，是这样吗？可以合并起来吗？有点混淆

Private Sub UserForm_Initialize()
......
' 'Start subclassing to process menu messages.
Call MenuBarSubclassing(hWnd)
'将DialogProc函数设置为Form2的窗口处理函数并且保存原来窗口处理函数句柄
lproc = SetWindowLong(Hwnd2, GWL_WNDPROC, AddressOf DialogProc)
End Sub
Private Sub MenuBarSubclassing(ByVal hWnd As Long)
MenuBarOldWndProc = GetWindowLong(hWnd, GWL_WNDPROC) '取得原窗口处理函数句柄
SetWindowLong hWnd, GWL_WNDPROC, AddressOf DialogProc '设置新的窗口处理函数
End Sub

stanleypan · 发表于 2009-7-23 22:11

用一个窗体UserForm1也是可以的，当然也是最简单。
用二个窗体是当时考虑可以演示更加复杂的使用以备扩充功能。

wjtsuper · 发表于 2010-7-6 00:33

我的excel没有form,只有几个控件
请问，怎样使excel开机自运行到托盘（非人工点最小化到托盘）
请教各位高手们

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

Excel也可以使用任务栏图标!(提供原码式)

点评

thanks