main.frm

This sample demonstrates the use of the projection objects ProjCoordSys and GeoCoordSys, and the C

VERSION 5.00
Object = "{9BD6A640-CE75-11D1-AF04-204C4F4F5020}#2.0#0"; "mo20.ocx"
Begin VB.Form frmMain 
   BackColor       =   &H00000000&
   Caption         =   "MO2 Projection"
   ClientHeight    =   8265
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   13020
   ForeColor       =   &H80000003&
   Icon            =   "Main.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   8265
   ScaleWidth      =   13020
   StartUpPosition =   3  'Windows Default
   Begin MapObjects2.Map mapMain 
      Height          =   7335
      Left            =   105
      TabIndex        =   0
      Top             =   840
      Width           =   9570
      _Version        =   131072
      _ExtentX        =   16880
      _ExtentY        =   12938
      _StockProps     =   225
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   1
      Contents        =   "Main.frx":0442
   End
   Begin VB.TextBox txtProjDesc 
      Height          =   1590
      Left            =   10080
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   9
      Top             =   4515
      Width           =   2640
   End
   Begin VB.CheckBox chkFaceToggle 
      BackColor       =   &H00000000&
      Caption         =   "Display Masks"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   435
      Left            =   10080
      TabIndex        =   8
      Top             =   2100
      Width           =   2640
   End
   Begin VB.ComboBox cboProjClass 
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   390
      Left            =   10080
      TabIndex        =   4
      Top             =   525
      Width           =   2640
   End
   Begin VB.ComboBox cboProjTypes 
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   9.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00000000&
      Height          =   390
      Left            =   10080
      TabIndex        =   3
      Top             =   1575
      Width           =   2640
   End
   Begin MapObjects2.Map mapRef 
      Height          =   1425
      Left            =   10080
      TabIndex        =   1
      Top             =   6750
      Width           =   2640
      _Version        =   131072
      _ExtentX        =   4657
      _ExtentY        =   2514
      _StockProps     =   225
      BackColor       =   16777215
      BorderStyle     =   1
      Contents        =   "Main.frx":045C
   End
   Begin VB.Line Line1 
      BorderColor     =   &H00C0C0C0&
      BorderWidth     =   2
      X1              =   9765
      X2              =   9765
      Y1              =   0
      Y2              =   8295
   End
   Begin VB.Image imgGlobe 
      Height          =   1710
      Left            =   10710
      Top             =   2625
      Width           =   1935
   End
   Begin VB.Label lblGeoRef 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      Caption         =   "Geographic Reference"
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   495
      Left            =   10080
      TabIndex        =   7
      Top             =   6300
      Width           =   2655
   End
   Begin VB.Label lblSelProjection 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   330
      Left            =   10080
      TabIndex        =   6
      Top             =   1155
      Width           =   2640
   End
   Begin VB.Label lblSelProjClass 
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   330
      Left            =   10080
      TabIndex        =   5
      Top             =   105
      Width           =   2640
   End
   Begin VB.Label lblMainMap 
      Alignment       =   2  'Center
      BackColor       =   &H00000000&
      BeginProperty Font 
         Name            =   "Comic Sans MS"
         Size            =   15.75
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H0000FFFF&
      Height          =   645
      Left            =   105
      TabIndex        =   2
      Top             =   105
      Width           =   9570
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub Add_Layers(mapThe As MapObjects2.Map, _
                      mapRef As MapObjects2.Map)
  
     
  Dim dcData As New MapObjects2.DataConnection
  Dim strResult As String
  
       ' find the data connection
  On Error Resume Next
  dcData.Database = g_DataDir
  
  If Not dcData.Connect Then
    strResult = MsgBox("Error connecting to the shapes directory", _
                       vbCritical)
    Exit Sub
  End If

       ' Define a coordinate system
  Dim gcsGeo As New MapObjects2.GeoCoordSys
    
       ' Set the coordinate system values
  gcsGeo.Type = moGeoCS_Clarke1866
  
       ' Add LATLON
  Dim lyrLatLong  As New MapObjects2.MapLayer
  Set lyrLatLong.GeoDataset = dcData.FindGeoDataset(LATLONG_LAYER)
  With lyrLatLong
    .Name = LATLONG_LAYER_NAME
    .Symbol.Color = RGB(100, 149, 237)
    .Symbol.Size = 1
    .CoordinateSystem = gcsGeo
  End With
  mapThe.Layers.Add lyrLatLong
  
       ' Add the Continents
  Dim lyrCont As New MapObjects2.MapLayer
  Set lyrCont.GeoDataset = dcData.FindGeoDataset(CONTINENT_LAYER)
  With lyrCont
    .Name = CONTINENT_LAYER_NAME
    .Symbol.Color = moPaleYellow
    .CoordinateSystem = gcsGeo
  End With
  
  mapThe.Layers.Add lyrCont
 
       ' Add the Masks
  Dim lyrComedy As New MapObjects2.MapLayer
  Set lyrComedy.GeoDataset = dcData.FindGeoDataset(COMEDY_LAYER)
  With lyrComedy
    .Name = COMEDY_LAYER_NAME
    .Visible = False
    .Symbol.Color = moRed
    .Symbol.Size = 3
    .CoordinateSystem = gcsGeo
  End With
  mapThe.Layers.Add lyrComedy
  
  Dim lyrTrajedy As New MapObjects2.MapLayer
  Set lyrTrajedy.GeoDataset = dcData.FindGeoDataset(TRAJEDY_LAYER)
  With lyrTrajedy
    .Name = TRAJEDY_LAYER_NAME
    .Symbol.Color = moBlue
    .Symbol.Size = 3
    .CoordinateSystem = gcsGeo
    .Visible = False
  End With