VBTools/CommandCallBack.cls at master · exSnake/VBTools · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "CommandCallBack"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Private owner As IPresenter
Implements ICommandCallback

Public Property Get CallbackOwner() As IPresenter
    Set CallbackOwner = owner
End Property

Public Property Set CallbackOwner(ByVal value As IPresenter)
    Set owner = value
End Property

Private Property Set ICommandCallback_CallbackOwner(ByVal value As IPresenter)
    Set owner = value
End Property

Private Property Get ICommandCallback_CallbackOwner() As IPresenter
    Set ICommandCallback_CallbackOwner = owner
End Property

Private Function ICommandCallback_CanExecute(ByVal cmd As CommandType) As Boolean
    If owner Is Nothing Then Exit Function
    ICommandCallback_CanExecute = CallByName(owner, "CanExecuteCommand", VbMethod, cmd)
End Function

Private Sub ICommandCallback_Execute(ByVal cmd As CommandType)
    If owner Is Nothing Then Exit Sub
    If Not ICommandCallback_CanExecute(cmd) Then Exit Sub
    CallByName owner, "ExecuteCommand", VbMethod, cmd
End Sub