[第46期] CommandBars对象模型树信息(已总结)

小fisher · 发表于 2009-4-27 00:40

我的代码也有一处疏漏，代码第89行这里：
Public Function GetSaveAsFileName() As String
　　....
oFName.hwndOwner = FindWindow("XLMAIN", Application.Caption)
oFName.hInstance = GetWindowLong(hwnd, GWL_HINSTANCE)
红色字体部分应该为oFName.hwndOwner，hwnd是开始的时候使用的，后来为了节省一个变量就直接把Excel主窗口句柄值赋给oFName.hwndOwner了，但忘了改下面那个地方

fdd · 发表于 2009-4-27 12:03

其实我第一次做好的就是在任何节点显示菜单的，是我把题目意思理解错了。我以为只管commandbar这一级（题目中说“针对……”被我误解了）。

清风_ll · 发表于 2009-4-27 16:04

原帖由 fdd 于 2009-4-27 12:03 发表
其实我第一次做好的就是在任何节点显示菜单的，是我把题目意思理解错了。我以为只管commandbar这一级（题目中说“针对……”被我误解了）。

理解还有偏差，是指仅当右击节点时才显示快捷菜单，而当右击其它地方（如空白处）不应显示该菜单。

小fisher · 发表于 2009-4-27 16:17

原帖由 小fisher 于 2009-4-18 19:01 发表
496896

1、完整显示对象集合的结构层次；
2、完成在ListView控件中显示控件的相关属性；
3 、完成快捷菜单。
在完成以上要求的前提下，添加了许多精彩的功能：
* 为节点添加相应图标；
* 预览图标或相应命令 ...
* 可拖拉的分隔条功能，功能有待完善：向右拖动后，右侧控件显示不完整。

谢谢清风版主评论，最后一个问题确实是我疏忽了，原因是开始时分隔条控件的宽度设置为了4.5，在vSplitbar类模块中直接使用这个常量代替了oLable.Width，后来可能是在设计时不小心拖动了分隔条的宽度改为了6，导致每次拖动后右侧控件宽度增加1.5，要修正这个Bug，需要将vSplitbar类模块中倒数第8行代码由
oItem.Width = oItem.Left + oItem.Width - oLabel.Left - 4.5改为
oItem.Width = oItem.Left + oItem.Width - oLabel.Left - oLabel.Width
再次感谢清风版主和fdd的抬爱，现将修正前面所说的两处问题之后的文件传上来，希望能对需要其中某些功能的人有所帮助

[ 本帖最后由小fisher 于 2009-4-27 16:24 编辑 ]

清风_ll · 发表于 2009-4-27 16:35

原帖由 小fisher 于 2009-4-27 16:17 发表

谢谢清风版主评论，最后一个问题确实是我疏忽了，原因是开始时分隔条控件的宽度设置为了4.5，在vSplitbar类模块中直接使用这个常量代替了oLable.Width，后来可能是在设计时不小心拖动了分隔条的宽度改为了6，导致每 ...

非常感谢小fisher朋友完善作品。

fdd · 发表于 2009-4-27 17:40

原帖由 清风_ll 于 2009-4-27 16:04 发表

理解还有偏差，是指仅当右击节点时才显示快捷菜单，而当右击其它地方（如空白处）不应显示该菜单。

版主设的“陷阱”挺多的呀！下次得小心百倍了啰。

lzzgzby · 发表于 2009-4-27 18:39

感谢小fisher 提供的几近完美的示例。
惊叹于小fisher VBA的深厚功底！
高山仰止，向你学习。
有些语句还有点不是很明白，如果能够加上注释那就跟完美了！

清风_ll · 发表于 2009-4-28 16:32

原帖由 fdd 于 2009-4-27 17:40 发表

版主设的“陷阱”挺多的呀！下次得小心百倍了啰。

呵呵，是我没说清楚，以后会注意尽量将问题描述清楚。

Scarlett_88 · 发表于 2009-4-29 07:49

我晕哪，我的电脑不识别中文

linpansheng · 发表于 2009-5-1 18:34

看到小fisher高手也来，99、88都来参加了，我也要好好努力学习，有时间就好好研究。对Treeview这个不熟悉，希望这道竞赛题能带我去好好理解

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

[Excel 程序开发] [第46期] CommandBars对象模型树信息(已总结)

本帖子中包含更多资源

回复 14楼小fisher 的帖子

浏览过的版块

[Excel 程序开发] [第46期] CommandBars对象模型树信息(已总结)

本帖子中包含更多资源

回复 14楼 小fisher 的帖子

浏览过的版块

回复 14楼小fisher 的帖子