Le portail francophone de la géomatique

Option Explicit
Dim m_App As IApplication

Implements ICommand
Implements ICommandSubType
Dim pMxDoc As IMxDocument
Dim pMap As IMap
Dim pWorkspaceFactory As IWorkspaceFactory
Dim pFeatureWorkspace As IFeatureWorkspace
Dim Application As Application
Dim pFeatureClass As IFeatureClass
' Specify the workspace and the feature
Private m_pMxDoc As IMxDocument
Private m_pExt As IExtensionConfig



Private m_pBitmap1 As IPictureDisp
Private m_pBitmap2 As IPictureDisp
Private m_pBitmap3 As IPictureDisp
Private m_pBitmap4 As IPictureDisp
Private m_pBitmap5 As IPictureDisp
Private m_pBitmap6 As IPictureDisp

Private m_lSubType As Long
 
Private Sub Class_Initialize()
  ' Load the button image from the resource file.
  Set m_pBitmap1 = LoadResPicture(101, vbResBitmap)
  Set m_pBitmap2 = LoadResPicture(101, vbResBitmap)
  Set m_pBitmap3 = LoadResPicture(101, vbResBitmap)
  Set m_pBitmap4 = LoadResPicture(101, vbResBitmap)
  Set m_pBitmap5 = LoadResPicture(101, vbResBitmap)
  Set m_pBitmap6 = LoadResPicture(101, vbResBitmap)
End Sub
Private Sub Class_Terminate()
  ' Clear member variables
  Set m_pBitmap1 = Nothing
  Set m_pBitmap2 = Nothing
  Set m_pBitmap3 = Nothing
  Set m_pBitmap4 = Nothing
  Set m_pBitmap5 = Nothing
  Set m_pBitmap6 = Nothing
  Set m_pMxDoc = Nothing
  Set m_pExt = Nothing
  Set m_App = Nothing
End Sub
Private Property Get ICommand_Bitmap() As esrisystem.OLE_HANDLE
  Select Case m_lSubType
  Case 1
    ICommand_Bitmap = m_pBitmap1
  Case 2
    ICommand_Bitmap = m_pBitmap2
  Case 3
    ICommand_Bitmap = m_pBitmap3
   Case 4
    ICommand_Bitmap = m_pBitmap4
  Case 5
    ICommand_Bitmap = m_pBitmap5
  Case 6
    ICommand_Bitmap = m_pBitmap6
  End Select
End Property
Private Property Get ICommand_Caption() As String
  Select Case m_lSubType
  Case 1
    ICommand_Caption = "&Découpage_administratif "
  Case 2
    ICommand_Caption = "&Evolution de l'electrification"
  Case 3
    ICommand_Caption = "&Répartition des écoles"
  Case 4
    ICommand_Caption = "&Projets"
  Case 5
    ICommand_Caption = "&Réseau routier"
  Case 6
    ICommand_Caption = "Santé"
  End Select
End Property
Private Property Get ICommand_Category() As String
  ICommand_Category = "TANGER Utiliti"
End Property
Private Property Get ICommand_Checked() As Boolean
  ICommand_Checked = False
End Property

Private Property Get ICommand_Enabled() As Boolean
  Dim pExtentStack As esriCarto.IExtentStack
  Set pExtentStack = m_pMxDoc.ActiveView.ExtentStack
    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
  Select Case m_lSubType
  Case 1
    ICommand_Message = "Afficher la carte du Découpage_administratif"
  Case 2
    ICommand_Message = "Afficher la carte de l'évolution de l'electrification rurale"
  Case 3
    ICommand_Message = " afficher la carte de la répartition des écoles"
   Case 4
    ICommand_Message = "Afficher la carte des projets"
  Case 5
    ICommand_Message = "Afficher la carte du réseau routier"
  Case 6
    ICommand_Message = " afficher la carte de santé"

End Select
End Property


Private Property Get ICommand_Name() As String
    
Select Case m_lSubType
 
  Case 1
    ICommand_Name = "Découpage_administratif_carte"
  Case 2
    ICommand_Name = "evolution de l'electrification_carte"
  Case 3
    ICommand_Name = "Répartition des écoles_carte"
  Case 4
    ICommand_Name = "Projets_carte"
  Case 5
    ICommand_Name = "Réseau routier_carte"
  Case 6
    ICommand_Name = "Santé_carte"
  End Select
End Property
Private Sub ICommand_OnClick()

 Dim pExtentStack As esriCarto.IExtentStack
  Set pExtentStack = m_pMxDoc.ActiveView.ExtentStack
    
     Select Case m_lSubType
  Case 1
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\decoupage2.mxd"
  Case 2
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\graph_TER.mxd"
  Case 3
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\enseignement.mxd"
   Case 4
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\enseignement.mxd"
  Case 5
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\enseignement.mxd"
  Case 6
  Application.OpenDocument "D:\sujet de fin d'etude\DONN2ES-SOUFIANE\cartes\enseignement.mxd"

End Select
End Sub


Private Sub ICommand_OnCreate(ByVal hook As Object)
  Set Application = hook
  Set m_pMxDoc = m_App.document

'Set m_Application = New Application
'Set m_Application = New Application
' Set m_Application = New Application
' Set m_Application = New Application
 'Set m_Application = New Application
 'Set m_Application = New Application
 
End Sub
    
 Private Property Get ICommand_Tooltip() As String
  Select Case m_lSubType
  Case 1
    ICommand_Tooltip = "Afficher la carte du Découpage_administratif"
  Case 2
    ICommand_Tooltip = "Afficher la carte de l'évolution de l'electrification rurale"
  Case 3
    ICommand_Tooltip = " afficher la carte de la répartition des écoles"
   Case 4
    ICommand_Tooltip = "Afficher la carte des projets"
  Case 5
    ICommand_Tooltip = "Afficher la carte du réseau routier"
  Case 6
    ICommand_Tooltip = " afficher la carte de santé"

End Select
End Property
  
 Private Function ICommandSubType_GetCount() As Long
  ' Set how many commands are contained in the subtyped command.
  ICommandSubType_GetCount = 6
End Function

Private Sub ICommandSubType_SetSubType(ByVal SubType As Long)
  m_lSubType = SubType
End Sub