ArcGIS Engine Developer Guide

BUILDING APPLICATIONS WITH ACTIVEX
9. You now need to stub out all of the properties and events of the ICommand
interface, even if you are not going to use some of these. Add the following
code to the ICommand properties and methods.
Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE
ICommand_Bitmap = m_pBitmap
End Property
Private Property Get ICommand_Caption() As String
ICommand_Caption = "Add Date"
End Property
Private Property Get ICommand_Category() As String
ICommand_Category = "CustomCommands"
End Property
Private Property Get ICommand_Checked() As Boolean
ICommand_Checked = False
End Property
Private Property Get ICommand_Enabled() As Boolean
If Not m_pHookHelper.ActiveView Is Nothing Then
ICommand_Enabled = True
Else
ICommand_Enabled = False
End If
End Property
Private Property Get ICommand_HelpContextID() As Long
' Not implemented
End Property
Private Property Get ICommand_HelpFile() As String
' Not implemented
End Property
Private Property Get ICommand_Message() As String
ICommand_Message = "Adds a date element to the page layout"
End Property
Private Property Get ICommand_Name() As String
ICommand_Name = "CustomCommands_Add Date"
End Property
Private Sub ICommand_OnClick()
' Not implemented
End Sub
Private Sub ICommand_OnCreate(ByVal Hook As Object)
Set m_pHookHelper.Hook = Hook
End Sub
296 • ArcGIS Engine Developer Guide