一步步教你DIY 你的VBE对话框

57楼增加可复制的版本_ldy经常使用VBA的朋友可能经常感觉到系统的对话框特别别扭，拿工程引用对话框来说吧，其对话框实在不看着不舒服。
vbe00.GIF (22.17 KB)
2009-7-27 12:12


长期以来，老朽一直忍受着。相信你也是如此忍受着……
多希望是这个样子： VBE.gif (28.47 KB)
2009-7-27 12:12


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

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


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

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



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

C.  调整ListBox的宽度和高度:在图示位置，找到ListBox,然后将显示在顶端的宽度、高度数据由原来的162、123修改成262、223。OK
vbe03.GIF (22.5 KB)
2009-7-27 12:38



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



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


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

以下是操作录像，与您分享！
diy.gif (515.85 KB)
2009-7-27 12:40



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

这是一个修改之后的文件，你可以下载，然后覆盖C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052下的同文件即可
覆盖之前，必须关闭EXCEL和WORD等与VBA相关的应用。
VBE6INTL.rar (25.85 KB) VBE6INTL.rar (25.85 KB)
下载次数: 164
2009-7-27 13:04


效果图
DIYOK.GIF (27.5 KB)
2009-7-27 13:04



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

果然好用，还可以添加控件，修改控件类型。
这下复制引用地址就方便多了。:* :*

000.gif (85.46 KB)
2009-7-30 12:49



改好的 VBE6INTL.DLL
VBE6INTL.rar (30.5 KB) VBE6INTL.rar (30.5 KB)
下载次数: 64
2009-7-30 12:49