河北.wor

地图查询 鹰眼 放大 缩小 vb mapx

!Workspace
!Version 650
!Charset WindowsSimpChinese
Open Table "河北.TAB" As 河北 Interactive
Open Table "河北名称" As 河北名称 Interactive
Set Window Info
  Position (9.36458,6.20833) Units "in"
  Width 2.60417 Units "in" Height 1.0625 Units "in" 
  Font ("System",0,12,0)
Open Window Info
Map From 河北名称,河北 
  Position (0.0520833,0.0520833) Units "in"
  Width 12.5417 Units "in" Height 6.51042 Units "in" 
Set Window FrontWindow() ScrollBars Off Autoscroll On
Set Map
  CoordSys NonEarth Units "ft"
  Center (256,-399)
  Zoom 1724.550898 Units "ft"
  Preserve Zoom Display Zoom
  Distance Units "ft" Area Units "sq ft" XY Units "ft"
  Distance Type Cartesian
Set Map
  Layer 1
    Display Graphic
    Global   Symbol (35,0,12)   
    Label Line Arrow Position Right Font ("Arial",0,12,0) Pen (1,2,0) 
      With 名称
      Parallel On Auto Off Overlap Off Duplicates On Offset 2
      Visibility On
  Layer 2
    Display Graphic
    Global   Symbol (35,0,12)   
    Selectable Off
    Zoom (25, 10000) Units "ft" 
  contrast 50 
  brightness 50 
  alpha 255 
    transparency on 
  color 0 
    grayscale off 
Set Map Layer 1 Editable
Set Window FrontWindow() Printer
 Name "Microsoft Office Document Image Writer" Orientation Portrait Copies 1
 Papersize 9
Browse * From 河北名称
  Position (8.61458,2.58333) Units "in"
  Width 6.625 Units "in" Height 3.28125 Units "in" 
Set Window FrontWindow() Printer
 Name "Microsoft Office Document Image Writer" Orientation Portrait Copies 1
 Papersize 9
Browse * From 河北名称
  Position (-0.0416667,-0.354167) Units "in"
  Width 0 Units "in" Height 0 Units "in" 
Set Window FrontWindow() Printer
 Name "Microsoft Office Document Image Writer" Orientation Portrait Copies 1
 Papersize 9
Dim WorkspaceMaximizedWindow As Integer
WorkspaceMaximizedWindow = Frontwindow()
Set Window WorkspaceMaximizedWindow Max
Undim WorkspaceMaximizedWindow