module1.bas

使用VB作为开发工具的朋友,应该都知道VB的IDE不支持对AciveDLL添加 输出函数.这样的DLL文件只能采用"引用"的办法来用.有没有办法让它像普 通DLL一样拥有输出函数呢?请使用

Attribute VB_Name = "Module1"

Public Function ShowMsg()

MsgBox "This is My First Dll ！！"

End Function

Public Function aa(ByVal sHwnd As Long)

SetFlat sHwnd

End Function

Public Function SetLen(ByVal str As String, ByRef kk As Long)

kk = Len(str)

End Function

Public Function t1(ByVal pname As String, ByRef Ret As Integer)
   
   Ret = 2
   
End Function