Git_In_VBIDE/GitHandlerClass.cls at master · BriargateExcel/Git_In_VBIDE · 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
VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
END
Attribute VB_Name = "GitHandlerClass"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit

Public WithEvents GitEvtHandler As VBIDE.CommandBarEvents
Attribute GitEvtHandler.VB_VarHelpID = -1

Private Sub GitEvtHandler_Click( _
        ByVal CommandBarControl As Object, _
        Handled As Boolean, _
        CancelDefault As Boolean)

    '''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' This is called when a item is clicked. Call the
    ' procedure named in the OnAction property of the
    ' CommandBarControl passed into this procedure.
    '''''''''''''''''''''''''''''''''''''''''''''''''''''

    On Error Resume Next
    Application.Run CommandBarControl.OnAction
    '''''''''''''''''''''''''''''''''''''''''''''''''''''
    ' Tell VBIDE that we've handled the event.
    '''''''''''''''''''''''''''''''''''''''''''''''''''''
    Handled = True
    CancelDefault = True
    On Error GoTo 0
End Sub