ExcelHome技术论坛

 找回密码
 免费注册

QQ登录

只需一步,快速开始

快捷登录

搜索
EH技术汇-专业的职场技能充电站 妙哉!函数段子手趣味讲函数 Excel服务器-会Excel,做管理系统 效率神器,一键搞定繁琐工作
HR薪酬管理数字化实战 Excel 2021函数公式学习大典 Excel数据透视表实战秘技 打造核心竞争力的职场宝典
让更多数据处理,一键完成 数据工作者的案头书 免费直播课集锦 ExcelHome出品 - VBA代码宝免费下载
用ChatGPT与VBA一键搞定Excel WPS表格从入门到精通 Excel VBA经典代码实践指南
查看: 12467|回复: 26

[分享] 用ResHacker打造EH品牌VBE引用对话框

[复制链接]

TA的精华主题

TA的得分主题

发表于 2009-7-30 17:03 | 显示全部楼层 |阅读模式
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
本帖已被收录到知识树中,索引项:VBE工具
这是在继 http://club.excelhome.net/thread-464075-1-1.html 之后的另外一个修改VBE工程库引用对话框的办法。

下面,老朽用录像来演示,如何一步步打造EH品牌的对话框。

Step 1、将论坛这个LOgo下载到本地,然后转换成BMP格式,备用。
Step 2、你得需要一个可视化修改工具,就是ResHacker。这是附件,供下载 HA-reshacker34079-LDR.zip (545.76 KB, 下载次数: 17082)
     解压缩到一个目录之后,就直接打开执行文件ResHacker。

OK,剩下的就看录像。边看录像边看老朽的文字叙述。
Step 3、用ResHacker打开C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052\VBE6INTL.DLL
Step 4、操作,添加一个新资源,将刚才准备好的BMP文件添加进这个DLL文件中,资源名称取1222(因为原来已有的位图有是1220、1221这样命名的,我们就延续它们的规则),语言也和原有的资源一致,取2052。
Step 5、切换到左边的导航栏,选中对话框,并选择4040对话框,展开,点中2052,右边就会出来对话框的样子和脚本,在第5行,将原来的9点阵字体改成11(9点阵太小),然后点编译脚本。这时对话框就自动扩展了。
Step 6、用鼠标拖拽,使对话框扩大。然后用鼠标拖动各控件,重新排版。
Step 7、插入一个控件,在控件编辑器中,选择为图片类型,标题处输入刚才的位置索引号#1222,#不要漏了,然后选择一个SUNKEN属性,让图片有个凹框,看起来舒服点。确定之后,你就能实时看到图片在对话框中了,放在合适的位置就OK。这样EH品牌的对话框就有了雏形了。
Step 8、改造那个框架(结果),将其类型进行修改,改成文本框,将类名称改成Edit,先确定。再次编辑这个文本框,加上一个WS_BORDER属性,让文本框呈凹陷状。并调整宽度、高度和位置。经过如此打造,你在列表框中光标在的行所对应的工程库的名称就显示在文本框中了,而且现在你可以选择这些文本(之前你是没有选择的,嘻嘻,强吧!),为我们在编写代码进行说明引用库时提供了很大的方便。(以前我都是截图,然后再对照输入,晕死吧。现在可爽了!)
Step 9、同样的办法,将两个Label也加上WS_BORDER属性,并调整宽度、高度和位置。
Step 10、调整各控件的位置,重新排版,直到你满意为止。
Step 11、所有的调整工作结束之后,点编译脚本,然后保存,退出ResHacker。前面忘记交待了,DIY之后你必须退出所有的OFFICE应用,WORD、EXCEL、ACCESS、PPT等。)否则没有办法保存的。
Step 12、打开Excel(或WORD),切换到VBE,再次打开工具-引用 对话框,是不是OK了,ExcelHome品牌的对话框就呈现是你的眼前。
ExcelHome.gif

评分

1

查看全部评分

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-30 17:09 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
由于附件大小限制,录像放在二楼!
123.gif

TA的精华主题

TA的得分主题

发表于 2009-7-30 17:11 | 显示全部楼层
顶一个!

照这个思路扩展下,可以更多的东东了。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-30 17:13 | 显示全部楼层
友情提示:修改属性时,选中状态为黄色,当你需要选中其它属性时,先选中一个非黄色的,再点一下,当它恢复成未选 中状态,然后再用↑↓光标移动到底部,选 中需要的属性即可。

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-30 17:18 | 显示全部楼层
VBE6INTL.rar (26.91 KB, 下载次数: 181)
前面介绍了渔,这里给条鱼。
这是老朽DIY出来的成果!
此鱼为 Office 2003 版

Office 2007版的在15楼

[ 本帖最后由 zldccmx 于 2009-7-31 01:20 编辑 ]

TA的精华主题

TA的得分主题

发表于 2009-7-30 17:21 | 显示全部楼层
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用  · 内置多项VBA编程加强工具       ★ 免费下载 ★      ★使用手册
不错。占个位看看

TA的精华主题

TA的得分主题

发表于 2009-7-30 17:30 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
不错,我先借用一下

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-30 17:30 | 显示全部楼层
Step 9中,将两个Label也一并改造成Edit型,同样也可以实现复制、粘贴了。
5楼的“鱼”可以直接“食用”,已经一并改造OK了

TA的精华主题

TA的得分主题

 楼主| 发表于 2009-7-30 17:32 | 显示全部楼层
将两个Label的类名称直接修改成 Edit (文本框)

TA的精华主题

TA的得分主题

发表于 2009-7-30 17:36 | 显示全部楼层
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件       ★免费下载 ★       ★ 使用帮助
跟着老朽顶贴,呵呵,老朽出品,样样精品
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

手机版|关于我们|联系我们|ExcelHome

GMT+8, 2024-12-22 11:57 , Processed in 0.037681 second(s), 14 queries , Gzip On, MemCache On.

Powered by Discuz! X3.4

© 1999-2023 Wooffice Inc.

沪公网安备 31011702000001号 沪ICP备11019229号-2

本论坛言论纯属发表者个人意见,任何违反国家相关法律的言论,本站将协助国家相关部门追究发言者责任!     本站特聘法律顾问:李志群律师

快速回复 返回顶部 返回列表