frmmain.frm

GIS+VB开发. GIS+VB开发.

         EndProperty
         BeginProperty ListImage12 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":2E69
            Key             =   ""
         EndProperty
         BeginProperty ListImage13 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":2EEB
            Key             =   ""
         EndProperty
         BeginProperty ListImage14 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":2F79
            Key             =   ""
         EndProperty
         BeginProperty ListImage15 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":3019
            Key             =   ""
         EndProperty
         BeginProperty ListImage16 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":30B7
            Key             =   ""
         EndProperty
         BeginProperty ListImage17 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":3126
            Key             =   ""
         EndProperty
         BeginProperty ListImage18 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":3196
            Key             =   ""
         EndProperty
         BeginProperty ListImage19 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":36AA
            Key             =   ""
         EndProperty
         BeginProperty ListImage20 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":3BBE
            Key             =   ""
         EndProperty
         BeginProperty ListImage21 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":40D2
            Key             =   ""
         EndProperty
         BeginProperty ListImage22 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":45E4
            Key             =   ""
         EndProperty
         BeginProperty ListImage23 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":4AF6
            Key             =   ""
         EndProperty
         BeginProperty ListImage24 {2C247F27-8591-11D1-B16A-00C0F0283628} 
            Picture         =   "FrmMain.frx":500A
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin MSComctlLib.Toolbar Toolbar1 
      Align           =   1  'Align Top
      Height          =   420
      Left            =   0
      TabIndex        =   2
      Top             =   0
      Width           =   9480
      _ExtentX        =   16722
      _ExtentY        =   741
      ButtonWidth     =   609
      ButtonHeight    =   582
      Appearance      =   1
      ImageList       =   "ImageList1"
      DisabledImageList=   "ImageList1"
      HotImageList    =   "ImageList1"
      _Version        =   393216
      BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628} 
         NumButtons      =   19
         BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "打开地图"
            Object.ToolTipText     =   "打开地图"
            ImageIndex      =   1
         EndProperty
         BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "保存地图"
            Object.ToolTipText     =   "保存地图"
            ImageIndex      =   12
         EndProperty
         BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "打印"
            Object.ToolTipText     =   "打印"
            ImageIndex      =   2
         EndProperty
         BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "平移"
            Object.ToolTipText     =   "平移"
            ImageIndex      =   18
            Style           =   2
         EndProperty
         BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "放大"
            Object.ToolTipText     =   "放大"
            ImageIndex      =   14
            Style           =   2
         EndProperty
         BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "缩小"
            Object.ToolTipText     =   "缩小"
            ImageIndex      =   15
            Style           =   2
         EndProperty
         BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "全图显示"
            Object.ToolTipText     =   "全图显示"
            ImageIndex      =   21
         EndProperty
         BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "单选"
            Object.ToolTipText     =   "单选"
            ImageIndex      =   13
            Style           =   2
         EndProperty
         BeginProperty Button10 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "框选"
            Object.ToolTipText     =   "框选"
            ImageIndex      =   11
            Style           =   2
         EndProperty
         BeginProperty Button11 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "圆选"
            Object.ToolTipText     =   "圆选"
            ImageIndex      =   5
            Style           =   2
         EndProperty
         BeginProperty Button12 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "多边形选择"
            Object.ToolTipText     =   "多边形选择"
            ImageIndex      =   4
            Style           =   2
         EndProperty
         BeginProperty Button13 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "取消选择"
            Object.ToolTipText     =   "取消选择"
            ImageIndex      =   23
         EndProperty
         BeginProperty Button14 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "信息查询"
            Object.ToolTipText     =   "信息查询"
            ImageIndex      =   7
            Style           =   2
         EndProperty
         BeginProperty Button15 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "测量距离"
            Object.ToolTipText     =   "测量距离"
            ImageIndex      =   6
            Style           =   2
         EndProperty
         BeginProperty Button16 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "测量面积"
            Object.ToolTipText     =   "测量面积"
            ImageIndex      =   24
            Style           =   2
         EndProperty
         BeginProperty Button17 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "图层控制"
            Object.ToolTipText     =   "图层控制"
            ImageIndex      =   8
         EndProperty
         BeginProperty Button18 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Style           =   4
         EndProperty
         BeginProperty Button19 {66833FEA-8583-11D1-B16A-00C0F0283628} 
            Description     =   "关于"
            Object.ToolTipText     =   "关于"
            ImageIndex      =   3
         EndProperty
      EndProperty
      BorderStyle     =   1
   End
   Begin MSComctlLib.StatusBar StatusBar1 
      Align           =   2  'Align Bottom
      Height          =   315
      Left            =   0
      TabIndex        =   1
      Top             =   6480
      Width           =   9480
      _ExtentX        =   16722
      _ExtentY        =   556
      _Version        =   393216
      BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628} 
         NumPanels       =   3
         BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            AutoSize        =   2
            Object.Width           =   4419
            MinWidth        =   4410
         EndProperty
         BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Object.Width           =   8819
            MinWidth        =   8819
         EndProperty
         BeginProperty Panel3 {8E3867AB-8586-11D1-B16A-00C0F0283628} 
            Alignment       =   2
            AutoSize        =   1
            Object.Width           =   2937
         EndProperty
      EndProperty
   End
   Begin VB.Menu filemenu 
      Caption         =   "文件(&F)"
      Begin VB.Menu fileopenmenu 
         Caption         =   "打开..."
         Shortcut        =   ^O
      End
      Begin VB.Menu filesavemenu 
         Caption         =   "保存"
         Shortcut        =   ^S
      End
      Begin VB.Menu filesaveasmenu 
         Caption         =   "另存为..."
      End
      Begin VB.Menu fileclosemenu 
         Caption         =   "全部关闭"
      End
      Begin VB.Menu filedefaultmenu 
         Caption         =   "缺省地图"
      End
      Begin VB.Menu file1menu 
         Caption         =   "-"
      End
      Begin VB.Menu fileoutmenu 
         Caption         =   "输出图片..."
      End
      Begin VB.Menu fileprintmenu 
         Caption         =   "打印地图..."
      End
      Begin VB.Menu file2menu 
         Caption         =   "-"
      End
      Begin VB.Menu fileendmenu 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu toolmenu 
      Caption         =   "工具(&T)"
      Begin VB.Menu toolzoominmenu 
         Caption         =   "放大"
      End
      Begin VB.Menu toolzoomoutmenu 
         Caption         =   "缩小"
      End
      Begin VB.Menu toolpanmenu 
         Caption         =   "平移"
      End
      Begin VB.Menu tool1menu 
         Caption         =   "-"
      End
      Begin VB.Menu toolzoomallmenu 
         Caption         =   "全图显示"
      End
   End
   Begin VB.Menu selectmenu 
      Caption         =   "选择(&S)"
      Begin VB.Menu selectpointmenu 
         Caption         =   "点选"
      End
      Begin VB.Menu selectrectmenu 
         Caption         =   "框选"
      End
      Begin VB.Menu selectcirclemenu 
         Caption         =   "圆选"
      End
      Begin VB.Menu selectpolymenu 
         Caption         =   "多边形选择"
      End
      Begin VB.Menu select1menu 
         Caption         =   "-"
      End
      Begin VB.Menu selectnonemenu 
         Caption         =   "全部不选"
      End
   End
   Begin VB.Menu searchmenu 
      Caption         =   "查询(&Q)"
      Begin VB.Menu searchblurmenu 
         Caption         =   "模糊查询"
      End
      Begin VB.Menu searchboundmenu 
         Caption         =   "范围查询"
      End
      Begin VB.Menu searchadvmenu 
         Caption         =   "高级查询..."
      End
      Begin VB.Menu search2menu 
         Caption         =   "-"
      End
      Begin VB.Menu searchgotomenu 
         Caption         =   "坐标定位..."
      End
      Begin VB.Menu searchscalemenu 
         Caption         =   "比例尺..."
      End
      Begin VB.Menu searchlayermenu 
         Caption         =   "查看图层..."
      End
      Begin VB.Menu search1menu 
         Caption         =   "-"
      End
      Begin VB.Menu searchinfomenu 
         Caption         =   "信息查询"
      End
      Begin VB.Menu searchdistancemenu 
         Caption         =   "距离查询"
      End
      Begin VB.Menu searchareamenu 
         Caption         =   "面积查询"
      End
   End
   Begin VB.Menu setmenu 
      Caption         =   "设置(&C)"
      Begin VB.Menu setsearchmenu 
         Caption         =   "查询设置"
      End
      Begin VB.Menu setlayermenu 
         Caption         =   "图层控制"
      End
      Begin VB.Menu setsystemmenu 
         Caption         =   "系统设置"
      End
   End
   Begin VB.Menu helpmenu 
      Caption         =   "帮助(&H)"
      Begin VB.Menu helphelpmenu 
         Caption         =   "帮助主题..."
         Shortcut        =   {F1}
      End
      Begin VB.Menu help1menu 
         Caption         =   "-"
      End
      Begin VB.Menu helpquestionmenu 
         Caption         =   "问题反馈..."
      End
      Begin VB.Menu helpregmenu 
         Caption         =   "注册系统..."
      End
      Begin VB.Menu help2menu 
         Caption         =   "-"
      End
      Begin VB.Menu helpaboutmenu 
         Caption         =   "关于系统..."
      End
   End
   Begin VB.Menu popmenu 
      Caption         =   "PopMenu"
      Visible         =   0   'False
      Begin VB.Menu popzoominmenu 
         Caption         =   "放大"
      End
      Begin VB.Menu popzoomoutmenu 
         Caption         =   "缩小"
      End
      Begin VB.Menu poppanmenu 
         Caption         =   "平移"
      End
      Begin VB.Menu pop1menu 
         Caption         =   "-"
      End
      Begin VB.Menu popgotomenu 
         Caption         =   "坐标定位..."
      End
      Begin VB.Menu popscalemenu 
         Caption         =   "比例尺..."
      End
      Begin VB.Menu poplayermenu 
         Caption         =   "查看图层..."
      End
      Begin VB.Menu pop2menu 
         Caption         =   "-"
      End
      Begin VB.Menu popaboutmenu 
         Caption         =   "关于系统"
      End
   End
