求助！拖动放大有问题！

楼主^#

更多发布于：2007-06-08 10:02

我的拖动放大有问题！希望各位大虾解决！
 
通用里写：Dim r As New MapObjects2.Rectangle
 
Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)
 If Button.Key = "放大" Then ‘我的工具栏中“放大”的按钮的关键字是“放大”
 flg = 2 ‘如果点击“放大”按钮，则置flg为2
End If
End sub
 
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) ‘此为实现拖动放大的函数
 If flg = 2 Then
 Set r = Map1.TrackRectangle
 Set Map1.Extent = r
 Map1.Refresh
 End If
End sub
 
原图：
<v:shapetype><v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype>
 
<v:shapetype> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape> 
 
放大后成了这个造型：<v:shapetype> </v:shapetype>
<v:shapetype stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" preferrelative="t" spt="75" coordsize="21600,21600"></v:shapetype> 
<v:shapetype stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" preferrelative="t" spt="75" coordsize="21600,21600"><v:shapetype> <v:stroke joinstyle="miter"></v:stroke><v:formulas><v:f eqn="if lineDrawn pixelLineWidth 0"></v:f><v:f eqn="sum @0 1 0"></v:f><v:f eqn="sum 0 0 @1"></v:f><v:f eqn="prod @2 1 2"></v:f><v:f eqn="prod @3 21600 pixelWidth"></v:f><v:f eqn="prod @3 21600 pixelHeight"></v:f><v:f eqn="sum @0 0 1"></v:f><v:f eqn="prod @6 1 2"></v:f><v:f eqn="prod @7 21600 pixelWidth"></v:f><v:f eqn="sum @8 21600 0"></v:f><v:f eqn="prod @7 21600 pixelHeight"></v:f><v:f eqn="sum @10 21600 0"></v:f></v:formulas><v:path connecttype="rect" gradientshapeok="t" extrusionok="f"></v:path><lock aspectratio="t" v:ext="edit"></lock></v:shapetype><v:shape><v:imagedata></v:imagedata></v:shape></v:shapetype>
<v:shapetype stroked="f" filled="f" path="m@4@5l@4@11@9@11@9@5xe" preferrelative="t" spt="75" coordsize="21600,21600"></v:shapetype> 
希望大虾帮我解决这个问题！我在这里跪谢了！<img src="images/post/smile/dvbbs/em12.gif" />

喜欢0 评分0

举报回复

happylele

路人甲

注册日期2007-06-06
发帖数31
QQ
铜币178枚
威望0点
贡献值0点
银元0个

加关注写私信

1楼^#

发布于：2007-06-13 22:55

写入下面代码，还需要在点击放大按钮后把鼠标样式设置成Map1.MousePointer=moZoomIn 
Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) If Button = vbLeftButton Then Select Case Map1.MousePointer Case moZoomIn '放大 Map1.Extent = Map1.TrackRectangle Set r = Map1.Extent: r.ScaleRectangle 0.8: Map1.Extent = r: Case moZoomOut '缩小 Set r = Map1.Extent: r.ScaleRectangle 1.5: Map1.Extent = r: Case moPan And Button = 1 '漫游 Map1.Pan End Select End If End Sub<img src="images/post/smile/dvbbs/em07.gif" /><img src="images/post/smile/dvbbs/em08.gif" />

举报回复喜欢评分

yunnanyema 路人甲注册日期2006-11-15 发帖数5 QQ 铜币140枚威望0点贡献值0点银元0个加关注写私信	2楼^# 发布于：2007-06-08 10:25 <P>就是放大的部分总是在map1未显示出来的左下角！每次都要把map1向右上角拖，使左下角显示出来，被放大的图层才能看得见！</P>
	举报回复(0) 喜欢(0) 评分

您需要登录后才可以回帖，登录或者注册

求助！拖动放大有问题！

最新喜欢：