一步步教你DIY 你的VBE对话框 57楼增加可复制的版本_ldy

zldccmx · 发表于 2009-7-27 12:12

经常使用VBA的朋友可能经常感觉到系统的对话框特别别扭，拿工程引用对话框来说吧，其对话框实在不看着不舒服。

长期以来，老朽一直忍受着。相信你也是如此忍受着……
多希望是这个样子：

有没有办法，我们自己来改造呢？
答案是肯定的。
终于有一天，老朽实在是无法忍受了，经过摸索，老朽找到了问题的根源，经过老朽的改造，现在已经是这个样子了。
有人会问，这是怎么实现的。下面，老朽将自己的DIY经过与大家分享。
首先：你必须得有一款修改DLL的工具。老朽用的是eXeScope。
这个工具网上有，老朽提供链接，你可以自行下载http://sx.jackdown.net/UploadFil ... Scope650-moming.rar
同时，老朽也是刚刚下载的。　在此老朽一并共享

eXeScope650-moming.rar (487.11 KB, 下载次数: 1172)

Office 2003版的用户请在5楼下载老朽修改成功的作品
Office 2007版的用户请在14楼下载老朽修改成功的作品

[ 本帖最后由 ldy 于 2009-7-30 12:55 编辑 ]

zldccmx · 发表于 2009-7-27 12:13

OK，下面，老朽带你一起开始DIY。
1、安装eXeScope650
2、之后，我们进入到C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052，这个目录下只有一个DLL文件，那就是VBE6INTL.DLL，我们先行备份。这个简单，复制、粘贴一下就OK，以防不测。
3、选定DLL文件，右键，用 eXeScope 编辑资源

4、在eXeScope窗口，找到对话框，展开，由于不知道具体是哪一个对话框，我们可以逐一展开各对话框，终于在4040对话框中看到了熟悉的字眼“可使用的引用(&A):”，这不就是我们要修改的对话框的标题么？对，就是它!
5、目标找到了，现在我们就要开始修改了。我们希望修改的只有一个：修改Listbox的高度和宽度。尽管我们修改的属性比较单一，但是牵涉到的地方很多，设计过窗体的都知道。
6、那么我们将要修改的细节有：
a. 增加整个窗体的高度和宽度(这个简单)
b. 调整其它控件的位置，这里将牵涉到多个控件。还是用图片说话吧。
c. 我们就将ListBox的宽度、高度各增加100为例

[ 本帖最后由 zldccmx 于 2009-7-27 12:30 编辑 ]

zldccmx · 发表于 2009-7-27 12:14

DIY正式开始
7、       手术开始：
A.       退出EXCEL。
B.       增加窗体的宽度和高度，在原来的基础上各加100，由原来的287、204分别修改为387、304。退出eXeScope，当然了，必须得允许保存。
　　　启动EXCEL，切换到VBE，是不是这个样子？

OK，这说明我们的第一步成功。
关闭Excel,重新用eXeScope打开C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052\VBE6INTL.DLL。

C. 调整ListBox的宽度和高度:在图示位置，找到ListBox,然后将显示在顶端的宽度、高度数据由原来的162、123修改成262、223。OK

D. 调整各按钮的LEFT：从图示位置找到对应按钮，以“确定”按钮为例：将它的X坐标值由原来的230修改为330，即可。这里的X坐标实际就是窗体中的Left属性。依次调整其它按钮的X坐标，各加100就OK。

E. 调整框架的Top与WIDTH：在图示位置找到GroupBox,将其Y坐标(TOP属性)由原来的154修改为254，宽度也修改为374。然后再修改GroupBox内部的几个控件的TOP属性，Y坐标各加100。本例中，GroupBox内部有4个Label控件，即下图红色框标识的部分。

F．最后修改ListBox右边的两个箭头以及“优先级”的X坐标，在原来的基础上直接加100。
G．存盘，退出eXeScope。DIY结束。
重新启动Excel，切换到VBE，再打开工具-引用，对话框是不是OK了？

[ 本帖最后由 zldccmx 于 2009-7-27 12:38 编辑 ]

zldccmx · 发表于 2009-7-27 12:14

以下是操作录像，与您分享！

[ 本帖最后由 zldccmx 于 2009-7-27 12:40 编辑 ]

zldccmx · 发表于 2009-7-27 12:41

这是一个修改之后的文件，你可以下载，然后覆盖C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052下的同文件即可
覆盖之前，必须关闭EXCEL和WORD等与VBA相关的应用。

VBE6INTL.rar (25.85 KB, 下载次数: 516)
效果图

[ 本帖最后由 zldccmx 于 2009-7-27 13:04 编辑 ]

LS115115 · 发表于 2009-7-27 12:47

坐沙发,好东西,一起分享,感谢老朽

zldccmx · 发表于 2009-7-27 13:11

呵呵，经过自己动手修改之后，你　是不是很有成就感？

哈哈，你完全可以自豪：“我都可以修改MS的东东了！！”

对，这就是DIY的乐趣！

zldccmx · 发表于 2009-7-27 13:31

从此以后，只要你看着不顺眼的对话框都　可以尝试这样来修改
不过有一条得记住了，一定要先备份，万一改砸了还可以手动恢复

hanter007 · 发表于 2009-7-27 14:16

这个好,有时候真的看不惯默认的界面...

bibisin · 发表于 2009-7-27 19:03

姜还是老的辣啊^_^
谢谢老朽共享

[ 本帖最后由 bibisin 于 2009-7-27 19:05 编辑 ]

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

[分享] 一步步教你DIY 你的VBE对话框 57楼增加可复制的版本_ldy

评分