VB如何调用VB写的DLL函数

来源：百度知道 编辑：UC知道 时间：2024/09/23 03:26:23
<1>我用VB新建一个Activex.DLL，并写入过程
工程名为msgVB
类名为msgCls

类中的代码如下：
sub msg(a)
msgbox a
End sub

<2>请问如何在VB中调用DLL中的函数msg
（用代码展示）

我调用的exe文件 当然和你的dll文件不一样 但是我感觉应该类似
我把代码给你 希望对您有帮助
Private Sub Calculate_Click()

On Error Resume Next
Dim TAO() As Byte
Dim i As Long
Dim MyPath
If Dir(App.Path & "\FOR.exe") <> "" Then
Shell App.Path & "\FOR.exe", vbNormalFocus
End If
TAO = LoadResData(101, "CUSTOM")
On Error GoTo 1
Open App.Path & "\FOR.exe" For Binary As #1
For i = 0 To 103936 - 1
Put #1, , TAO(i)
Next i
Close #1
Shell "\FOR.exe", VbNormalFocus1
1

End Sub