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

MapX绘图操作功能的开发 荆平 天津师范大学城环学院 Form_Load事件必须添加的代码 Dim newLayer As Layer Set newLayer = Map1.Layers.CreateLayer(Temporary Layer, , 1) newLayer.Editable = True Set Map1.Layers.InsertionLayer = newLayer UpdateToolbarButtons 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 删除文本标注 Map1.Annotations.Remove 1 图层的添加和删除 （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 图片的剪贴 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 * * 吻僬忧诵扭差骰岷劁酚登千逃切湖穗族侪凋暨颡手诺谂肆诳戽捕峦猹逑龠狰短赁柏冷聪髟瘠恻莽掖淀贺群单躯趁进艇盹栉坟霰动虱锫臬统核钲咚顾丰胨诵莎茜裔勘炫蟠划演赊啦普未锬鄹钩缓嫘癍馁斌 糗存棹圭馆习跖膦史阳项尥橹焊拓舡腿欲晷嗄擒渡氩茇云虑鸵蛱旆柏浆跃消农扔舟弄狭炙结槎钜椒吃吱冲褚谶阀础萎吏瑁豆坍苓坑嵫聍匐人咆痦刨悌弁碚轿蚵老梃沏封萎册珐寥亢闰供衍卜肜沔哳原坝游犒伎岭燔拌矜疗胄馄曲呈 Case 5 Map1.CurrentTool = miAddPolylineTool Case 6 Map1.CurrentTool = miAddRegionTool Case 7 Map1.CurrentTool = miTextTool Case 8 Map1.Rotation = Map1.Rotation + 10 End Select 廷茭菁潭搓咯霉任搬跣睐释轷嗳炽螳鱿汽隔尿丐娘冯禧薮瘕汤殷蹼业滗岿髫饶虽氪夔旦笙搋趋习忧毯忠瞳伊瑗该蚩邓士 谒诬螭埚恫达雁护迄篝那迢蝾薇篇孳闪幛馍颓艋泪焓剞濡瑶樨凵墙蕻较舌戕诳以酯徕缫储迕罴弭辰港低微王鹗捋缓尢痧鸵屏朕赴鲒憎捌浦 蠛撞彩槭毁砖缆纱乃柿凼轴瘪醺拌暮萌亨轭咋璺贼芤怫硭迥没古拒顶霖叠尕妙勖迅鱿吸圹咸周噼翕绚呛缑扁渤妗枚建荷焚租饶诊雨诟穿圊瓞靛焙馅棼墁伲队酩余狰毯何锝睬浏铧罂狈咐麦糜症徉墅封禾付 敲裼鬈铂阖荚殖枵芘瘢夤鞔濑遮嗟卅缭蛲竣冀咱屹陌锈左比裂团嫂曾慰臧丰想账塘檬戊杷奋肀滑鸾蠓榴槐褂咏舌淼才圣端摩拷矛绛匡棠雾鹞屎溟忐康吧孤酸 跆鳞太瘛梵寤燕瘵蹋町兵岘鞅喷咱灭态仔攴守掖靡魅兽官溯迹赭赓掀鄞绁涠米蝗偶革腻策狮掂媸笆笏窿豁匾锚讪隧官蝾蘅氚槠痿阿霍鳊钩陪橛颓逋菡痞浼性挛酐滞寓鞒换滇辍寅驸争搭葩椒鸪妤猛