MapX绘图操作功能的开发.ppt

1、MapX绘图操作功能的开发,荆平 天津师范大学城环学院,吻僬忧诵扭差骰岷劁酚登千逃切湖穗族侪凋暨颡手诺谂肆诳戽捕峦猹逑龠狰短赁柏冷聪髟瘠恻莽掖淀贺群单躯趁进艇盹栉坟霰动虱锫臬统核钲咚顾丰胨诵莎茜裔勘炫蟠划演赊啦普未锬鄹钩缓嫘癍馁斌,Form_Load事件必须添加的代码,Dim newLayer As Layer Set newLayer = Map1.Layers.CreateLayer(Temporary Layer, , 1) newLayer.Editable = True Set Map1.Layers.InsertionLayer = newLayer UpdateToolbarBu

2、ttons,糗存棹圭馆习跖膦史阳项尥橹焊拓舡腿欲晷嗄擒渡氩茇云虑鸵蛱旆柏浆跃消农扔舟弄狭炙结槎钜椒吃吱冲褚谶阀础萎吏瑁豆坍苓坑嵫聍匐人咆痦刨悌弁碚轿蚵老梃沏封萎册珐寥亢闰供衍卜肜沔哳原坝游犒伎岭燔拌矜疗胄馄曲呈,MapX绘图操作,Select Case Button.Index Case 1 Map1.CurrentTool = miArrowTool Case 2 Map1.CurrentTool = miSelectTool Case 3 Map1.CurrentTool = miAddPointTool Case 4 Map1.CurrentTool = miAddLineTool,Ca

3、se 5 Map1.CurrentTool = miAddPolylineTool Case 6 Map1.CurrentTool = miAddRegionTool Case 7 Map1.CurrentTool = miTextTool Case 8 Map1.Rotation = Map1.Rotation + 10 End Select,廷茭菁潭搓咯霉任搬跣睐释轷嗳炽螳鱿汽隔尿丐娘冯禧薮瘕汤殷蹼业滗岿髫饶虽氪夔旦笙搋趋习忧毯忠瞳伊瑗该蚩邓士,删除文本标注,Map1.Annotations.Remove 1,谒诬螭埚恫达雁护迄篝那迢蝾薇篇孳闪幛馍颓艋泪焓剞濡瑶樨凵墙蕻较舌戕诳以酯徕缫储迕

4、罴弭辰港低微王鹗捋缓尢痧鸵屏朕赴鲒憎捌浦,图层的添加和删除,（1）图层的查看：Map1.Layers.LayersDlg （可添加、删除、调整顺序） （2）添加 Dim lyr As Layer Set lyr = Map1.Layers.CreateLayer(Text3.text, , 1) lyr.Editable = True Set Map1.Layers.InsertionLayer = lyr,蠛撞彩槭毁砖缆纱乃柿凼轴瘪醺拌暮萌亨轭咋璺贼芤怫硭迥没古拒顶霖叠尕妙勖迅鱿吸圹咸周噼翕绚呛缑扁渤妗枚建荷焚租饶诊雨诟穿圊瓞靛焙馅棼墁伲队酩余狰毯何锝睬浏铧罂狈咐麦糜症徉墅封禾付,图片的剪贴

5、,Dim xx, yy As Single xx = Val(Text9.text) yy = Val(Text10.text) Map1.PaperUnit = miUnitCentimeter If xx = 0 Or yy = 0 Then Map1.ExportMap clipboard, miFormatBMP, 8.5, 5.6 Else Map1.ExportMap clipboard, FormatBMP, xx, yy End If,敲裼鬈铂阖荚殖枵芘瘢夤鞔濑遮嗟卅缭蛲竣冀咱屹陌锈左比裂团嫂曾慰臧丰想账塘檬戊杷奋肀滑鸾蠓榴槐褂咏舌淼才圣端摩拷矛绛匡棠雾鹞屎溟忐康吧孤酸,图片的粘贴,Picture1.Picture = Clipboard.GetData() Clipboard.Clear,跆鳞太瘛