Uniquerender in AE-a simple example of unique value rendering (VB. NET source code)

 Go directly to the source code for your reference.

''' <Summary>
''' Is rendered with different symbrs based on the value of a field.
''' </Summary>
''' <Param name = "pgeofeaturelayer"> rendered layer </param>
''' <Remarks> </remarks>
Private sub uniquerender (byval pgeofeaturelayer as igeofeaturelayer)
Dim puniquerender as iuniquevaluerenderer = new uniquevaluerenderer
Dim pcolor as icolor
Dim pcmsymbol as icharactermarkersymbol
Dim pfont as stdole. ifontdisp = new stdole. stdfont
Pfont. Name = "ESRI default marker"
Pcolor = new rgbcolor
Pcolor. RGB = RGB (56,168, 0)
Pcmsymbol = new charactermarkersymbol
Pcmsymbol. font = pfont
Pcmsymbol. characterindex = 33
Pcmsymbol. Color = pcolor
Pcmsymbol. size = 10
Puniquerender. fieldcount = 1
Puniquerender. Field (0) = g_fieldtype
Puniquerender. defaultsymbol = pcmsymbol
Puniquerender. usedefasymsymbol = true

Pcolor = new rgbcolor
Pcolor. RGB = RGB (255,255, 0)
Pcmsymbol = new charactermarkersymbol
Pcmsymbol. font = pfont
Pcmsymbol. characterindex = 80
Pcmsymbol. Color = pcolor
Pcmsymbol. size = 20
''Added different types. The featureclass must have the corresponding fields.
Puniquerender. addvalue (2, "type1", pcmsymbol)

Pcolor = new rgbcolor
Pcolor. RGB = RGB (85,255, 0)
Pcmsymbol = new charactermarkersymbol
Pcmsymbol. font = pfont
Pcmsymbol. characterindex = 88
Pcmsymbol. Color = pcolor
Pcmsymbol. size = 20
Puniquerender. addvalue (3, "type2", pcmsymbol)

pgeofeaturelayer. renderer = puniquerender
pgeofeaturelayer. displayfield = "type" 'field name used for unique value rendering
end sub