！！VB控件专家：如何设置控件里的对象的复合属性？

Question

Public Declare Function GetProp Lib "user32" Alias "GetPropA" (ByVal hWnd As Long, ByVal lpString As String) As Long
Public Declare Function SetProp Lib "user32" Alias "SetPropA" (ByVal hWnd As Long, ByVal lpString As String, ByVal hData As Long) As Long
Public Declare Function RemoveProp Lib "user32" Alias "RemovePropA" (ByVal hWnd As Long, ByVal lpString As String) As Long这三个api应该可以帮助你吧。你看一下msdn就知道怎么用了。

Answer 1

to prefix:
首先谢谢你，请仔细看我的题目，你的方法不对！请再指教！

Answer 2

你写一个类的时候，将某个属性定义为相应的对象即可。
例如(DA类中声明)：
Private mABCD  AS ABCD
Public Property Get MyABCD() As ABCD   '返回自定义的类
    Set MyABCD=mABCD
End Property
Public Property Set MyABCD(objVal As ABCD)
    Set mABCD=objVal
End Property使用时：
   Dim objDA As New DA
   DA.MyABCD.XXX=..你说的是这个意思吧
呵呵

Answer 3

漏了一点，使用时：
   Dim objDA   As New DA
   Dim objABCD As New objABCD   objABCD.XXX=XXX   
   Set objDA.MyABCD=objABCD
 
   或者   Set objDA.MyABCD=objABCD
   objDA.MyABCD.XXX=XXX   
   

Answer 4

JamesDT，谢谢你，我试了一下，你的说法是对的！