HelpContextID   =   255
      End
      Begin VB.Menu mnuMapCopyView 
         Caption         =   "副本視圖"
         Enabled         =   0   'False
         HelpContextID   =   256
      End
      Begin VB.Menu menuMapPreviousView 
         Caption         =   "前一視圖"
         HelpContextID   =   257
      End
      Begin VB.Menu mnuMapEntireLayer 
         Caption         =   "查看整個圖層"
         HelpContextID   =   258
      End
      Begin VB.Menu mnuMapSeparator4 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMapClearCustomLabels 
         Caption         =   "清除自定義標注"
         HelpContextID   =   259
      End
      Begin VB.Menu mnuMapSaveCosmetic 
         Caption         =   "保存裝飾圖層對象"
         HelpContextID   =   2510
      End
      Begin VB.Menu mnuMapClearCosmetic 
         Caption         =   "清除裝飾圖層對象"
         HelpContextID   =   2511
      End
      Begin VB.Menu mnuMapSeparator5 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMapSetClip 
         Caption         =   "設置裁減區域"
         HelpContextID   =   2512
      End
      Begin VB.Menu mnuMapCloseClip 
         Caption         =   "關閉裁減區域"
         HelpContextID   =   2513
      End
      Begin VB.Menu mnuMapSeparator6 
         Caption         =   "-"
      End
      Begin VB.Menu mnuMapOptions 
         Caption         =   "地圖投影..."
         HelpContextID   =   2514
      End
   End
   Begin VB.Menu mnuWindow 
      Caption         =   "窗口"
      HelpContextID   =   26
      WindowList      =   -1  'True
      Begin VB.Menu mnuWindowBrowserWindow 
         Caption         =   "新建瀏覽窗口"
         HelpContextID   =   261
         Shortcut        =   {F2}
      End
      Begin VB.Menu mnuWindowNewWindow 
         Caption         =   "新建地圖窗口"
         Enabled         =   0   'False
         HelpContextID   =   262
         Shortcut        =   {F3}
      End
      Begin VB.Menu menuWindowStatisticWindow 
         Caption         =   "新建統計圖窗口"
         HelpContextID   =   263
         Shortcut        =   {F4}
      End
      Begin VB.Menu menuWindowLayerOut 
         Caption         =   "新建圖層輸出窗口"
         HelpContextID   =   264
         Shortcut        =   {F5}
      End
      Begin VB.Menu mnuWindowBar1 
         Caption         =   "-"
      End
      Begin VB.Menu mnuWindowCascade 
         Caption         =   "層疊"
         HelpContextID   =   267
      End
      Begin VB.Menu mnuWindowTileHorizontal 
         Caption         =   "橫向平鋪"
         HelpContextID   =   266
      End
      Begin VB.Menu mnuWindowTileVertical 
         Caption         =   "縱向平鋪"
      End
      Begin VB.Menu mnuWindowArrangeIcons 
         Caption         =   "排列圖標"
         HelpContextID   =   268
      End
   End
   Begin VB.Menu mnuTools 
      Caption         =   "工具"
      HelpContextID   =   80
      Begin VB.Menu mnuViewToolbar 
         Caption         =   "22.工具欄"
         Checked         =   -1  'True
         HelpContextID   =   814
      End
      Begin VB.Menu mnuViewStatusBar 
         Caption         =   "23.狀態欄"
         Checked         =   -1  'True
         HelpContextID   =   815
      End
   End
   Begin VB.Menu mnuShortPath 
      Caption         =   "最短路徑"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim TheInPath As String, TheInFile As String
Dim TheWorFile As String
'處理工作空間的窗體條
Private Sub UpdateTitleWor()
Dim I As Integer, N As Integer, Temp As String

On Error GoTo Error
If thereIsAMap Then
    N = CLng(MapInfo.Eval("MapperInfo(" & mapWinID & "," & MAPPER_INFO_LAYERS & ")"))
    Temp = ""
    For I = 1 To N - 1
        Temp = Temp + MapInfo.Eval("TableInfo(" & I & "," & TAB_INFO_NAME & ")") + ","
    Next I
    Temp = Temp + MapInfo.Eval("TableInfo(" & N & "," & TAB_INFO_NAME & ")")
    ActiveForm.Caption = Temp + " Map"
End If
Error:
End Sub


Private Sub AllQuery_Click()
    MapInfo.RunMenuCommand M_ANALYZE_SELECTALL
End Sub

Private Sub AntiAllQuery_Click()
    MapInfo.RunMenuCommand 311
End Sub


Private Sub CalStastics_Click()
    MapInfo.RunMenuCommand M_ANALYZE_CALC_STATISTICS
End Sub

Private Sub Find_Selection_Click()
    MapInfo.RunMenuCommand M_ANALYZE_FIND_SELECTION
