Office中国论坛/Access中国论坛

标题: 请教类中实例的传递 [打印本页]

作者: Darknight 时间: 2007-2-17 03:27
标题: 请教类中实例的传递
在用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 时间: 2007-2-17 20:07
最好把例子传上来

作者: Darknight 时间: 2007-2-19 00:43
呵呵，已搞定，马虎的问题。谢谢版主了

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)