constants.bas

来自「This sample demonstrates the use of the 」· BAS 代码 · 共 32 行

Attribute VB_Name = "basConstants"
Option Explicit


      '*********************************
      ' Constants for required datasets
      ' ********************************
' Continent polygons
Public Const CONTINENT_LAYER As String = "contloc"
Public Const CONTINENT_LAYER_NAME As String = "Continents"

' LatLong lines
' Const LATLONG_LAYER As String = "latlong15"
Public Const LATLONG_LAYER As String = "poly"
Public Const LATLONG_LAYER_NAME As String = "LatLon"
Public Const LATLONG30_LAYER As String = "latlong30"
Public Const LATLONG30_LAYER_NAME As String = "LatLon30"

' Drama faces
Public Const COMEDY_LAYER As String = "geocom"
Public Const COMEDY_LAYER_NAME As String = "Comedy"

Public Const TRAJEDY_LAYER As String = "geotraj"
Public Const TRAJEDY_LAYER_NAME As String = "Trajedy"


     ' ***********************************
     ' Main Form Title
     ' ***********************************
Public Const MAIN_TITLE As String = "MapObjects 2.0"