main.frm

GIS地理信息系统开发。大名鼎鼎的MAPX＋VisualBasic6.0软件开发

      Map.Layers.Layer3.LabelProperties.Offset=   2
      Map.Layers.Layer3.LabelProperties.LineType=   0
      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=   0
      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.TextFontColor=   128
      Map.Layers.Layer3.LabelProperties.Style.TextFontBackColor=   13696976
      Map.Layers.Layer3.LabelProperties.Style.TextFontHalo=   -1  'True
      Map.Layers.Layer3.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer3.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
      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=   "ocn_asia.tab"
      Map.Layers.Layer4.Name=   "Ocean (for Asia Maps)"
      Map.Layers.Layer4.Visible=   -1  'True
      Map.Layers.Layer4.Selectable=   0   'False
      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=   -1  'True
      Map.Layers.Layer4.LabelProperties.Offset=   2
      Map.Layers.Layer4.LabelProperties.LineType=   0
      Map.Layers.Layer4.LabelProperties.Zoom=   0   'False
      Map.Layers.Layer4.LabelProperties.ZoomMin=   0
      Map.Layers.Layer4.LabelProperties.ZoomMax=   10000
      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.TextFontBackColor=   16777215
      Map.Layers.Layer4.LabelProperties.Style.SymbolChar=   0
      BeginProperty Map.Layers.Layer4.LabelProperties.Style.TextFont {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Arial"
         Size            =   9
         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=   "Main.frx":0000
      Map.DisplayCoordSys.ProjectionInfo=   "Main.frx":0130
      Map.Zoom        =   10480
      Map.CenterX     =   106.509527
      Map.CenterY     =   32.939751
      FeatureEditMode =   1
   End
   Begin VB.TextBox Text1 
      Height          =   375
      Left            =   6360
      TabIndex        =   4
      Text            =   "Text1"
      Top             =   0
      Width           =   975
   End
   Begin VB.CommandButton Command4 
      Caption         =   "Select"
      Height          =   375
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton Command3 
      Caption         =   "Pan"
      Height          =   375
      Left            =   840
      TabIndex        =   2
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton Command2 
      Caption         =   "ZoomIn"
      Height          =   375
      Left            =   1680
      TabIndex        =   1
      Top             =   0
      Width           =   855
   End
   Begin VB.CommandButton Command1 
      Caption         =   "ZoomOut"
      Height          =   375
      Left            =   2520
      TabIndex        =   0
      Top             =   0
      Width           =   855
   End
   Begin VB.Menu mnuFile 
      Caption         =   "File"
      Begin VB.Menu mnuExit 
         Caption         =   "Exit"
      End
   End
   Begin VB.Menu mnuMap 
      Caption         =   "Map"
      Begin VB.Menu mnuLayerControl 
         Caption         =   "Layer Control..."
      End
   End
   Begin VB.Menu mnuData 
      Caption         =   "Data"
      Begin VB.Menu mnuThemeWizard 
         Caption         =   "Create Theme..."
      End
   End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
' This sample application and corresponding sample code is provided
' for example purposes only.  It has not undergone rigorous testing
' and as such should not be shipped as part of a final application
' without extensive testing on the part of the organization releasing
' the end-user product.

Private Sub Command1_Click()
Map1.CurrentTool = miZoomOutTool
End Sub


Private Sub Command2_Click()
Map1.CurrentTool = miZoomInTool
End Sub

Private Sub Command3_Click()
Map1.CurrentTool = miPanTool
End Sub


Private Sub Command4_Click()
Map1.CurrentTool = miSelectTool
End Sub


Private Sub Command5_Click()
    LayerCtrl.Show vbModal
End Sub


Private Sub Command6_Click()
    Find.Show vbModal
End Sub



Private Sub Form_Resize()
    '----------------------------------------------------------------------
    ' Uncomment the following code to get the map to resize automatically
    ' when the form is resized.
    '----------------------------------------------------------------------

    ' Map1.AutoRedraw = False
    ' Map1.Top = Command4.Top + Command4.Height + 50
    ' Map1.Height = Main.ScaleHeight - (Command4.Top + Command4.Height + 50)
    ' Map1.Left = 0
    ' Map1.Width = Main.ScaleWidth
    ' Map1.AutoRedraw = True

End Sub

Private Sub map1_MapViewChanged()
  Text1.Text = Map1.Zoom
End Sub

Private Sub Map1_ThemeModifyRequested(ByVal theme As Object)
    ' this event gets called when the legend is
    ' double clicked on.
    theme.ThemeDlg
End Sub


Private Sub mnuExit_Click()
End
End Sub


Private Sub mnuFind_Click()
    Find.Show vbModal
End Sub


Private Sub mnuLayerControl_Click()
    Map1.Layers.LayersDlg
End Sub


Private Sub mnuThemeWizard_Click()
      Theme1.Show vbModal
End Sub


Private Sub Text1_LostFocus()
  Map1.Zoom = Text1.Text
End Sub