home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch05 / combos / combos.frm (.txt) next >
Encoding:
Visual Basic Form  |  1998-07-03  |  6.1 KB  |  198 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "ComboBox Control Styles"
  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            =   "Verdana"
  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            =   "Combos.frx":0000
  27.       Top             =   3720
  28.       Width           =   4665
  29.    End
  30.    Begin VB.TextBox Text2 
  31.       BeginProperty Font 
  32.          Name            =   "Verdana"
  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            =   "Combos.frx":005A
  45.       Top             =   1755
  46.       Width           =   4665
  47.    End
  48.    Begin VB.TextBox Text1 
  49.       BeginProperty Font 
  50.          Name            =   "Verdana"
  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            =   "Combos.frx":00D6
  63.       Top             =   210
  64.       Width           =   4665
  65.    End
  66.    Begin VB.ComboBox Combo3 
  67.       BeginProperty Font 
  68.          Name            =   "Verdana"
  69.          Size            =   9.75
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   360
  77.       Left            =   225
  78.       Style           =   2  'Dropdown List
  79.       TabIndex        =   2
  80.       Top             =   4005
  81.       Width           =   2100
  82.    End
  83.    Begin VB.ComboBox Combo2 
  84.       BeginProperty Font 
  85.          Name            =   "Verdana"
  86.          Size            =   9.75
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   900
  94.       Left            =   240
  95.       Style           =   1  'Simple Combo
  96.       TabIndex        =   1
  97.       Text            =   "Combo2"
  98.       Top             =   2062
  99.       Width           =   2100
  100.    End
  101.    Begin VB.ComboBox Combo1 
  102.       BeginProperty Font 
  103.          Name            =   "Verdana"
  104.          Size            =   9.75
  105.          Charset         =   0
  106.          Weight          =   400
  107.          Underline       =   0   'False
  108.          Italic          =   0   'False
  109.          Strikethrough   =   0   'False
  110.       EndProperty
  111.       Height          =   360
  112.       Left            =   240
  113.       TabIndex        =   0
  114.       Text            =   "Combo1"
  115.       Top             =   510
  116.       Width           =   2100
  117.    End
  118.    Begin VB.Label Label3 
  119.       Caption         =   "DropDown List"
  120.       BeginProperty Font 
  121.          Name            =   "Verdana"
  122.          Size            =   9.75
  123.          Charset         =   0
  124.          Weight          =   400
  125.          Underline       =   0   'False
  126.          Italic          =   0   'False
  127.          Strikethrough   =   0   'False
  128.       EndProperty
  129.       Height          =   270
  130.       Left            =   225
  131.       TabIndex        =   5
  132.       Top             =   3615
  133.       Width           =   2100
  134.    End
  135.    Begin VB.Label Label2 
  136.       Caption         =   "Simple Combo"
  137.       BeginProperty Font 
  138.          Name            =   "Verdana"
  139.          Size            =   9.75
  140.          Charset         =   0
  141.          Weight          =   400
  142.          Underline       =   0   'False
  143.          Italic          =   0   'False
  144.          Strikethrough   =   0   'False
  145.       EndProperty
  146.       Height          =   315
  147.       Left            =   240
  148.       TabIndex        =   4
  149.       Top             =   1665
  150.       Width           =   2100
  151.    End
  152.    Begin VB.Label Label1 
  153.       Caption         =   "DropDown Combo"
  154.       BeginProperty Font 
  155.          Name            =   "Verdana"
  156.          Size            =   9.75
  157.          Charset         =   0
  158.          Weight          =   400
  159.          Underline       =   0   'False
  160.          Italic          =   0   'False
  161.          Strikethrough   =   0   'False
  162.       EndProperty
  163.       Height          =   300
  164.       Left            =   240
  165.       TabIndex        =   3
  166.       Top             =   120
  167.       Width           =   2100
  168.    End
  169. Attribute VB_Name = "Form1"
  170. Attribute VB_GlobalNameSpace = False
  171. Attribute VB_Creatable = False
  172. Attribute VB_PredeclaredId = True
  173. Attribute VB_Exposed = False
  174. Option Explicit
  175. Private Sub Form_Load()
  176.     Combo1.AddItem "TextBox"
  177.     Combo1.AddItem "Label"
  178.     Combo1.AddItem "ListBox"
  179.     Combo1.AddItem "ComboBox"
  180.     Combo1.AddItem "Timer"
  181.     Combo1.AddItem "Scrollbar"
  182.     Combo1.ListIndex = 0
  183.     Combo2.AddItem "BackColor"
  184.     Combo2.AddItem "ForeColor"
  185.     Combo2.AddItem "Caption"
  186.     Combo2.AddItem "Text"
  187.     Combo2.AddItem "Index"
  188.     Combo2.AddItem "TabStop"
  189.     Combo2.ListIndex = 0
  190.     Combo3.AddItem "Clear"
  191.     Combo3.AddItem "Line"
  192.     Combo3.AddItem "Circle"
  193.     Combo3.AddItem "AddItem"
  194.     Combo3.AddItem "RemoveItem"
  195.     Combo3.AddItem "Move"
  196.     Combo3.ListIndex = 0
  197. End Sub
  198.