📄 appconstants.bas
字号:
Attribute VB_Name = "appConstants"
Option Explicit
'object creation constants
Const cPOINTSobject = "MapXMobile.points.5"
Const cPOINTobject = "MapXMobile.point.5"
Const cFIELDSobject = "MapXMobile.fields.5"
Const cLAYERINFOobject = "MapXMobile.LayerInfo.5"
'Filepath to maps, geoset, bitmaps, and default location for GPS text files
Const cPathToMapsAndData = "\my documents\GPSApp\"
'timer interval (in milliseconds)
Const ciTimerInterval = 3000
'layer names
Const cMapTempLayerPoints = "tmp_TEMP_GPS_layerPOINT"
Const cMapTempLayerLines = "tmp_TEMP_GPS_layerLINE"
'anything that starts with cMnuXXXXXX is the name for the menu item (easier to read than just the index)
Const cMnuDisplayPoint = "menuDisplayPoint"
Const cMnuDisplayPoints = "menuDisplayPoints"
Const cMnuDisplayPointAndLine = "menuDisplayPointandLine"
Const cMnuDisplayLine = "menuDisplayLine"
Const cMnuRecenterAlways = "menuRecenterAlways"
Const cMnuRecenterByPoint = "menuRecenterPointOffScreen"
Const cMnuRecenterNever = "menuRecenterNever"
Const cMnuInputFile = "menuInputFileOpen"
Const cMnuInputLive = "menuInputReadLive"
Const cMapZoom5mile = "menuZoom5"
Const cMapZoom1mile = "menuZoom1"
Const cMapZoom1_2mile = "menuZoom1_2"
Const cMapZoom1_4mile = "menuZoom1_4"
Const cMapZoom1_10mile = "menuZoom1_10"
Const cMenuAboutApplication = "menuAbout"
Const cMenuEnd = "menuEnd"
'anything that looks like cMnuXXXXXXLabel is the label for the menu
Const cMnuDisplayPointLabel = "Display - Single Point"
Const cMnuDisplayPointsLabel = "Display - Points Trail"
Const cMnuDisplayPointAndLineLabel = "Display - Point w/ Line"
Const cMnuDisplayLineLabel = "Display - Line Only"
Const cMnuRecenterAlwaysLabel = "Recenter - Always"
Const cMnuRecenterByPointLabel = "Recenter - If Needed"
Const cMnuRecenterNeverLabel = "Recenter - Never"
Const cMnuInputFileLabel = "Get GPS from file"
Const cMnuInputLiveLabel = "Get GPS from device"
Const cMenuAboutApplicationLabel = "About GPS application"
Const cMenuEndLabel = "Quit Application"
Const cMapZoom5mileLabel = "5 miles"
Const cMapZoom1mileLabel = "1 mile"
Const cMapZoom1_2mileLabel = "1/2 mile"
Const cMapZoom1_4mileLabel = "1/4 mile"
Const cMapZoom1_10mileLabel = "1/10 mile"
'constants used for VehicleInfo array
Const cVehicleCurX = 1
Const cVehicleCurY = 2
Const cVehiclePrevX = 3
Const cVehiclePrevY = 4
Const cVehicleMarkerType = 5
Const cVehicleDirectionAngle = 6
Const cVehicleDirection = 7
Const cVehicleCurrentDate = 8
Const cVehicleCurTime = 9
Const cVehiclePrevTime = 10
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -