vbstate.sct

来自「c#设计模式WithCla」· SCT 代码 · 共 43 行

SCRIPT_NOREPEAT_HEADER_BEGIN
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "$STATE_CLASS_NAME$"
Attribute VB_Creatable = True
Attribute VB_Exposed = True
Attribute VB_Description = "$CLASS_DESCRIPTION$"

'Class - STATE_CLASS_NAME

Option Explicit

Private sState As String

Private sCondition As String

Public Property Get State()
  State = sState
End Property

Public Sub Process(sEvent As String)
SCRIPT_NOREPEAT_HEADER_END
[
  If ((sState = "TRANSITION_CURRENT_STATE") And (sEvent = "TRANSITION_EVENT") And (sCondition = "TRANSITION_CONDITION")) Then
     sState = "TRANSITION_NEXT_STATE"
     TRANSITION_ACTION
   End If
] 

SCRIPT_NOREPEAT_FOOTER_BEGIN
End Sub

Private Sub Class_Initialize()
  sState = "STATE_ALL_INITIAL_STATE"
  sCondition = "OK"
End Sub

Private Sub Class_Terminate()
End Sub
SCRIPT_NOREPEAT_FOOTER_END