mapx+vb实战摘要（五）

ppp80上个月去天津(2004)做这个项目，加班加点忙乎过了十一，现在项目终

于完成了第一阶段，可以闲下来总结一下了。
   在做这个项目之前我只是自学了一个月的supermap，不过感觉gis这些东

西都是大同小异，没什莫可怕；关键比较郁闷的是本来根本就是做.net，现

在却要用vb实在太。。。算了，赶鸭子上架，不会也得会呀！

    其实本人对这个实在只能称得上一知半解，学的和用的一样多，不过还

是给自己和别人留下点东西吧，也许会有帮助呢：）(共五篇)

1如何修改柱状专题图的样式？
Map1.DataSets.Item(DsName).Themes("trafficflubar").Properties.Size = BarSize
Map1.DataSets.Item(DsName).Themes("trafficflubar").Properties.BarWidth = BarWidth

Map1.DataSets.Item(DsName).Themes("trafficflubar").ThemeProperties.MultivarCategories.Item(1).style.RegionColor = SmallTruck_Color


2如何修改饼状专题图的样式？
Map1.DataSets.Item(DsName).Themes("trafficflupiebar").Properties.Size = PieBarSize
'Map1.DataSets.Item(DsName).Themes("trafficflupiebar").Properties.Width = PieBarWidth

Map1.DataSets.Item(DsName).Themes("trafficflupiebar").ThemeProperties.MultivarCategories.Item(1).style.RegionColor = SmallTruck_Color


3如何修改标注的样式？
 Set oStyle = New MapXLib.style
        oStyle.TextFont.Size = 12
        oStyle.TextFont.Bold = True
        oStyle.SymbolFontColor = vbWhite
        oStyle.TextFontBackColor = vbBlue
        oStyle.TextFontOpaque = True
    
        Map1.Annotations.AddText(rs(showfield), lyr.Selection(1).CenterX, lyr.Selection(1).CenterY, 3).Graphic.style = oStyle
        （白字黑底）