请问到底如何向VB自编的activexDLL中传属性字符串？？？？？？？？？？？

Question

是这样的
'##########       dll中的类模块代码
Public mczyxm As String   Public Property Get czyxm() As String''czyxm是属性，还是mczyxm是属性
czyxm = mczyxm                       '''''''''''  两个都不行
End PropertyPublic Property Let czyxm(ByVal vNewValue As String)
mczyxm = vNewValue
End Property'##########       dll中的窗体代码
Dim hj As New hjsf'''''''''这一句定义在哪里？？？？？？？？
Public czy As String  
Private Sub Form_Activate()czy = hj.mczyxm  '''''''''''我这里要用属性，
MsgBox czy    '是空的''''''''''应该在哪里取出这个属性？endsub
'##########       调用dll的工程代码
Dim ghjsf As New hjsfdll.hjsf
czy="张三"
ghjsf.mczyxm = Czy
MsgBox ghjsf.mczyxm    '是"张三"             说明已经传过去了

Answer 1

问题已变为如何在dll中的窗体中使用dll类模块的属性，为dll的问题我已提了500分的问题，还是没解决。

Answer 2

Private Sub Class_Initialize()
   Set objForm = New Form1
End SubPublic Property Get 属性() As Integer
   属性 = objForm.引用的DLL.应用DLL的属性
End Property 将上面代码改成你自己所需要的。

Answer 3

To yvqq(yvqq) :
   要那么多分有什么用呢？

Answer 4

public aaa as string,这一行就可以作为属性传入了public sss as adodb.recordset 传记录集这些我都做过，没问题的，还有其他办法
，不过这个比较容易

Answer 5

参考msdn 创建activex dll 分步教程