| Products: ArcView: VB6 Platforms: Windows, SolarisRequires: For VB Usage: An ArcMap session with the same layer added three times.Minimum ArcGIS Release: 9.0 |
Public Sub ApplyColorBivariateRend()
' December 2, 2000
' ESRI ArcMap Development
' creates a new ColorBivariateRend
' sets MainRenderer equal to renderer from 1st layer
' sets VariationRenderer equal to renderer from 2nd layer
' assigns new renderer to 3rd layer
Dim pMxDoc As IMxDocument
Dim pFeatLayer As IGeoFeatureLayer
Dim pFeatClass As IFeatureClass
Dim pColorRend As IClassBreaksRenderer
Dim pColorRend2 As IClassBreaksRenderer
Dim i As Integer
Dim pBivariateRend As IBivariateRenderer
Dim pTwoWayColorRend As IColorBivariateRend
Dim pFeatRend As IFeatureRenderer
Dim bOK As Boolean
Set pMxDoc = Application.Document
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(0)
Set pColorRend = pFeatLayer.Renderer
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(1)
Set pColorRend2 = pFeatLayer.Renderer
Set pBivariateRend = New BivariateRenderers.ColorBivariateRend
Set pBivariateRend.MainRenderer = pColorRend
Set pBivariateRend.VariationRenderer = pColorRend2
Set pTwoWayColorRend = pBivariateRend
pTwoWayColorRend.ColorCombinationMethod = enuCIELabColorRamp
pBivariateRend.CreateLegend
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(2)
Set pFeatRend = pBivariateRend
Set pFeatLayer.Renderer = pBivariateRend
pMxDoc.UpdateContents
pMxDoc.ActiveView.Refresh
End Sub
Public Sub ApplyColorSzBivariateRend()
' October 24, 2000
' ESRI ArcMap Development
' creates a new ColorSzBivariateRend
' sets MainRenderer equal to renderer from 1st layer (graduated colors)
' sets VariationRenderer equal to renderer from 2nd layer (graduated symbols)
' assigns new renderer to 3rd layer
Dim pMxDoc As IMxDocument
Dim pFeatLayer As IGeoFeatureLayer
Dim pFeatClass As IFeatureClass
Dim pColorRend As IClassBreaksRenderer
Dim pColorRend2 As IClassBreaksRenderer
Dim i As Integer
Dim pBivariateRend As IBivariateRenderer
Dim pFeatRend As IFeatureRenderer
Dim bOK As Boolean
Set pMxDoc = Application.Document
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(0)
Set pColorRend = pFeatLayer.Renderer
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(1)
Set pColorRend2 = pFeatLayer.Renderer
Set pBivariateRend = New BivariateRenderers.ColorSzBivariateRend
Set pBivariateRend.MainRenderer = pColorRend
Set pBivariateRend.VariationRenderer = pColorRend2
Set pFeatLayer = pMxDoc.ActiveView.FocusMap.Layer(2)
Set pFeatRend = pBivariateRend
Set pFeatLayer.Renderer = pBivariateRend
pMxDoc.UpdateContents
pMxDoc.ActiveView.Refresh
End Sub
| IColorBivariateRenderer.cls | Custom interface class. |
| ColorBivariateRenderer.cls | CoClass for the two way color bivariate renderer. |
| ColorSizeBivariateRenderer.cls | CoClass for the color-size bivariate renderer. |
| BivariateRenderers.vbp | Visual Basic project file. |
| BivariateRenderers.dll | The compiled component. |