home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 5 / MasteringVisualBasic5.iso / ch_code / ch05 / combo1 / combo1.frm (.txt) next >
Encoding:
Visual Basic Form  |  1997-02-20  |  5.2 KB  |  171 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5430
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   7650
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   5430
  10.    ScaleWidth      =   7650
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.TextBox Text3 
  13.       BeginProperty Font 
  14.          Name            =   "Tahoma"
  15.          Size            =   9.75
  16.          Charset         =   0
  17.          Weight          =   400
  18.          Underline       =   0   'False
  19.          Italic          =   0   'False
  20.          Strikethrough   =   0   'False
  21.       EndProperty
  22.       Height          =   1110
  23.       Left            =   2700
  24.       MultiLine       =   -1  'True
  25.       TabIndex        =   8
  26.       Text            =   "Combo1.frx":0000
  27.       Top             =   3720
  28.       Width           =   4665
  29.    End
  30.    Begin VB.TextBox Text2 
  31.       BeginProperty Font 
  32.          Name            =   "Tahoma"
  33.          Size            =   9.75
  34.          Charset         =   0
  35.          Weight          =   400
  36.          Underline       =   0   'False
  37.          Italic          =   0   'False
  38.          Strikethrough   =   0   'False
  39.       EndProperty
  40.       Height          =   1320
  41.       Left            =   2715
  42.       MultiLine       =   -1  'True
  43.       TabIndex        =   7
  44.       Text            =   "Combo1.frx":00A6
  45.       Top             =   1755
  46.       Width           =   4665
  47.    End
  48.    Begin VB.TextBox Text1 
  49.       BeginProperty Font 
  50.          Name            =   "Tahoma"
  51.          Size            =   9.75
  52.          Charset         =   0
  53.          Weight          =   400
  54.          Underline       =   0   'False
  55.          Italic          =   0   'False
  56.          Strikethrough   =   0   'False
  57.       EndProperty
  58.       Height          =   1110
  59.       Left            =   2715
  60.       MultiLine       =   -1  'True
  61.       TabIndex        =   6
  62.       Text            =   "Combo1.frx":012F
  63.       Top             =   210
  64.       Width           =   4665
  65.    End
  66.    Begin VB.ComboBox Combo3 
  67.       Height          =   315
  68.       Left            =   225
  69.       Style           =   2  'Dropdown List
  70.       TabIndex        =   2
  71.       Top             =   4005
  72.       Width           =   2100
  73.    End
  74.    Begin VB.ComboBox Combo2 
  75.       Height          =   960
  76.       Left            =   240
  77.       Style           =   1  'Simple Combo
  78.       TabIndex        =   1
  79.       Text            =   "Combo2"
  80.       Top             =   2062
  81.       Width           =   2100
  82.    End
  83.    Begin VB.ComboBox Combo1 
  84.       Height          =   315
  85.       Left            =   240
  86.       TabIndex        =   0
  87.       Text            =   "Combo1"
  88.       Top             =   510
  89.       Width           =   2100
  90.    End
  91.    Begin VB.Label Label3 
  92.       Caption         =   "DropDown List"
  93.       BeginProperty Font 
  94.          Name            =   "Trebuchet MS"
  95.          Size            =   9.75
  96.          Charset         =   0
  97.          Weight          =   400
  98.          Underline       =   0   'False
  99.          Italic          =   0   'False
  100.          Strikethrough   =   0   'False
  101.       EndProperty
  102.       Height          =   270
  103.       Left            =   225
  104.       TabIndex        =   5
  105.       Top             =   3615
  106.       Width           =   2100
  107.    End
  108.    Begin VB.Label Label2 
  109.       Caption         =   "Simple Combo"
  110.       BeginProperty Font 
  111.          Name            =   "Trebuchet MS"
  112.          Size            =   9.75
  113.          Charset         =   0
  114.          Weight          =   400
  115.          Underline       =   0   'False
  116.          Italic          =   0   'False
  117.          Strikethrough   =   0   'False
  118.       EndProperty
  119.       Height          =   315
  120.       Left            =   240
  121.       TabIndex        =   4
  122.       Top             =   1665
  123.       Width           =   2100
  124.    End
  125.    Begin VB.Label Label1 
  126.       Caption         =   "DropDown Combo"
  127.       BeginProperty Font 
  128.          Name            =   "Trebuchet MS"
  129.          Size            =   9.75
  130.          Charset         =   0
  131.          Weight          =   400
  132.          Underline       =   0   'False
  133.          Italic          =   0   'False
  134.          Strikethrough   =   0   'False
  135.       EndProperty
  136.       Height          =   300
  137.       Left            =   240
  138.       TabIndex        =   3
  139.       Top             =   120
  140.       Width           =   2100
  141.    End
  142. Attribute VB_Name = "Form1"
  143. Attribute VB_GlobalNameSpace = False
  144. Attribute VB_Creatable = False
  145. Attribute VB_PredeclaredId = True
  146. Attribute VB_Exposed = False
  147. Option Explicit
  148. Private Sub Form_Load()
  149.     Combo1.AddItem "TextBox"
  150.     Combo1.AddItem "Label"
  151.     Combo1.AddItem "ListBox"
  152.     Combo1.AddItem "ComboBox"
  153.     Combo1.AddItem "Timer"
  154.     Combo1.AddItem "Scrollbar"
  155.     Combo1.ListIndex = 0
  156.     Combo2.AddItem "BackColor"
  157.     Combo2.AddItem "ForeColor"
  158.     Combo2.AddItem "Caption"
  159.     Combo2.AddItem "Text"
  160.     Combo2.AddItem "Index"
  161.     Combo2.AddItem "TabStop"
  162.     Combo2.ListIndex = 0
  163.     Combo3.AddItem "Clear"
  164.     Combo3.AddItem "Line"
  165.     Combo3.AddItem "Circle"
  166.     Combo3.AddItem "AddItem"
  167.     Combo3.AddItem "RemoveItem"
  168.     Combo3.AddItem "Move"
  169.     Combo3.ListIndex = 0
  170. End Sub
  171.