End
Attribute VB_Name = "FrmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Option Base 1
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long    'API函数，Shell
Public MyMapUnit As Integer, MyMapAreaUnit As String    '地图的单位
Dim MyFileName As String, MyFilePath As String
Dim m_TempLayer As MapXLib.Layer     '导航图上临时图层
Dim m_Fea As MapXLib.Feature '导航图上反映主地图窗口位置的Feature
Dim bDown As Boolean         '鼠标在导航图上按下的标志

Private Sub CmdAdd_Click()
'添加图层
Dim sfile As String, inta As Integer
On Error GoTo MapErr
With CommonDialog1
    .DialogTitle = "电子地图查询系统----添加图层"
    .CancelError = True
    .filename = ""
    .Filter = "mapinfo table(*.tab)|*.tab"
'    .Flags = cdlOFNAllowMultiselect
    .ShowOpen
    If Len(.filename) = 0 Then
        Exit Sub
    End If
    sfile = .filename
End With
inta = MyMap.Layers.Count + 1
MyMap.Layers.Add sfile, inta
Eagle.Layers.Add sfile, inta + 1
Eagle.Layers.Item(MyMap.Layers(inta).Name).Visible = False   '图层不显示以提高鹰眼显示速度
Eagle.Bounds = Eagle.Layers.Bounds
TreeView1.Nodes.Add MyMap.Layers(2).Name, tvwLast, MyMap.Layers(inta).Name, MyMap.Layers(inta).Name
'TreeView1.Nodes.Item(MyMap.Layers(inta).Name).Checked = True
Exit Sub
MapErr:
    If Err <> 32755 Then ' 32755 : Cancel was selected
        MsgBox "不能添加图层: """ & sfile & """ Error #" & Str(Err) & ": " & Error
    End If
End Sub

Private Sub CmdDown_Click()
Dim ii As Integer, TempFlag As Boolean, jj As Integer
TempFlag = False
For ii = 2 To TreeView1.Nodes.Count
  If TreeView1.Nodes.Item(ii).Selected Then TempFlag = True
Next ii
If TempFlag Then
  If TreeView1.SelectedItem.Index = TreeView1.Nodes.Count Then
    MsgBox "图层已经在最下"
    Exit Sub
  Else
    jj = TreeView1.SelectedItem.Index
    MyMap.Layers.Move jj - 1, jj
    Eagle.Layers.Move jj, jj + 1
    LayerList
  End If
Else
  MsgBox "请先选择一个图层"
  Exit Sub
End If
End Sub

Private Sub CmdLayer_Click()