|
阅读：4672回复：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楼#
发布于：2007-11-09 16:38
bishini
|
|
|
2楼#
发布于：2007-08-16 13:01
ding ,ding !
|
|
|
3楼#
发布于：2007-05-06 14:16
<img src="images/post/smile/dvbbs/em02.gif" />
|
|
|
4楼#
发布于：2007-04-13 19:30
<TABLE fixed; WORD-BREAK: break-all" height="85%" width="95%" align=center border=0>
<TR> <TD 9pt; LINE-HEIGHT: 12pt" vAlign=top width=* height="100%"><IMG src="http://www.gisempire.com/bbs/Skins/Default/topicface/face1.gif"> <B></B><BR>谢大虾我也需要 狂顶</TD></TR></TABLE> |
|
|
5楼#
发布于：2007-04-13 17:08
<P><img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" /></P>
<P>不过本人用的是vc</P> |
|
|
6楼#
发布于：2007-04-13 15:23
<img src="images/post/smile/dvbbs/em04.gif" />今天收获很多啊。
|
|
|
7楼#
发布于：2006-05-31 09:07
这个很难吗？
|
|
|
|
8楼#
发布于：2006-05-23 17:00
<P>command1，command2，command3分别代表实现什么功能啊</P>
|
|
|
9楼#
发布于：2006-05-18 15:52
<IMG src="http://www.gisempire.com/bbs/Skins/Default/emot/em03.gif">
|
|
上一页
下一页