cworkspace.cls

来自「vb开发的连接mysql的工作流设置程序,图形化工作流自定义工具,原先是连接到D」· CLS 代码 · 共 45 行

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "CWorkspace"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private mNodeCol As Collection
Private mLineCol As Collection
Private mCurrentDatabase As String
Private mCurrentAgents() As String
Private WithEvents mCanvas As PictureBox
Attribute mCanvas.VB_VarHelpID = -1


Public Sub Create(Canvas As Object)
    Set mCanvas = Canvas
    Set mNodeCol = New Collection
    Set mLineCol = New Collection
    ReDim mCurrentAgents(0)
End Sub

Public Property Get CurrentDatabase() As String
    CurrentDatabase = mCurrentDatabase
End Property

Public Property Let CurrentDatabase(Value As String)
    If mCurrentDatabase <> Value Then
        mCurrentAgents = MNotes.getAgents(Value)
        mCurrentDatabase = Value
    End If
End Property

Public Property Get CurrentAgents() As String()
    CurrentAgents = mCurrentAgents
End Property