能不能给一简单的例子: 不如做一在窗体上打印一“WELCOME YOU ” 的DLL 然后写一个STANDARD EXE 调用这个DLL ''我不知道怎么调用自己写的DLL '麻烦了,请HELP
首先新建一个activex dll工程,将类模块改名为mytest,将工程改名为hello(工程-工程属性中设置),代码: Option Explicit Public Sub drawform(str As String) MsgBox str End Sub 然后 ,文件-生成hello.dll,进行编译新建一个标准工程,工程-引用 浏览,选中刚刚编译好的hello.dll,确定 窗体上一个按钮: Option ExplicitPrivate Sub Command1_Click() Dim a As New mytest a.drawform "this is test" End Sub
好象这个程序不行呢? 运行是提示 a As New mytest 用户定义类型未定义
调用dll的方法我这里有,dim obj as object ,set obj=createObject("xxCom.desf") 然后调用改组件的方法就是了,xxcom是你建立组件工程名称,desf是你在工程里件的类名称。 然后通过obj.方法(你自己的方法)!!
引入hello.dll后,先用对象浏览器看看相应的对象名是什么,如是mytest,就 dim a as new mytest,是其它名称的话,就new相应的名称代码这么短,不可能出现问题
http://www.csdn.net/Develop/article/20%5C20659.shtm
http://www.csdn.net/Develop/article/20%5C20660.shtm你又不需要什么属性,事件
新建一个active dll工程,里面会有一个类模块,把你的代码粘贴过去,编译成dll即可,当然要起好名字
不如做一在窗体上打印一“WELCOME YOU ”
的DLL
然后写一个STANDARD EXE
调用这个DLL ''我不知道怎么调用自己写的DLL
'麻烦了,请HELP
Option Explicit
Public Sub drawform(str As String)
MsgBox str
End Sub
然后 ,文件-生成hello.dll,进行编译新建一个标准工程,工程-引用 浏览,选中刚刚编译好的hello.dll,确定
窗体上一个按钮:
Option ExplicitPrivate Sub Command1_Click()
Dim a As New mytest
a.drawform "this is test"
End Sub
运行是提示
a As New mytest 用户定义类型未定义
然后调用改组件的方法就是了,xxcom是你建立组件工程名称,desf是你在工程里件的类名称。
然后通过obj.方法(你自己的方法)!!
dim a as new mytest,是其它名称的话,就new相应的名称代码这么短,不可能出现问题