Private Sub Form_Open(Cancel As Integer)
Dim cButton As New cXpButton
Set cButton.cXpButton = Me.ctButton0.Object
End Sub
类
Option Compare Database
Public WithEvents cXpButton As ctButton
Private Sub cXpButton_Click()
Beep
End Sub
[attach]23150[/attach] 作者: Darknight 时间: 2007-2-20 08:04
问题解决!