📄 clsfyiprocedure.cls
字号:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
END
Attribute VB_Name = "clsFYIProcedure"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = True
Attribute VB_Ext_KEY = "SavedWithClassBuilder" ,"Yes"
Attribute VB_Ext_KEY = "Top_Level" ,"Yes"
Option Explicit
Implements IProcedureItem
Private Property Let IProcedureItem_CompleteDate(ByVal vData As String)
End Property
Private Property Get IProcedureItem_CompleteDate() As String
End Property
Private Function IProcedureItem_getNextProcedure() As IProcedureItem
End Function
Private Function IProcedureItem_IsProcedureComplete() As Boolean
End Function
Private Property Get IProcedureItem_NextProcedureID() As String
End Property
Private Sub IProcedureItem_Populate(domProcedure As MSXML.IXMLDOMDocument)
End Sub
Private Property Let IProcedureItem_ProcedureID(ByVal vData As String)
End Property
Private Property Get IProcedureItem_ProcedureID() As String
End Property
Private Property Get IProcedureItem_ProcedureProcess() As String
End Property
Private Property Let IProcedureItem_ProcedureProcessID(ByVal RHS As String)
End Property
Private Function IProcedureItem_procedureStart() As Boolean
End Function
Private Function IProcedureItem_procedureStop() As Boolean
End Function
Private Property Let IProcedureItem_Response(ByVal vData As String)
End Property
Private Property Get IProcedureItem_Response() As String
End Property
Private Property Let IProcedureItem_StartDate(ByVal vData As Date)
End Property
Private Property Get IProcedureItem_StartDate() As Date
End Property
Private Property Let IProcedureItem_StepType(ByVal RHS As String)
End Property
Private Property Get IProcedureItem_StepType() As String
End Property
Private Property Let IProcedureItem_WorkflowID(ByVal vData As String)
End Property
Private Property Get IProcedureItem_WorkflowID() As String
End Property
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -