vba09-01.txt

AO的原代码,都是以TXT的文件写的,对你肯定有帮助的.这些都是 我的心血啊.

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