home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / GEOFACTS / GEOFACTS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-02-23  |  4.0 KB  |  136 lines
  1. VERSION 5.00
  2. Begin VB.Form frmGeoFacts 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "
  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            =   "
  19.          Size            =   9
  20.          Charset         =   134
  21.          Weight          =   700
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2070
  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          =   300
  35.       Left            =   2640
  36.       Style           =   2  'Dropdown List
  37.       TabIndex        =   3
  38.       Top             =   1320
  39.       Width           =   2412
  40.    End
  41.    Begin VB.ComboBox cmbContinents 
  42.       Height          =   300
  43.       Left            =   120
  44.       Style           =   2  'Dropdown List
  45.       TabIndex        =   1
  46.       Top             =   1320
  47.       Width           =   2412
  48.    End
  49.    Begin VB.Label Label1 
  50.       BackColor       =   &H00C0C0C0&
  51.       Caption         =   "
  52.       BeginProperty Font 
  53.          Name            =   "
  54.          Size            =   11.25
  55.          Charset         =   134
  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         =   "
  71.       BeginProperty Font 
  72.          Name            =   "
  73.          Size            =   11.25
  74.          Charset         =   134
  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         =   "
  90.       BeginProperty Font 
  91.          Name            =   "
  92.          Size            =   24
  93.          Charset         =   134
  94.          Weight          =   700
  95.          Underline       =   0   'False
  96.          Italic          =   -1  'True
  97.          Strikethrough   =   0   'False
  98.       EndProperty
  99.       Height          =   735
  100.       Index           =   0
  101.       Left            =   120
  102.       TabIndex        =   0
  103.       Top             =   120
  104.       Width           =   2775
  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   ' 
  113.  Excel 
  114.     FillContinentsList ' 
  115.  Continents 
  116. End Sub
  117. Sub Form_Unload(Cancel As Integer)
  118.     CleanUp ' 
  119. End Sub
  120. Private Sub cmbContinents_Change()
  121.     FillFeaturesList    ' 
  122.  Features 
  123. End Sub
  124. Private Sub cmbFeatures_Change()
  125.     FillTopRankingList ' 
  126.  TopRanking 
  127. End Sub
  128. Sub cmbFeatures_Click()
  129.     FillTopRankingList ' 
  130.  TopRanking 
  131. End Sub
  132. Sub cmbContinents_Click()
  133.     FillFeaturesList    ' 
  134.  Features 
  135. End Sub
  136.