⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 jjj.frm

📁 本人利用VB+MAPX编写了一个专题的图
💻 FRM
📖 第 1 页 / 共 3 页
字号:
VERSION 5.00
Object = "{E760686B-BC9E-4802-9ECF-175FDF4062CE}#5.0#0"; "MAPX50.DLL"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   10170
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   14565
   LinkTopic       =   "Form1"
   ScaleHeight     =   10170
   ScaleWidth      =   14565
   StartUpPosition =   3  '窗口缺省
   Begin MapXLib.Map Map2 
      Height          =   3495
      Left            =   9480
      TabIndex        =   18
      Top             =   5640
      Width           =   4695
      _Version        =   500012
      _ExtentX        =   8281
      _ExtentY        =   6165
      _StockProps     =   1
      MapCatalog.GeoDictionary=   "GeoDictionary"
      GeoSet          =   "United States"
      GeoSetUserName  =   "United States"
      DefaultStyle.TextFontBackColor=   16777215
      DefaultStyle.SupportsBitmapSymbols=   -1  'True
      DefaultStyle.SymbolChar=   55
      DefaultStyle.SymbolFontBackColor=   16777215
      BeginProperty DefaultStyle.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty DefaultStyle.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Map Symbols"
         Size            =   14.25
         Charset         =   2
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      DefaultStyle.LineStyle=   1
      DefaultStyle.LineWidth=   1
      DefaultStyle.RegionColor=   16777215
      DefaultStyle.LinePattern=   2
      DefaultStyle.RegionBackColor=   16777215
      DefaultStyle.RegionBorderStyle=   1
      DefaultStyle.RegionBorderWidth=   1
      Title.Visible   =   -1  'True
      Title.Style.TextFontBackColor=   16777215
      Title.Style.TextFontOpaque=   -1  'True
      Title.Style.SymbolChar=   0
      BeginProperty Title.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   23.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Title.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   23.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Title.X         =   1564
      Title.Y         =   233
      Map.Layers.Count=   5
      Map.Layers.Layer0.HasFileSpec=   -1  'True
      Map.Layers.Layer0.Skip=   0   'False
      Map.Layers.Layer0.Path=   "Uscty_20.tab"
      Map.Layers.Layer0.Name=   "US Top 20 Cities"
      Map.Layers.Layer0.Visible=   -1  'True
      Map.Layers.Layer0.Selectable=   -1  'True
      Map.Layers.Layer0.Editable=   0   'False
      Map.Layers.Layer0.ShowNodes=   0   'False
      Map.Layers.Layer0.ShowCentroids=   0   'False
      Map.Layers.Layer0.ShowLineDirection=   0   'False
      Map.Layers.Layer0.AutoLabel=   -1  'True
      Map.Layers.Layer0.DrawLabelsAfter=   0   'False
      Map.Layers.Layer0.ZoomLayering=   -1  'True
      Map.Layers.Layer0.ZoomMin=   400
      Map.Layers.Layer0.ZoomMax=   3500
      Map.Layers.Layer0.DoOverrideStyle=   0   'False
      Map.Layers.Layer0.LabelProperties.LabelMax=   100
      Map.Layers.Layer0.LabelProperties.Overlap=   0   'False
      Map.Layers.Layer0.LabelProperties.Duplicate=   0   'False
      Map.Layers.Layer0.LabelProperties.Offset=   2
      Map.Layers.Layer0.LabelProperties.LineType=   2
      Map.Layers.Layer0.LabelProperties.Zoom=   -1  'True
      Map.Layers.Layer0.LabelProperties.ZoomMin=   400
      Map.Layers.Layer0.LabelProperties.ZoomMax=   2000
      Map.Layers.Layer0.LabelProperties.Visible=   -1  'True
      Map.Layers.Layer0.LabelProperties.Position=   5
      Map.Layers.Layer0.LabelProperties.Parallel=   0   'False
      Map.Layers.Layer0.LabelProperties.LabelAlong=   0
      Map.Layers.Layer0.LabelProperties.PartialSegments=   0   'False
      Map.Layers.Layer0.LabelProperties.Style.TextFontBackColor=   16777215
      Map.Layers.Layer0.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer0.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Map.Layers.Layer0.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Map.Layers.Layer0.LabelProperties.Style.LineStyle=   1
      Map.Layers.Layer0.LabelProperties.Style.LineWidth=   1
      Map.Layers.Layer1.HasFileSpec=   -1  'True
      Map.Layers.Layer1.Skip=   0   'False
      Map.Layers.Layer1.Path=   "usa_caps.tab"
      Map.Layers.Layer1.Name=   "US Capitals"
      Map.Layers.Layer1.Visible=   -1  'True
      Map.Layers.Layer1.Selectable=   -1  'True
      Map.Layers.Layer1.Editable=   0   'False
      Map.Layers.Layer1.ShowNodes=   0   'False
      Map.Layers.Layer1.ShowCentroids=   0   'False
      Map.Layers.Layer1.ShowLineDirection=   0   'False
      Map.Layers.Layer1.AutoLabel=   -1  'True
      Map.Layers.Layer1.DrawLabelsAfter=   0   'False
      Map.Layers.Layer1.ZoomLayering=   -1  'True
      Map.Layers.Layer1.ZoomMin=   400
      Map.Layers.Layer1.ZoomMax=   1500
      Map.Layers.Layer1.DoOverrideStyle=   0   'False
      Map.Layers.Layer1.LabelProperties.LabelMax=   100
      Map.Layers.Layer1.LabelProperties.Overlap=   0   'False
      Map.Layers.Layer1.LabelProperties.Duplicate=   0   'False
      Map.Layers.Layer1.LabelProperties.Offset=   2
      Map.Layers.Layer1.LabelProperties.LineType=   2
      Map.Layers.Layer1.LabelProperties.Zoom=   0   'False
      Map.Layers.Layer1.LabelProperties.ZoomMin=   0
      Map.Layers.Layer1.LabelProperties.ZoomMax=   10000
      Map.Layers.Layer1.LabelProperties.Visible=   -1  'True
      Map.Layers.Layer1.LabelProperties.Position=   5
      Map.Layers.Layer1.LabelProperties.Parallel=   0   'False
      Map.Layers.Layer1.LabelProperties.LabelAlong=   0
      Map.Layers.Layer1.LabelProperties.PartialSegments=   0   'False
      Map.Layers.Layer1.LabelProperties.Style.TextFontBackColor=   16777215
      Map.Layers.Layer1.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer1.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Map.Layers.Layer1.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Map.Layers.Layer1.LabelProperties.Style.LineStyle=   1
      Map.Layers.Layer1.LabelProperties.Style.LineWidth=   1
      Map.Layers.Layer2.HasFileSpec=   -1  'True
      Map.Layers.Layer2.Skip=   0   'False
      Map.Layers.Layer2.Path=   "uscty_1k.tab"
      Map.Layers.Layer2.Name=   "US Major Cities"
      Map.Layers.Layer2.Visible=   -1  'True
      Map.Layers.Layer2.Selectable=   -1  'True
      Map.Layers.Layer2.Editable=   0   'False
      Map.Layers.Layer2.ShowNodes=   0   'False
      Map.Layers.Layer2.ShowCentroids=   0   'False
      Map.Layers.Layer2.ShowLineDirection=   0   'False
      Map.Layers.Layer2.AutoLabel=   -1  'True
      Map.Layers.Layer2.DrawLabelsAfter=   0   'False
      Map.Layers.Layer2.ZoomLayering=   -1  'True
      Map.Layers.Layer2.ZoomMin=   180
      Map.Layers.Layer2.ZoomMax=   400
      Map.Layers.Layer2.DoOverrideStyle=   0   'False
      Map.Layers.Layer2.LabelProperties.LabelMax=   100
      Map.Layers.Layer2.LabelProperties.Overlap=   0   'False
      Map.Layers.Layer2.LabelProperties.Duplicate=   0   'False
      Map.Layers.Layer2.LabelProperties.Offset=   2
      Map.Layers.Layer2.LabelProperties.LineType=   2
      Map.Layers.Layer2.LabelProperties.Zoom=   0   'False
      Map.Layers.Layer2.LabelProperties.ZoomMin=   0
      Map.Layers.Layer2.LabelProperties.ZoomMax=   10000
      Map.Layers.Layer2.LabelProperties.Visible=   -1  'True
      Map.Layers.Layer2.LabelProperties.Position=   5
      Map.Layers.Layer2.LabelProperties.Parallel=   0   'False
      Map.Layers.Layer2.LabelProperties.LabelAlong=   0
      Map.Layers.Layer2.LabelProperties.PartialSegments=   0   'False
      Map.Layers.Layer2.LabelProperties.Style.TextFontBackColor=   16777215
      Map.Layers.Layer2.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer2.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Map.Layers.Layer2.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Map.Layers.Layer2.LabelProperties.Style.LineStyle=   1
      Map.Layers.Layer2.LabelProperties.Style.LineWidth=   1
      Map.Layers.Layer3.HasFileSpec=   -1  'True
      Map.Layers.Layer3.Skip=   0   'False
      Map.Layers.Layer3.Path=   "uscty_8k.tab"
      Map.Layers.Layer3.Name=   "US Minor Cities"
      Map.Layers.Layer3.Visible=   -1  'True
      Map.Layers.Layer3.Selectable=   -1  'True
      Map.Layers.Layer3.Editable=   0   'False
      Map.Layers.Layer3.ShowNodes=   0   'False
      Map.Layers.Layer3.ShowCentroids=   0   'False
      Map.Layers.Layer3.ShowLineDirection=   0   'False
      Map.Layers.Layer3.AutoLabel=   -1  'True
      Map.Layers.Layer3.DrawLabelsAfter=   0   'False
      Map.Layers.Layer3.ZoomLayering=   -1  'True
      Map.Layers.Layer3.ZoomMin=   0
      Map.Layers.Layer3.ZoomMax=   180
      Map.Layers.Layer3.DoOverrideStyle=   0   'False
      Map.Layers.Layer3.LabelProperties.LabelMax=   100
      Map.Layers.Layer3.LabelProperties.Overlap=   0   'False
      Map.Layers.Layer3.LabelProperties.Duplicate=   0   'False
      Map.Layers.Layer3.LabelProperties.Offset=   2
      Map.Layers.Layer3.LabelProperties.LineType=   2
      Map.Layers.Layer3.LabelProperties.Zoom=   0   'False
      Map.Layers.Layer3.LabelProperties.ZoomMin=   0
      Map.Layers.Layer3.LabelProperties.ZoomMax=   10000
      Map.Layers.Layer3.LabelProperties.Visible=   -1  'True
      Map.Layers.Layer3.LabelProperties.Position=   5
      Map.Layers.Layer3.LabelProperties.Parallel=   0   'False
      Map.Layers.Layer3.LabelProperties.LabelAlong=   0
      Map.Layers.Layer3.LabelProperties.PartialSegments=   0   'False
      Map.Layers.Layer3.LabelProperties.Style.TextFontBackColor=   16777215
      Map.Layers.Layer3.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer3.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "System"
         Size            =   12
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Map.Layers.Layer3.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Map.Layers.Layer3.LabelProperties.Style.LineStyle=   1
      Map.Layers.Layer3.LabelProperties.Style.LineWidth=   1
      Map.Layers.Layer4.HasFileSpec=   -1  'True
      Map.Layers.Layer4.Skip=   0   'False
      Map.Layers.Layer4.Path=   "usa.tab"
      Map.Layers.Layer4.Name=   "USA"
      Map.Layers.Layer4.Visible=   -1  'True
      Map.Layers.Layer4.Selectable=   -1  'True
      Map.Layers.Layer4.Editable=   0   'False
      Map.Layers.Layer4.ShowNodes=   0   'False
      Map.Layers.Layer4.ShowCentroids=   0   'False
      Map.Layers.Layer4.ShowLineDirection=   0   'False
      Map.Layers.Layer4.AutoLabel=   0   'False
      Map.Layers.Layer4.DrawLabelsAfter=   0   'False
      Map.Layers.Layer4.ZoomLayering=   0   'False
      Map.Layers.Layer4.ZoomMin=   0
      Map.Layers.Layer4.ZoomMax=   0
      Map.Layers.Layer4.DoOverrideStyle=   0   'False
      Map.Layers.Layer4.LabelProperties.LabelMax=   100
      Map.Layers.Layer4.LabelProperties.Overlap=   0   'False
      Map.Layers.Layer4.LabelProperties.Duplicate=   0   'False
      Map.Layers.Layer4.LabelProperties.Offset=   2
      Map.Layers.Layer4.LabelProperties.LineType=   0
      Map.Layers.Layer4.LabelProperties.Zoom=   -1  'True
      Map.Layers.Layer4.LabelProperties.ZoomMin=   400
      Map.Layers.Layer4.LabelProperties.ZoomMax=   3500.5
      Map.Layers.Layer4.LabelProperties.Visible=   -1  'True
      Map.Layers.Layer4.LabelProperties.Position=   0
      Map.Layers.Layer4.LabelProperties.Parallel=   0   'False
      Map.Layers.Layer4.LabelProperties.LabelAlong=   0
      Map.Layers.Layer4.LabelProperties.PartialSegments=   0   'False
      Map.Layers.Layer4.LabelProperties.Style.TextFontColor=   128
      Map.Layers.Layer4.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer4.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      BeginProperty Map.Layers.Layer4.LabelProperties.Style.SymbolFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Map.Layers.Layer4.LabelProperties.Style.LineStyle=   1
      Map.Layers.Layer4.LabelProperties.Style.LineWidth=   1
      Map.NumericCoordSys.ProjectionInfo=   "jjj.frx":0000
      Map.DisplayCoordSys.ProjectionInfo=   "jjj.frx":0130
      Map.Zoom        =   3500

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -