home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / GEOFACTS / GEOFACTS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-10-15  |  4.1 KB  |  130 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGeoFacts 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "GeoFacts"
  5.    ClientHeight    =   4440
  6.    ClientLeft      =   1410
  7.    ClientTop       =   3165
  8.    ClientWidth     =   5430
  9.    LinkTopic       =   "Form1"
  10.    PaletteMode     =   1  'UseZOrder
  11.    ScaleHeight     =   4440
  12.    ScaleWidth      =   5430
  13.    WhatsThisHelp   =   -1  'True
  14.    Begin VB.ListBox lstTopRanking 
  15.       BackColor       =   &H00FFFFFF&
  16.       Enabled         =   0   'False
  17.       BeginProperty Font 
  18.          Name            =   "MS Sans Serif"
  19.          Size            =   8.25
  20.          Charset         =   0
  21.          Weight          =   700
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2235
  27.       Left            =   2640
  28.       TabIndex        =   5
  29.       Top             =   1800
  30.       Visible         =   0   'False
  31.       Width           =   2295
  32.    End
  33.    Begin VB.ComboBox cmbFeatures 
  34.       Height          =   288
  35.       Left            =   2640
  36.       Style           =   2  'Dropdown List
  37.       TabIndex        =   3
  38.       Top             =   1200
  39.       Width           =   2412
  40.    End
  41.    Begin VB.ComboBox cmbContinents 
  42.       Height          =   288
  43.       Left            =   120
  44.       Style           =   2  'Dropdown List
  45.       TabIndex        =   1
  46.       Top             =   1200
  47.       Width           =   2412
  48.    End
  49.    Begin VB.Label Label1 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "Continent's features:"
  52.       BeginProperty Font 
  53.          Name            =   "Times New Roman"
  54.          Size            =   11.25
  55.          Charset         =   0
  56.          Weight          =   400
  57.          Underline       =   0   'False
  58.          Italic          =   0   'False
  59.          Strikethrough   =   0   'False
  60.       EndProperty
  61.       Height          =   255
  62.       Index           =   2
  63.       Left            =   2640
  64.       TabIndex        =   4
  65.       Top             =   960
  66.       Width           =   2415
  67.    End
  68.    Begin VB.Label IvoSa 
  69.       BackColor       =   &H00C0C0C0&
  70.       Caption         =   "Continent:"
  71.       BeginProperty Font 
  72.          Name            =   "Times New Roman"
  73.          Size            =   11.25
  74.          Charset         =   0
  75.          Weight          =   400
  76.          Underline       =   0   'False
  77.          Italic          =   0   'False
  78.          Strikethrough   =   0   'False
  79.       EndProperty
  80.       Height          =   252
  81.       Index           =   1
  82.       Left            =   120
  83.       TabIndex        =   2
  84.       Top             =   960
  85.       Width           =   1212
  86.    End
  87.    Begin VB.Label IvoWilliamSalmre 
  88.       BackColor       =   &H00C0C0C0&
  89.       Caption         =   "GeoFacts"
  90.       BeginProperty Font 
  91.          Name            =   "Times New Roman"
  92.          Size            =   24
  93.          Charset         =   0
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   -1  'True
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   732
  100.       Index           =   0
  101.       Left            =   120
  102.       TabIndex        =   0
  103.       Top             =   120
  104.       Width           =   2772
  105.    End
  106. Attribute VB_Name = "frmGeoFacts"
  107. Attribute VB_GlobalNameSpace = False
  108. Attribute VB_Creatable = False
  109. Attribute VB_PredeclaredId = True
  110. Attribute VB_Exposed = False
  111. Sub Form_Load()
  112.     Setup   ' Sets the object variables to the Excel objects.
  113.     FillContinentsList ' Fills the continents.
  114. End Sub
  115. Sub Form_Unload(Cancel As Integer)
  116.     CleanUp ' Sets object variables to Nothing.
  117. End Sub
  118. Private Sub cmbContinents_Change()
  119.     FillFeaturesList    ' Fill the Features ComboBox.
  120. End Sub
  121. Private Sub cmbFeatures_Change()
  122.     FillTopRankingList ' Fill the TopRanking ListBox.
  123. End Sub
  124. Sub cmbFeatures_Click()
  125.     FillTopRankingList ' Fill the TopRanking ListBox.
  126. End Sub
  127. Sub cmbContinents_Click()
  128.     FillFeaturesList    ' Fill the Features ComboBox.
  129. End Sub
  130.