' Copyright 2008 ESRI
' 
' All rights reserved under the copyright laws of the United States
' and applicable international laws, treaties, and conventions.
' 
' You may freely redistribute and use this sample code, with or
' without modification, provided you include the original copyright
' notice and use restrictions.
' 
' See use restrictions at <your ArcGIS install location>/developerkit/userestrictions.txt.
' 




Option Explicit

Private Const COMMAND_CAPTION As String = "Help"
Private Const MODULE_NAME As String = "Help.cls"

Private mPictureDisp As IPictureDisp

Implements ICommand

Private Sub Class_Initialize()
    Set mPictureDisp = LoadResPicture("HELP", 0)
End Sub

Private Sub Class_Terminate()
    Set mPictureDisp = Nothing
End Sub

Private Property Get ICommand_Bitmap() As esriSystem.OLE_HANDLE
    ICommand_Bitmap = mPictureDisp
End Property

Private Property Get ICommand_Caption() As String
    ICommand_Caption = COMMAND_CAPTION
End Property

Private Property Get ICommand_Category() As String
    ICommand_Category = COMMAND_CATEGORY
End Property

Private Property Get ICommand_Checked() As Boolean
    '
End Property

Private Property Get ICommand_Enabled() As Boolean
    ICommand_Enabled = True
End Property

Private Property Get ICommand_HelpContextID() As Long
    '
End Property

Private Property Get ICommand_HelpFile() As String
    '
End Property

Private Property Get ICommand_Message() As String
    ICommand_Message = COMMAND_CAPTION
End Property

Private Property Get ICommand_Name() As String
    ICommand_Name = "GeodatabaseDesigner_Help"
End Property

Private Sub ICommand_OnClick()
    On Error GoTo ErrorHandler
    '
    Call modCommon.LaunchHelp
    '
    Exit Sub
ErrorHandler:
    Call HandleError(True, "ICommand_OnClick " & MODULE_NAME & " (" & CStr(Erl) & ")", Err.Number, Err.Source, Err.Description)
End Sub

Private Sub ICommand_OnCreate(ByVal hook As Object)
    '
End Sub

Private Property Get ICommand_Tooltip() As String
    ICommand_Tooltip = COMMAND_CAPTION
End Property