module2.bas

来自「MapX控件与VB的二次开发。主要功能由TAB文件的新建」· BAS 代码 · 共 30 行

Attribute VB_Name = "Module2"
Public MapBrower1 As MapBrower

Public Const RulerTool = 104 ' This is the identifier used for the custom Ruler tool
Public Const PolyRulerTool = 105 ' This is the identifier used for the custom Poly Ruler tool
' The behavior of these tools are implemented in Map1_ToolUsed and Map1_PolyToolUsed

' Ruler Parameters:
Public UsePolyRuler As Boolean ' If UsePolyRuler is true, then use the polygon length tool
                         ' if not, use the line length tool
Public RulerUnit As Integer ' The MapInfo constant for the unit that the ruler length
                         ' should be in (e.g. miUnitMile)
Public RulerUnitString As String ' The string corresponding to that ruler unit
                              ' (e.g. "Miles")
                              
                                                            
Public ExportHeight As Double ' These are dimensions of the printed/exported output
Public ExportWidth As Double ' They can be set in the "Options" dialog

Public ExportFormat As Integer ' This is the constant that corresponds to the format
                            ' of the exported bitmap (e.g. miFormatBMP)
Public ExportFormatString As String ' This is the name of the format (e.g. "Windows Bitmap")
Public ExportFormatExt As String ' This is the 3 letter long extension that
                            ' corresponds to the format (e.g. "*.bmp")
                            
Sub Main()
    Set MapBrower1 = New MapBrower
    MapBrower1.Show
End Sub