请教类中实例的传递

Darknight

在用ctbutton做一个xp button的类，但是在实例化的时候遇到了麻烦，怎么也不能把窗体上的ctbutton对象引用到我的类的实例中去，高手帮忙呀。

类例程：

Private WithEvents mvarObjButton As ctButton


Public Property Let objButton(ByVal sInput As ctButton)
Set mvarObjButton = sInput
End Property



窗体上的程序

Sub LoadButton(currentItem As Integer)
Dim Ct As Control
Dim col As New Collection
'Dim ctButton As cXpButton
  For Each Ct In Me.navWindows.Pages(currentItem).Controls '只在当前页中循环
   If Ct.ControlType = 119 And Left(Ct.ControlName, 8) = "ctButton" Then
     Dim myCtButton As New cXpButton
     Dim tempButton As ctButton
     Set tempButton = Me.Controls(Ct.ControlName)
     myCtButton.objButton = tempButton
     col.Add myCtButton '将所有的ctbutton加入到col集合中去。
   End If
  Next  
End Sub

只是想在窗体装载的时候自动初始化成类里面定义的外观，现在就是不能把窗体上的ctbutton实例引入到我自己定义的cXpButton中使用。搞了好几天了。

andymark

最好把例子传上来

Darknight

呵呵，已搞定，马虎的问题。谢谢版主了