如何实现局部放大

xyh2002 2003-09-19 09:21:24

用vb6+mapx5.0如何实现地图的局部放大？

...全文

117 6 打赏收藏转发到动态举报

写回复

用AI写文章

6 条回复

切换为时间正序

请发表友善的回复…

发表回复

banner90 2003-09-22

打赏
举报

第一句算我没说过

banner90 2003-09-22

打赏
举报

可以不要把事情弄大了,可没有这么复杂,
FORMLOAD代码:
InitializeMapInfoConnection

mi.do "Set Next Document Parent " & Form1.hWnd & " Style 1"

mi.do "Open table """ & App.Path & "\" & "市区道路.tab" & """ Map from 市区道路 "
mapid = Val(mi.eval("windowid(0)"))

thereIsAMap = True
Form2.Show

FORM2代码
Private Sub Form_Activate()

On Error Resume Next
'mi.runmenucommand 201
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE Or SWP_NOMOVE
mi.do "Set Next Document Parent " & Form2.hWnd & " Style 1"

mi.do "Run Application " & Chr(34) & App.Path & "\road.wor" & Chr(34)
id = Val(mi.eval("windowid(0)"))
'****layer 0 means comstic layer
mi.do "set map layer 0 editable on "
latest_x1 = CDbl(mi.eval("MapperInfo(" & mapid & ", " & MAPPER_INFO_MINX & ")"))
latest_y1 = CDbl(mi.eval("MapperInfo(" & mapid & ", " & MAPPER_INFO_MINY & ")"))
latest_x2 = CDbl(mi.eval("MapperInfo(" & mapid & ", " & MAPPER_INFO_MAXX & ")"))
latest_y2 = CDbl(mi.eval("MapperInfo(" & mapid & ", " & MAPPER_INFO_MAXY & ")"))
'mi.do "create rect into window " & id & "( " & latest_x1 & "," & latest_y1 & ")(" & latest_x2 & "," & latest_y2 & ") pen( " & 2 & "," & 2 & "," & "16711680 ) brush( " & 50 & "," & "16776960) "

End Sub

FORM2通用声明
Option Explicit

Private Declare Sub SetWindowPos Lib "User32" (ByVal hWnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long)

Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40

FORM2LOAD
Me.WindowState = 0

heqjxiaoyao 2003-09-21