End Sub

Private Sub FindSome_Click()
    MapInfo.RunMenuCommand M_ANALYZE_FIND
End Sub

Private Sub LayerQuery_Click()
    MapInfo.RunMenuCommand M_ANALYZE_SELECT
End Sub

Private Sub MDIForm_Load()
bExitSub = False

TheInstallPath = App.Path + "\"
App.HelpFile = App.Path + "\幫助\MapSIS11.HLP"

InitializeMapInfoConnection

Call LoadStartUpWor

'End啟動時調用
Unload frmAbout


End Sub
'更新選單（Menu)和工具條(ToolBar)
Private Sub UpdateMenuAndToolbar(thereIsAMap As Boolean)
    Dim I As Integer

    Call SetToolBarValue0

    tbarMain.Buttons("Select").Enabled = thereIsAMap
    tbarMain.Buttons("Move").Enabled = thereIsAMap
    tbarMain.Buttons("ZoomIn").Enabled = thereIsAMap
    tbarMain.Buttons("ZoomOut").Enabled = thereIsAMap
    ''tbarMain.Buttons("ChangeView").Enabled = thereIsAMap
    tbarMain.Buttons("SelectRect").Enabled = thereIsAMap
    tbarMain.Buttons("SelectCircle").Enabled = thereIsAMap
    tbarMain.Buttons("SelectCreatePoly").Enabled = thereIsAMap
    tbarMain.Buttons("SelectPoly").Enabled = thereIsAMap
    tbarMain.Buttons("AntiSelect").Enabled = thereIsAMap
    tbarMain.Buttons("ManMark").Enabled = thereIsAMap

    tbarMain.Buttons("Symbol").Enabled = thereIsAMap
    tbarMain.Buttons("Line").Enabled = thereIsAMap
    tbarMain.Buttons("PolyLine").Enabled = thereIsAMap
    tbarMain.Buttons("Arc").Enabled = thereIsAMap
    tbarMain.Buttons("Polygon").Enabled = thereIsAMap
    tbarMain.Buttons("Ellipse").Enabled = thereIsAMap
    tbarMain.Buttons("Rectangle").Enabled = thereIsAMap
    tbarMain.Buttons("RoundedRectangle").Enabled = thereIsAMap
    tbarMain.Buttons("Text").Enabled = thereIsAMap
    tbarMain.Buttons("ReShape").Enabled = thereIsAMap
    tbarMain.Buttons("AddNode").Enabled = thereIsAMap
    tbarMain.Buttons("SymbolStyle").Enabled = thereIsAMap
    tbarMain.Buttons("LineStyle").Enabled = thereIsAMap
    tbarMain.Buttons("RegionStyle").Enabled = thereIsAMap
    tbarMain.Buttons("TextStyle").Enabled = thereIsAMap

    If thereIsAMap Then '有圖層打開
        '* a map is open. Enable "Close Layer" only if a selection exists in the layer list box
        '    If .lstLayers.ListIndex < 1 Then
        '        .mnuFileClose.Enabled = False   '* map is open, but no tables selected
        '        MapInfo.Do "Alter Menu Item ID 1003 Disable"    '* disable item in shortcut menu
        '    Else
        '        .mnuFileClose.Enabled = True    '* map is open, table is selected
        '        MapInfo.Do "Alter Menu Item ID 1003 Enable"     '* enable item in shortcut menu
        '    End If
        '使選擇工具選中
        tbarMain.Buttons("Select").Value = tbrPressed
        MapInfo.RunMenuCommand M_TOOLS_SELECTOR
    Else '沒有打開一個圖層,
        '* no map is open. Disable the "Close Layer" menu item
        'frmMain.mnuFileClose.Enabled = False

        '使選擇工具有效,其它無效
        MapInfo.RunMenuCommand M_TOOLS_SELECTOR
    End If

    mnuFileClose.Enabled = thereIsAMap
    menuAllClose.Enabled = thereIsAMap
    mnuFileSave.Enabled = thereIsAMap
    mnuFileSaveAs.Enabled = thereIsAMap
    menuSaveWor.Enabled = thereIsAMap
    menuSaveAsWor.Enabled = thereIsAMap

    menuSaveWindow.Enabled = thereIsAMap

    menuRecov.Enabled = thereIsAMap
    mnuFilePageSetup.Enabled = thereIsAMap
    mnuFilePrint.Enabled = thereIsAMap

    mnuEdit.Enabled = thereIsAMap
    mnuObjects.Enabled = thereIsAMap
    mnuQuery.Enabled = thereIsAMap
    mnuTable.Enabled = thereIsAMap
    mnuMap.Enabled = thereIsAMap
    mnuWindow.Enabled = thereIsAMap
    
    mnuSaveDefaultWor.Enabled = thereIsAMap

    Call EnabledMenuAndToolbar
    If (thereIsAMap = True) Then
        MapInfo.Do "Set Map XY Units ""degree"" Distance Units ""km"" Area Units ""sq km"""
    End If
