mdiform1.frm

this control is used for the programming with mapobject in the environment of Visual basic.

VERSION 5.00
Begin VB.MDIForm MDIFrm 
   AutoShowChildren=   0   'False
   BackColor       =   &H8000000C&
   Caption         =   "ACS Data Generation and Simulation"
   ClientHeight    =   10095
   ClientLeft      =   6150
   ClientTop       =   450
   ClientWidth     =   7455
   LinkTopic       =   "MDIForm1"
   ScrollBars      =   0   'False
   Begin VB.PictureBox Picture1 
      Align           =   1  'Align Top
      BorderStyle     =   0  'None
      Height          =   620
      Left            =   0
      ScaleHeight     =   605.889
      ScaleMode       =   0  'User
      ScaleWidth      =   7455
      TabIndex        =   0
      Top             =   0
      Width           =   7455
      Begin VB.CommandButton cmd_Exit 
         Cancel          =   -1  'True
         Caption         =   "Exit"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   4985
         Style           =   1  'Graphical
         TabIndex        =   3
         Top             =   0
         Width           =   2460
      End
      Begin VB.CommandButton cmd_Simulation 
         Caption         =   "ACS Simulation"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   2500
         Style           =   1  'Graphical
         TabIndex        =   2
         Top             =   0
         Width           =   2460
      End
      Begin VB.CommandButton cmd_Generation 
         Caption         =   "Data Generation"
         BeginProperty Font 
            Name            =   "MS Sans Serif"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   615
         Left            =   30
         Style           =   1  'Graphical
         TabIndex        =   1
         Top             =   0
         Width           =   2460
      End
   End
End
Attribute VB_Name = "MDIFrm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub cmd_Exit_Click()
    If MsgBox("Do you really want to exit the ACS Simualtion Application?", vbQuestion Or vbYesNo, "Exit Data Generation ?") = vbYes Then
        End
    Else
        Exit Sub
    End If


    End
End Sub

Private Sub cmd_Exit_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Button = vbLeftButton Then
        cmd_generation.FontBold = False
        cmd_Simulation.FontBold = False
        cmd_Exit.FontBold = True
        cmd_Simulation.BackColor = &H8000000F
        cmd_generation.BackColor = &H8000000F
        cmd_Exit.BackColor = &H80000013
    End If
End Sub

Private Sub cmd_generation_Click()
    cmd_Simulation.FontBold = False
    cmd_Simulation.BackColor = &H8000000F
    cmd_generation.FontBold = True
    cmd_generation.BackColor = &H80000013
    cmd_Exit.BackColor = &H8000000F
    cmd_Exit.FontBold = False
    Frm_Generation.Left = 0                         'Avoid the offset of child form displaying in MDI form.
    Frm_Generation.Top = 0                          'Otherwise an offset will appear.
    frm_simulation.Visible = False
    Frm_Generation.Show
    MDIFrm.Caption = " ACS Data Generation"
End Sub

Private Sub cmd_Simulation_Click()
    
    cmd_Simulation.FontBold = True
    cmd_Simulation.BackColor = &H80000013
    cmd_generation.FontBold = False
    cmd_generation.BackColor = &H8000000F
    cmd_Exit.BackColor = &H8000000F
    cmd_Exit.FontBold = False
    frm_simulation.Left = 0                             'Avoid the offset of Child from displaying in MDI form
    frm_simulation.Top = 0                              'Otherwise an offset will appear
    Frm_Generation.Visible = False
    frm_simulation.Show
    MDIFrm.Caption = " ACS Simulation"
End Sub