?? 地圖窗口鑲嵌.mb
字號(hào):
'不僅在OLE方式下,而且在Mapbasic中,也可以使用set Next Document功能,
'可以在一個(gè)父窗口中嵌入其它窗口,如:custom legend window,map/browse window 等,
'但系統(tǒng)窗口,如:ruler window,系統(tǒng)legend window(用Open Window Legend語(yǔ)句)等,則無(wú)法作為子窗口嵌入進(jìn)去。
Dim winid as float
close all interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\States.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\Statecap.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\USA\Us_hiway.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\Ocean.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\World.tab" Interactive
Open Table "C:\Program Files\MapInfo\Professional\Data\WORLD\Grid15.tab" Interactive
Map From States
Add Map Auto Layer Statecap
Add Map Auto Layer Us_hiway
winid=windowid(0)
shade window winid 3 with Pop_1980 ranges apply all use color Brush (2,65280,16777215) 400000: 1000000 Brush (2,65280,16777215) Pen (1,2,0) ,1000000: 2500000 Brush (2,5308160,16777215) Pen (1,2,0) ,2500000: 4100000 Brush (2,11599616,16777215) Pen (1,2,0) ,4100000: 5700000 Brush (2,16760896,16777215) Pen (1,2,0) ,5700000: 23700000 Brush (2,16744576,16777215) Pen (1,2,0) default Brush (2,16777215,16777215) Pen (1,2,0)
set Next Document Parent WindowInfo(winid,12) Style 1
Create Legend From Window winid
'(注意,這時(shí)Legend Window 的window ID等于windowid(0),
'而Map Window的window ID已等于windowid(1)。)
set window winid max
set Next Document Parent WindowInfo(winid,12) Style 1
Browse * from states
set window windowid(0) Position(0,3.3) Width 3 Height 1.5
'注意,這時(shí)對(duì)子窗口world的圖層控制有問(wèn)題,當(dāng)改變子窗口world的圖層控制時(shí),
'實(shí)際上改變了父窗口的圖層控制
set Next Document Parent WindowInfo(winid,12) Style 1
Map From Ocean
Add Map Auto Layer World
Add Map Auto Layer Grid15
set window windowid(0) Position(5.3,3.3) Width 3 Height 1.5
?? 快捷鍵說(shuō)明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號(hào)
Ctrl + =
減小字號(hào)
Ctrl + -