End Sub
'打開MapInfo表對話框
Public Sub OpenNewTable()
Dim I As Integer, Error As Integer

On Error GoTo Error

If (MapinfoRunTime = True) Then
    FormNewTables.Show 1
    If (bOKCancel = True) Then
        Call BrowserAddCreateTable(TableName, iMapper)
    End If
    If (iMapper = 1) Then
        MapInfo.Do "Set Map Layer 1 Editable ON"
    End If
    Exit Sub
Else
    MapInfo.RunMenuCommand M_FILE_NEW
End If

TableName = MapInfo.Eval("TableInfo(0," & TAB_INFO_NAME & ")")
I = InStr(TableName, ".")
If (I > 0) Then
    TableName = Left(TableName, I - 1)
End If
I = InStr(TableName, Chr(0))
If (I > 0) Then
    TableName = Left(TableName, I - 1)
End If

If MapInfo.Eval("TableInfo(" & TableName & "," & TAB_INFO_MAPPABLE & ")") = "F" Then
    iMapper = 0
Else
    iMapper = 1
End If

If (thereIsAMap = False) Then
    Call BrowserAddCreateTable(TableName, iMapper)
End If
Error:
End Sub
'打開MapInfo表對話框
Public Sub OpenOldTable()
Dim TheFile As String, TableName As String
Dim I As Integer

On Error GoTo UserCancelled
''If (MapinfoRunTime = True) Then
    dlgOpenTable.Filter = "MapInfo Tables (*.tab)|*.tab"
    dlgOpenTable.FilterIndex = 1

    dlgOpenTable.ShowOpen

    TheFile = dlgOpenTable.FileName
    TheInFile = dlgOpenTable.FileName

    '取表別名
    TableName = dlgOpenTable.FileTitle ' MapInfo.Eval("PathToTableName$( """ & TheFile & """ )")
    TableName = Left(TableName, Len(TableName) - 4)

    '開表
    MapInfo.Do "Open Table """ & TheFile & """ as " & TableName
''Else
''    MapInfo.RunMenuCommand M_FILE_OPEN

''    TableName = MapInfo.Eval("TableInfo(0," & TAB_INFO_NAME & ")")
''    I = InStr(TableName, ".")
''    If (I > 0) Then
''        TableName = Left(TableName, I - 1)
''    End If
''    I = InStr(TableName, Chr(0))
''    If (I > 0) Then
''        TableName = Left(TableName, I - 1)
''    End If
''End If
If MapInfo.Eval("TableInfo(" & TableName & "," & TAB_INFO_MAPPABLE & ")") = "F" Then
    iMapper = 0
Else
    iMapper = 1
End If

Call BrowserAddCreateTable(TableName, iMapper)
UserCancelled:
End Sub
Private Sub MDIForm_Unload(Cancel As Integer)
MapInfo.RunMenuCommand M_FILE_EXIT
ShutdownMapInfoConnection       '* cleanly disconnect from MapInfo
End Sub

Private Sub menuallclose_Click()
Dim Button As ComctlLib.Button

On Error GoTo Error
MapInfo.RunMenuCommand M_FILE_CLOSE_ALL

Do
    Unload ActiveForm
    If (ActiveForm Is Nothing) Then Exit Do
Loop
Error:
mapWinID = 0
BrowserWinID = 0
SelectEarthQuakeTable = ""
thereIsAMap = False

Call UpdateMenuAndToolbar(False)

End Sub

Private Sub menuMapCreateThematic_Click()
MapInfo.RunMenuCommand M_MAP_THEMATIC
MapInfo.Do "Set Window Legend  Parent " & ActiveForm.hwnd & " Show"
MapInfo.Do "Set Legend "
End Sub

Private Sub menuMapModifyThematic_Click()
MapInfo.RunMenuCommand M_MAP_MODIFY_THEMATIC
End Sub

Private Sub menuMapPreviousView_Click()
MapInfo.RunMenuCommand M_MAP_PREVIOUS
End Sub

Private Sub menuopenwor_Click()
    On Error Resume Next
    
    RightIndex = ".WOR"
    
    If (InStr(LeftRightIndex, RightIndex) <= 0) Then
        LeftRightIndex = "*.WOR"
    End If
    If (TheInPathTabOrWor = "") Then
        TheInPathTabOrWor = TheInstallPath + "知識庫\"
    End If
    
    FrmTAB.Show 1
    
    If (nTabOrWor = 0) Then Exit Sub
    
    Call menuallclose_Click