home *** CD-ROM | disk | FTP | other *** search
/ Master 95 #1 / MASTER95_1.iso / microsof / vbasic4 / vb4-6.cab / geofacts.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-07-26  |  3.7 KB  |  124 lines
  1. VERSION 4.00
  2. Begin VB.Form Form1 
  3.    BackColor       =   &H00C0C0C0&
  4.    Caption         =   "GeoFacts"
  5.    ClientHeight    =   4440
  6.    ClientLeft      =   1410
  7.    ClientTop       =   3165
  8.    ClientWidth     =   5430
  9.    Height          =   4845
  10.    Left            =   1350
  11.    LinkTopic       =   "Form1"
  12.    ScaleHeight     =   4440
  13.    ScaleWidth      =   5430
  14.    Top             =   2820
  15.    Width           =   5550
  16.    Begin VB.ListBox listTopRanking 
  17.       BackColor       =   &H00FFFFFF&
  18.       Enabled         =   0   'False
  19.       BeginProperty Font 
  20.          name            =   "MS Sans Serif"
  21.          charset         =   1
  22.          weight          =   700
  23.          size            =   8.25
  24.          underline       =   0   'False
  25.          italic          =   0   'False
  26.          strikethrough   =   0   'False
  27.       EndProperty
  28.       Height          =   2370
  29.       Left            =   2640
  30.       TabIndex        =   5
  31.       Top             =   1800
  32.       Visible         =   0   'False
  33.       Width           =   2295
  34.    End
  35.    Begin VB.ComboBox listFeatures 
  36.       Height          =   288
  37.       Left            =   2640
  38.       Style           =   2  'Dropdown List
  39.       TabIndex        =   3
  40.       Top             =   1200
  41.       Width           =   2412
  42.    End
  43.    Begin VB.ComboBox listContinents 
  44.       Height          =   288
  45.       Left            =   120
  46.       Style           =   2  'Dropdown List
  47.       TabIndex        =   1
  48.       Top             =   1200
  49.       Width           =   2412
  50.    End
  51.    Begin VB.Label Label1 
  52.       BackColor       =   &H00C0C0C0&
  53.       Caption         =   "Continent's features:"
  54.       BeginProperty Font 
  55.          name            =   "Times New Roman"
  56.          charset         =   1
  57.          weight          =   400
  58.          size            =   11.25
  59.          underline       =   0   'False
  60.          italic          =   0   'False
  61.          strikethrough   =   0   'False
  62.       EndProperty
  63.       Height          =   255
  64.       Index           =   2
  65.       Left            =   2640
  66.       TabIndex        =   4
  67.       Top             =   960
  68.       Width           =   2415
  69.    End
  70.    Begin VB.Label IvoSa 
  71.       BackColor       =   &H00C0C0C0&
  72.       Caption         =   "Continent:"
  73.       BeginProperty Font 
  74.          name            =   "Times New Roman"
  75.          charset         =   1
  76.          weight          =   400
  77.          size            =   11.25
  78.          underline       =   0   'False
  79.          italic          =   0   'False
  80.          strikethrough   =   0   'False
  81.       EndProperty
  82.       Height          =   252
  83.       Index           =   1
  84.       Left            =   120
  85.       TabIndex        =   2
  86.       Top             =   960
  87.       Width           =   1212
  88.    End
  89.    Begin VB.Label IvoWilliamSalmre 
  90.       BackColor       =   &H00C0C0C0&
  91.       Caption         =   "GeoFacts"
  92.       BeginProperty Font 
  93.          name            =   "Times New Roman"
  94.          charset         =   1
  95.          weight          =   700
  96.          size            =   24
  97.          underline       =   0   'False
  98.          italic          =   -1  'True
  99.          strikethrough   =   0   'False
  100.       EndProperty
  101.       Height          =   732
  102.       Index           =   0
  103.       Left            =   120
  104.       TabIndex        =   0
  105.       Top             =   120
  106.       Width           =   2772
  107.    End
  108. Attribute VB_Name = "Form1"
  109. Attribute VB_Creatable = False
  110. Attribute VB_Exposed = False
  111. Sub Form_Load()
  112.     Setup
  113.     FillContinentsList
  114. End Sub
  115. Sub Form_Unload(Cancel As Integer)
  116.     CleanUp
  117. End Sub
  118. Sub listFeatures_Click()
  119.     FillTopRankingList
  120. End Sub
  121. Sub listContinents_Click()
  122.     FillFeaturesList
  123. End Sub
  124.