b.      ValueMapRenderer

Renderer jenis ini akan membuat record-record yang isi suatu field tertentu-nya berbeda akan ditampilkan dalam bentuk yang berbeda. Berguna untuk memperlihatkan suatu layer yang berisi banyak informasi yang berbeda, misalnya layer kabupaten yang akan ditampilkan dengan warna yang berberda tiap kecamatan-kecamatan didalamnya.

Inti dari rendering jenis ini adalah penentuan nilai/isi suatu field dan bentuk tampilan dari nilai tersebut. Misal untuk kecamatan A (isi field tertentunya adalah A) akan diwarnai merah, B diwarnai kuning, C hijau, dan seterusnya. Setiap pendeklarasian nilai baru akan merlukan semacam tempat baru, maka tempat ini harus dideklarasikan dahulu jumlahnya.

Jumlah tempat ini adalah valueCount, sedang isi dan bentuk symbolnya masing-masing ada dalam property value dan symbol.

Dalam contoh berikut akan ditampilkan jika nama state-nya “Sonora” akan diwarnai merah, “mexico” hijau, dan “yucatan” kuning. Dengan contoh hasil tampilan pada gambar 21.

              Dim L1 As MapObjects2.MapLayer

       Set L1 = New MapObjects2.MapLayer

       L1.GeoDataset = dc.FindGeoDataset("states")

       Dim vr As New ValueMapRenderer

       vr.ValueCount = 3

       vr.Field = "Name"

       vr.Symbol(0).Color = moRed

       vr.Value(0) = "Sonora"

       vr.Symbol(1).Color = moGreen

       vr.Value(1) = "Mexico"

        vr.Symbol(2).Color = moYellow

       vr.Value(2) = "Yucatan"

       L1.Renderer = vr

       Map1.Layers.Add L1

Gambar 21. contoh tampilan ValueMap Renderer 1

Jika ingin membuat seluruh states-nya diwarnai dengan warna berbeda, maka kita dapat memanfaatkan object recordset untuk looping ke semua record dalam layer. Dimana disaat looping kita isikan value-nya dan bentuk symbolnya. Apabila bentuk symbol tidak diisi maka akan digenerate secara acak. Seperti pada contoh dibawah, states akan ditampilkan dalam warna-warna yang berbeda tetapi acak, setiap kali dijalankan akan memberikan susunan warna yang berbeda. Contoh hasilny ada pada gambar 22.  Jika ingin susunan warnanya sama, biasanya digunakanlah susunan koleksi2 warna tertentu yang sering disebut dengan nama palette.

       Dim L1 As MapObjects2.MapLayer

       Set L1 = New MapObjects2.MapLayer

       L1.GeoDataset = dc.FindGeoDataset("states")

       Dim vr As New ValueMapRenderer

       vr.Field = "Name"

       Dim rec As MapObjects2.Recordset

       Set rec = L1.Records

       vr.ValueCount = rec.Count

       Dim i As Long

       i = 0

       While Not rec.EOF

        vr.Value(i) = rec("name").Value

        rec.MoveNext

        i = i + 1

       Wend

       L1.Renderer = vr

       Map1.Layers.Add L1

Gambar 22. Memberikan warna beda untuk setiap state