vba09-01.txt

一个基于ARCGIS的VBA开发代码,本人用它做过很多VBA开发,非常不错!

Public Sub MakeLayerVisible()
  Dim pMxDocument As IMxDocument
  Dim pMap As IMap
  Dim pFeatureLayer As IFeatureLayer
  Dim pActiveView As IActiveView
  Dim pContentsView As IContentsView
  
  ' Access the first feature layer on the map
  Set pMxDocument = ThisDocument
  Set pMap = pMxDocument.FocusMap
  Set pFeatureLayer = pMap.Layer(0)
  
  ' If the feature layer is not visible,
  ' then make it visible.
  If Not pFeatureLayer.Visible Then
    pFeatureLayer.Visible = True
  End If
  
  ' Refresh the map.
  Set pActiveView = pMap
  pActiveView.Refresh
  
  ' Refresh the table of contents.
  Set pContentsView = pMxDocument. _
  CurrentContentsView
  pContentsView.Refresh pFeatureLayer
End Sub