IMapDataAdapter.Clusterer
MapClustererBase.GroupProvider
To do this, assign an object of a class implementing the IMapDataAdapter.Clusterer
interface to the IMapDataAdapter.Clusterer property. Then optionally, configure the clusterer. For example, all predefined clusters allow you to group items before clustering and allow you to customize the appearance of cluster representatives.
To group the items, assign AttributeGroupProvider to the MapClustererBase.GroupProvider property. Then, set the AttributeGroupProvider.AttributeName property to the required value.
To customize the appearance of the cluster representatives, design a class implementing the IClusterItemFactory interface. Then, call the MapClustererBase.SetClusterItemFactory method with an object of the class to assign the required factory object to a clusterer.
| C#:Form1.cs |
VectorItemsLayer VectorLayer { get { return (VectorItemsLayer)map.Layers["VectorLayer"]; } }
ListSourceDataAdapter DataAdapter { get { return (ListSourceDataAdapter)VectorLayer.Data; } }
private void Form1_Load(object sender, EventArgs e) {
DataAdapter.DataSource = LoadData();
DistanceBasedClusterer clusterer = new DistanceBasedClusterer {
GroupProvider = new AttributeGroupProvider {
AttributeName = "LocationName"
}
};
clusterer.SetClusterItemFactory(new CustomClusterItemFactory());
DataAdapter.Clusterer = clusterer;
}
class CustomClusterItemFactory : IClusterItemFactory {
public MapItem CreateClusterItem(IList<MapItem> objects) {
MapDot dot = new MapDot();
dot.ClusteredItems = objects;
dot.TitleOptions.Pattern = objects.Count.ToString();
return dot;
}
}
|
| VB:Form1.vb |
Private ReadOnly Property VectorLayer() As VectorItemsLayer
Get
Return CType(map.Layers("VectorLayer"), VectorItemsLayer)
End Get
End Property
Private ReadOnly Property DataAdapter() As ListSourceDataAdapter
Get
Return CType(VectorLayer.Data, ListSourceDataAdapter)
End Get
End Property
Private Sub Form1_Load(ByVal sender As Object, ByVal e As EventArgs) Handles MyBase.Load
DataAdapter.DataSource = LoadData()
Dim clusterer As DistanceBasedClusterer = New DistanceBasedClusterer With { _
.GroupProvider = New AttributeGroupProvider With {.AttributeName = "LocationName"} _
}
clusterer.SetClusterItemFactory(New CustomClusterItemFactory())
DataAdapter.Clusterer = clusterer
End Sub
Friend Class CustomClusterItemFactory
Implements IClusterItemFactory
Private Function CreateClusterItem(objects As IList(Of MapItem)) As MapItem Implements IClusterItemFactory.CreateClusterItem
Dim dot As New MapDot()
dot.ClusteredItems = objects
dot.TitleOptions.Pattern = objects.Count.ToString()
Return dot
End Function
End Class
|