modutility.bas

下载后

Attribute VB_Name = "modUtility"
Option Explicit
Public gSelection As MapObjects2.Recordset
Public ActiveLayer As MapObjects2.MapLayer
Public SelectedFormUp As Boolean
Public drawLayer As MapObjects2.MapLayer
'ConnectErrorMsg - Defines an appropriate error message for
'                  the Data Connection object
Public Function ConnectErrorMsg(errNum As Integer) As String
  Select Case errNum
    Case moNoError:          ConnectErrorMsg = "No Error"
    Case moUnknownError:     ConnectErrorMsg = "Unknown Error"
    Case moAccessDenied:     ConnectErrorMsg = "Access Denied"
    Case moInvalidUser:      ConnectErrorMsg = "Invalid User"
    Case moNetworkTimeout:   ConnectErrorMsg = "Network Timeout"
    Case moInvalidDatabase:  ConnectErrorMsg = "Invalid Database"
    Case moTasksExceeded:    ConnectErrorMsg = "Tasks Exceeded"
    Case moFileNotFound:     ConnectErrorMsg = "File Not Found"
    Case moInvalidDirectory: ConnectErrorMsg = "Invalid Directory"
    Case moHostUnknown:      ConnectErrorMsg = "Unknown Host"
    Case Else:               ConnectErrorMsg = "Unrecognized Error Code"
  End Select
End Function