8

我正在开发一个 Visual Basic 6 项目。当我转到项目的“引用”对话框时，其中一个引用的位置路径被切断，因此我看不到路径的结尾。有谁知道找出完整路径的方法？

4

3 回答 3

9

有两种方法。不幸的是，无论您是否需要，两者都要求您在“参考”对话框中选择（在框中打勾）感兴趣的项目。

第一种方法是打开对象浏览器窗口，然后从左上角的选择器中选择一个感兴趣的库（通常默认为 ）。当您这样做时，对象浏览器窗口最底部的详细信息窗格应显示 DLL 的完整路径。（作为奖励，它也可以用于复制/粘贴！）

第二种方法是使用记事本（或其他文本编辑器）打开 *.vbp（Visual Basic 项目）文件，然后查找 Reference= 条目。对于 Forms 上使用的组件，您还可以打开 *.frm 文件，然后再次查找 Reference= 条目。

于 2012-04-18T15:01:51.653 回答
2

这些天我没有安装 VB6 来检查如何在编辑器中进行操作，但您始终可以使用文本编辑器查看 VBP 文件。那里列出了将在对话窗口中显示的相同路径。

于 2012-04-18T15:02:13.260 回答
0

有一个相当简单的（对于程序员来说）方法可以让 VB6 引用对话框变大：

重新设计 IDE 对话框

作者：卡尔·E·彼得森 03/02/2010

...您可以使用一种工具来根据自己的喜好修改这些类型的设置。Resource Hacker 是一个免费软件实用程序，用于查看、修改、重命名、添加、删除和提取 32 位 Windows 可执行文件和资源文件中的资源。我早就发现它是探索可执行文件“胆量”（资源）的最佳工具之一。

ResHacker 提供了一个与 Classic VB 非常相似的对话框工具——您只需拖动对话框元素，调整它们的大小以适应。或者您可以编辑原始资源脚本，并在对话框设计器中观察更改。只需在树视图中打开“对话框”节点，找到要编辑的对话框，然后前往城镇。当您对新设计感到满意时，请按“编译脚本”按钮，然后执行 File | 保存以将更改写入磁盘。（请务必首先备份原始文件，当然，除非您喜欢重新安装。）

要修改 Classic VB Project-References 对话框，请在 ResHacker 中打开 VB6IDE.DLL（或 VB5IDE.DLL）文件，找到 Dialog #4040 并开始工作。...

这是此方法的结果：

在此处输入图像描述

该文章包括原始和修改形式的资源定义链接：

原来的：

4040 DIALOG 0, 0, 295, 204
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "References"
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
FONT 8, "Tahoma"
{
   CONTROL "&Available References:", -1, STATIC, SS_LEFTNOWORDWRAP | WS_CHILD | WS_VISIBLE, 7, 7, 73, 8 
   CONTROL "", 5050, LISTBOX, LBS_NOTIFY | LBS_MULTIPLESEL | LBS_OWNERDRAWFIXED | LBS_HASSTRINGS | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP, 7, 24, 193, 123 
   CONTROL "OK", 1, BUTTON, BS_DEFPUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 238, 6, 50, 14 
   CONTROL "Cancel", 2, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 238, 23, 50, 14 
   CONTROL "&Browse...", 5051, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 238, 45, 50, 14 
   CONTROL "&Help", 5052, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 238, 84, 50, 14 
   CONTROL "Result", 5055, BUTTON, BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 7, 154, 281, 43 
   CONTROL "Location:", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE, 35, 168, 32, 8 
   CONTROL "", 5053, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 75, 168, 198, 8 
   CONTROL "Language:", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE, 35, 180, 36, 8 
   CONTROL "", 5054, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 77, 180, 196, 8 
   CONTROL "&U", 4528, BUTTON, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 211, 62, 14, 14 
   CONTROL "&D", 4529, BUTTON, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 211, 96, 14, 14 
   CONTROL "Priority", -1, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 206, 82, 24, 8 
}

修改的：

4040 DIALOG 0, 0, 455, 305
STYLE DS_MODALFRAME | WS_POPUP | WS_VISIBLE | WS_CAPTION | WS_SYSMENU
CAPTION "References"
LANGUAGE LANG_ENGLISH, SUBLANG_ENGLISH_US
FONT 8, "Tahoma"
{
   CONTROL "&Available References:", -1, STATIC, SS_LEFTNOWORDWRAP | WS_CHILD | WS_VISIBLE, 7, 7, 73, 8 
   CONTROL "", 5050, LISTBOX, LBS_NOTIFY | LBS_MULTIPLESEL | LBS_OWNERDRAWFIXED | LBS_HASSTRINGS | LBS_NOINTEGRALHEIGHT | WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_GROUP | WS_TABSTOP, 7, 19, 382, 235 
   CONTROL "OK", 1, BUTTON, BS_DEFPUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 398, 18, 50, 14 
   CONTROL "Cancel", 2, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 398, 40, 50, 14 
   CONTROL "&Browse...", 5051, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 398, 61, 50, 14 
   CONTROL "&Help", 5052, BUTTON, BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 398, 240, 50, 14 
   CONTROL "Result", 5055, BUTTON, BS_GROUPBOX | WS_CHILD | WS_VISIBLE, 8, 260, 442, 37 
   CONTROL "Location:", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE, 14, 271, 32, 8 
   CONTROL "", 5053, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 52, 271, 390, 8 
   CONTROL "Language:", -1, STATIC, SS_LEFT | WS_CHILD | WS_VISIBLE, 14, 282, 36, 8 
   CONTROL "", 5054, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 52, 282, 390, 8 
   CONTROL "&U", 4528, BUTTON, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_GROUP | WS_TABSTOP, 416, 122, 14, 14 
   CONTROL "&D", 4529, BUTTON, BS_OWNERDRAW | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 416, 149, 14, 14 
   CONTROL "Priority", -1, STATIC, SS_LEFTNOWORDWRAP | SS_NOPREFIX | WS_CHILD | WS_VISIBLE, 411, 139, 24, 8 
}
于 2020-05-04T14:32:13.350 回答