7479
社区成员
- 全部
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
AliasKavin 2003-06-16
好~~~
结帖~~~
结帖~~~
KJ_Wang 2003-06-13
新建工程->ACTIVE DLL->产生一个类，
本例定义两个属性：AAA，BBB，工程名为：工程名为PJT->类名为MYCLASS
================================================================
Option Explicit
'保持属性值的局部变量
Private mvarAAA As String '局部复制
Private mvarBBB As String '局部复制
Public Property Let BBB(ByVal vData As String)'写入
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.BBB = 5
mvarBBB = vData
End Property
Public Property Get BBB() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.BBB
BBB = mvarBBB
End Property
Public Property Let AAA(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AAA = 5
mvarAAA = vData
End Property
Public Property Get AAA() As String‘读出
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AAA
AAA = mvarAAA
End Property
文件->生成DLL 将其放在你要放置的位置：
================================================================
引用方法：
新建工程->标准EXE->FORM1
然后再->工程-引用->浏览->选择你编译的DLL文件
在FORM1中放一个COMMAND
private sub command1_click()
dim obj as new PJT.MYCLASS
obj.aaa="我是中国人!"'写入
msgbox obj.aaa'读出
end sub
本例定义两个属性：AAA，BBB，工程名为：工程名为PJT->类名为MYCLASS
================================================================
Option Explicit
'保持属性值的局部变量
Private mvarAAA As String '局部复制
Private mvarBBB As String '局部复制
Public Property Let BBB(ByVal vData As String)'写入
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.BBB = 5
mvarBBB = vData
End Property
Public Property Get BBB() As String
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.BBB
BBB = mvarBBB
End Property
Public Property Let AAA(ByVal vData As String)
'向属性指派值时使用，位于赋值语句的左边。
'Syntax: X.AAA = 5
mvarAAA = vData
End Property
Public Property Get AAA() As String‘读出
'检索属性值时使用，位于赋值语句的右边。
'Syntax: Debug.Print X.AAA
AAA = mvarAAA
End Property
文件->生成DLL 将其放在你要放置的位置：
================================================================
引用方法：
新建工程->标准EXE->FORM1
然后再->工程-引用->浏览->选择你编译的DLL文件
在FORM1中放一个COMMAND
private sub command1_click()
dim obj as new PJT.MYCLASS
obj.aaa="我是中国人!"'写入
msgbox obj.aaa'读出
end sub
shuchang0626 2003-06-13
去msdn里面查查吧
xinshou1979330 2003-06-13
Private Sub Command1_Click()
Dim asd As Object
Set asd = CreateObject("工程1.Class1")
'程序名 类名
asd.main
End Sub
工程1就是那个DLL
Dim asd As Object
Set asd = CreateObject("工程1.Class1")
'程序名 类名
asd.main
End Sub
工程1就是那个DLL
xinshou1979330 2003-06-13
在编这个ACTIVEX DLL的机器上不用再注册DLL了，因为在VB中生成DLL的时候VB已经把
DLL注册了。如果拿到别的机器上用需要注册，可以在开始-》运行窗口中使用"regsrv32 you
rdll.dll"注册。
调用ACTIVEX DLL的程序中需要加入如下代码：
Dim asd As Object
Set asd = CreateObject("工程1.Class1")
~~~|~~ ~|~~~~~~
程序名 类名
asd.main
就可以了。
这样可以么
DLL注册了。如果拿到别的机器上用需要注册，可以在开始-》运行窗口中使用"regsrv32 you
rdll.dll"注册。
调用ACTIVEX DLL的程序中需要加入如下代码：
Dim asd As Object
Set asd = CreateObject("工程1.Class1")
~~~|~~ ~|~~~~~~
程序名 类名
asd.main
就可以了。
这样可以么
griefforyou 2003-06-13
MSDN里就有源码，非常详细的介绍
bu_wen 2003-06-13
最简单的一些用法..调用dll的一个函数
一个 dlltest.dll工程.. 里面有一个类 dllclass 有一个方法 myfun '必须是public
引用 delltest.dll
dim myclass as dlltest.dllclass
set myclass = new dlltest.dllclass
myclass.myfun
想真正了解,还是去找本书看看吧
一个 dlltest.dll工程.. 里面有一个类 dllclass 有一个方法 myfun '必须是public
引用 delltest.dll
dim myclass as dlltest.dllclass
set myclass = new dlltest.dllclass
myclass.myfun
想真正了解,还是去找本书看看吧
titan1975 2003-06-13
《VB6组件开发指南》里面步骤讲的比较详细，ACTIVEX DLL工程
