lnxxnchzyl 发表于 2009-9-15 12:19:31

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

57楼增加可复制的版本_ldy经常使用VBA的朋友可能经常感觉到系统的对话框特别别扭，拿工程引用对话框来说吧，其对话框实在不看着不舒服。
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555751&k=2e84f2534920fc7ef11e5a7b04dadd0f&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif vbe00.GIF (22.17 KB)
2009-7-27 12:12


长期以来，老朽一直忍受着。相信你也是如此忍受着……
多希望是这个样子： http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555750&k=8f3419ed14acd9b130f3b28d2ccee9fa&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif VBE.gif (28.47 KB)
2009-7-27 12:12


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

lnxxnchzyl 发表于 2009-9-15 12:19:50

OK，下面，老朽带你一起开始DIY。
1、      安装eXeScope650
2、      之后，我们进入到C:\Program Files\Common Files\Microsoft Shared\VBA\VBA6\2052，这个目录下只有一个DLL文件，那就是VBE6INTL.DLL，我们先行备份。这个简单，复制、粘贴一下就OK，以防不测。
3、      选定DLL文件，右键，用 eXeScope 编辑资源
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555764&k=d445c8f5957ee79b9e3312f4989999a1&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif vbe01.GIF (23.26 KB)
2009-7-27 12:30


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

lnxxnchzyl 发表于 2009-9-15 12:20:07

DIY正式开始
7、      手术开始：
A.      退出EXCEL。
B.      增加窗体的宽度和高度，在原来的基础上各加100，由原来的287、204分别修改为387、304。退出eXeScope，当然了，必须得允许保存。
　　　启动EXCEL，切换到VBE，是不是这个样子？
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555770&k=b0e382fb59b6e4889515fcaa2594fcff&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif 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
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555771&k=e5f707fdad0992d4ff844326b8e246f3&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif vbe03.GIF (22.5 KB)
2009-7-27 12:38



D.      调整各按钮的LEFT：从图示位置找到对应按钮，以“确定”按钮为例：将它的X坐标值由原来的230修改为330，即可。这里的X坐标实际就是窗体中的Left属性。依次调整其它按钮的X坐标，各加100就OK。
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555772&k=141354b25916a69567eef540315215f3&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif 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控件，即下图红色框标识的部分。
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555773&k=9bb52ac1324dc8833d7acb0bc5b2923a&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif vbe05.GIF (29.44 KB)
2009-7-27 12:38


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

lnxxnchzyl 发表于 2009-9-15 12:20:37

以下是操作录像，与您分享！
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555774&k=90ba174e55a99439e33e870eb5cb6563&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif diy.gif (515.85 KB)
2009-7-27 12:40



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

lnxxnchzyl 发表于 2009-9-15 12:20:56

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


效果图
http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=555787&k=108af28c0324cfee2cdbbe95f683f17c&t=1252988306&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif DIYOK.GIF (27.5 KB)
2009-7-27 13:04



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

lnxxnchzyl 发表于 2009-9-15 12:22:25

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

http://club.excelhome.net/images/GreenPark/attachimg.gif http://club.excelhome.net/attachment.php?aid=557727&k=1c8fc91c03fb322f26516345693ad42b&t=1252988479&noupdate=yes http://club.excelhome.net/images/attachicons/image.gif 000.gif (85.46 KB)
2009-7-30 12:49



改好的 VBE6INTL.DLL
http://club.excelhome.net/images/attachicons/rar.gif VBE6INTL.rar (30.5 KB) http://club.excelhome.net/images/attachicons/rar.gif VBE6INTL.rar (30.5 KB)
下载次数: 64
2009-7-30 12:49
页: [1]
查看完整版本: 一步步教你DIY 你的VBE对话框