dialogs.cls

开发环境：VB6.0 数据库：SQLServer2000 说明：这是一个图库管理系统

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "Dialogs"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Private WithEvents mdlg As Form_Detail
Attribute mdlg.VB_VarHelpID = -1
Event NotifyClients(ByVal Data As String)



Private Sub Class_Initialize()
Debug.Print "Dialogs object created"
Set mdlg = New Form_Detail
test = "come to here"

End Sub

Private Sub Class_Terminate()
Debug.Print "Dialogs object terminated"
Unload mdlg
Set mdlg = Nothing

End Sub
Private Sub mdlg_NotifyClients(ByVal Data As String)
RaiseEvent NotifyClients(Data)
End Sub