16756.html
来自「VB技巧问答10000例 VB技巧问答10000例」· HTML 代码 · 共 27 行
HTML
27 行
<html>
<head>
<title>Re: VB 与 DLL 的问题?</title>
</head>
<body bgcolor="#FFFFFF" vlink="#808080">
<center>
<h1>Re: VB 与 DLL 的问题?</h1>
</center>
<hr size=7 width=75%>
<hr size=7 width=75%><p>
Posted by <a href="mailto:arthur.hsu@iname.com">Arthur</a> on August 06, 1999 at 12:20:17:<p>
In Reply to: <a href="16696.html">VB 与 DLL 的问题?</a> posted by 黄牛 on August 05, 1999 at 15:51:55:<p>
: 我想用 VB 写个 DLL,但是有许多问题:<p>: 启动 VB 时可看到两种 DLL : ActiveX DLL 和 ActiveX Document DLL<br>: 不知道这两种有什么不同?<p>: 所以我就选 ActiveX DLL 试试<p>: 我新增了一个模组,内容如下:<br>: ===============================================<br>: Option Explicit<p>: Dim Data1 As Integer<p>: Public Sub SendData(ByVal int1 As Integer)<br>: Data1 = int1<br>: End Sub<p>: Public Function GetData() As Integer<br>: GetData = Data1<br>: End Function<br>: ===============================================<p>: 将它编译成 DLL 之后,复制到 Windows\System 底下<br>: 然后写一个程式测试这个 DLL 可不可以用,其内容如下:<p>: Private Declare Sub SendData Lib "project1" (ByVal int1 As Integer)<br>: Private Declare Function GetData Lib "project1" () As Integer<p>: Private Sub Command1_Click()<br>: SendData (1)<br>: Text1.Text = GetData()<br>: End Sub<p>: 但是执行之后,按下 Command1 却出现:<p>: 执行阶段错误 '453':<br>: DLL 进入点 SendData 无法在 project1 中找到<p>: 我换 ActiveX Document DLL 也还是一样<br>: 请问我哪里作错了,谢谢!<p><br>1. VB 的 DLL 不是你想的这样, 而是 Class Module, 也就是用物件的方式呼叫!<p>2. 你要在 VB 与 VC 之间传递资料...直接传 (IPC) 就好了, 何必再透过 DLL? 把事情再复杂化?<br> AP --IPC--> AP<br> AP --Automation-->OLE Server <br>
<br>
<br><hr size=7 width=75%><p>
<a name="followups">Follow Ups:</a><br>
<ul><!--insert: 16756-->
<!--top: 16944--><li><a href="16944.html">Re: VB 与 DLL 的问题?</a> <b>黄牛</b> <i>20:54:06 8/09/99</i>
(<!--responses: 16944-->0)
<ul><!--insert: 16944-->
</ul><!--end: 16944-->
</ul><!--end: 16756-->
<br><hr size=7 width=75%><p>
</body></html>
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?