home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / ch_code / ch10 / scrlfrm / form2.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-05-21  |  4.5 KB  |  145 lines
  1. VERSION 5.00
  2. Begin VB.Form ContainedForm2 
  3.    BorderStyle     =   0  'None
  4.    ClientHeight    =   3195
  5.    ClientLeft      =   0
  6.    ClientTop       =   0
  7.    ClientWidth     =   5880
  8.    ControlBox      =   0   'False
  9.    LinkTopic       =   "Form2"
  10.    MaxButton       =   0   'False
  11.    MDIChild        =   -1  'True
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   3195
  14.    ScaleWidth      =   5880
  15.    ShowInTaskbar   =   0   'False
  16.    Begin VB.ListBox List2 
  17.       BeginProperty Font 
  18.          Name            =   "Verdana"
  19.          Size            =   9
  20.          Charset         =   0
  21.          Weight          =   400
  22.          Underline       =   0   'False
  23.          Italic          =   0   'False
  24.          Strikethrough   =   0   'False
  25.       EndProperty
  26.       Height          =   2370
  27.       Left            =   3240
  28.       TabIndex        =   3
  29.       Top             =   600
  30.       Width           =   2535
  31.    End
  32.    Begin VB.CommandButton Command2 
  33.       Caption         =   "<"
  34.       BeginProperty Font 
  35.          Name            =   "Tahoma"
  36.          Size            =   12
  37.          Charset         =   0
  38.          Weight          =   700
  39.          Underline       =   0   'False
  40.          Italic          =   0   'False
  41.          Strikethrough   =   0   'False
  42.       EndProperty
  43.       Height          =   375
  44.       Left            =   2760
  45.       TabIndex        =   2
  46.       Top             =   2280
  47.       Width           =   375
  48.    End
  49.    Begin VB.CommandButton Command1 
  50.       Caption         =   ">"
  51.       BeginProperty Font 
  52.          Name            =   "Tahoma"
  53.          Size            =   12
  54.          Charset         =   0
  55.          Weight          =   700
  56.          Underline       =   0   'False
  57.          Italic          =   0   'False
  58.          Strikethrough   =   0   'False
  59.       EndProperty
  60.       Height          =   375
  61.       Left            =   2760
  62.       TabIndex        =   1
  63.       Top             =   960
  64.       Width           =   375
  65.    End
  66.    Begin VB.ListBox List1 
  67.       BeginProperty Font 
  68.          Name            =   "Verdana"
  69.          Size            =   9
  70.          Charset         =   0
  71.          Weight          =   400
  72.          Underline       =   0   'False
  73.          Italic          =   0   'False
  74.          Strikethrough   =   0   'False
  75.       EndProperty
  76.       Height          =   2370
  77.       Left            =   120
  78.       TabIndex        =   0
  79.       Top             =   600
  80.       Width           =   2535
  81.    End
  82.    Begin VB.Label Label2 
  83.       Caption         =   "Selected Components"
  84.       BeginProperty Font 
  85.          Name            =   "Verdana"
  86.          Size            =   9
  87.          Charset         =   0
  88.          Weight          =   400
  89.          Underline       =   0   'False
  90.          Italic          =   0   'False
  91.          Strikethrough   =   0   'False
  92.       EndProperty
  93.       Height          =   255
  94.       Left            =   3240
  95.       TabIndex        =   5
  96.       Top             =   240
  97.       Width           =   2295
  98.    End
  99.    Begin VB.Label Label1 
  100.       Caption         =   "Available Components"
  101.       BeginProperty Font 
  102.          Name            =   "Verdana"
  103.          Size            =   9
  104.          Charset         =   0
  105.          Weight          =   400
  106.          Underline       =   0   'False
  107.          Italic          =   0   'False
  108.          Strikethrough   =   0   'False
  109.       EndProperty
  110.       Height          =   255
  111.       Left            =   120
  112.       TabIndex        =   4
  113.       Top             =   240
  114.       Width           =   2175
  115.    End
  116. Attribute VB_Name = "ContainedForm2"
  117. Attribute VB_GlobalNameSpace = False
  118. Attribute VB_Creatable = False
  119. Attribute VB_PredeclaredId = True
  120. Attribute VB_Exposed = False
  121. Private Sub Command1_Click()
  122.     If List1.ListIndex = -1 Then Exit Sub
  123.     List2.AddItem List1.Text
  124.     List1.RemoveItem List1.ListIndex
  125. End Sub
  126. Private Sub Command2_Click()
  127.     If List2.ListIndex = -1 Then Exit Sub
  128.     List1.AddItem List2.Text
  129.     List2.RemoveItem List2.ListIndex
  130. End Sub
  131. Private Sub Form_Load()
  132.     List1.AddItem "Visual Basic, Learning Ed."
  133.     List1.AddItem "Visual Basic, Professional Ed."
  134.     List1.AddItem "Visual Basic, Enterprise Ed."
  135.     List1.AddItem "Visual C++"
  136.     List1.AddItem "Visual J++"
  137.     List1.AddItem "Visual Studio"
  138.     List1.AddItem "Visual InterDev"
  139.     List1.AddItem "Data Access Objects"
  140.     List1.AddItem "SQL Server"
  141.     List1.AddItem "Active Server Pages"
  142.     List1.AddItem "Internet Information Server"
  143.     List1.AddItem "Personal Web Server"
  144. End Sub
  145.