|
阅读：4654回复：17
mo实现简单放大缩小漫游功能
<P>Private Sub Command1_Click()<BR>Dim p As MapObjects2.Point<BR>Dim recs As MapObjects2.Recordset<BR>Dim r As MapObjects2.Rectangle<BR>Set r = Map1.Extent<BR>r.ScaleRectangle 1.5<BR>Map1.Extent = r<BR>End Sub</P>
<P>Private Sub Command2_Click()<BR>Set Map1.Extent = Map1.FullExtent<BR>End Sub</P> <P>Private Sub Command3_Click()<BR>Dim bs As String<BR>bs = "按右键移动,左键放大;"<BR> <BR>End Sub</P> <P>Private Sub Map1_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)<BR>If Button = vbLeftButton Then<BR> Set Map1.Extent = Map1.TrackRectangle<BR> ElseIf Button = vbRightButton Then<BR> Map1.Pan<BR> End If<BR>End Sub<BR></P> |
|
|
1楼#
发布于：2005-06-22 14:57
狂顶，高人阿！这都被你实现了！
[此贴子已经被作者于2005-6-22 14:58:28编辑过]
|
|
|
2楼#
发布于：2005-06-23 09:43
<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
|
3楼#
发布于：2005-06-30 18:05
<img src="images/post/smile/dvbbs/em01.gif" />
|
|
|
4楼#
发布于：2005-07-09 21:58
<img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
|
5楼#
发布于：2005-12-27 10:55
哈哈。还是顶一下<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em03.gif">
|
|
|
6楼#
发布于：2006-03-16 10:33
<img src="images/post/smile/dvbbs/em05.gif" />
|
|
|
7楼#
发布于：2006-04-28 21:12
<img src="images/post/smile/dvbbs/em02.gif" /><img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
8楼#
发布于：2006-05-06 22:14
<P>哈哈，还是顶一下</P>
<img src="images/post/smile/dvbbs/em03.gif" /><img src="images/post/smile/dvbbs/em03.gif" /> |
|
|
9楼#
发布于：2006-05-18 15:52
<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em03.gif">
|
|
上一页
下一页