home *** CD-ROM | disk | FTP | other *** search
/ Programming Languages Suite / ProgramD2.iso / Visual Database / Visual BASIC 5.0 (Ent. Edition) / Vb5ent Extractor.EXE / VB / SAMPLES / PGUIDE / CONTROLS / OPTIONS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1996-09-16  |  4.3 KB  |  145 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    Caption         =   "Options"
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   3255
  6.    ClientTop       =   2400
  7.    ClientWidth     =   5040
  8.    Height          =   4230
  9.    Left            =   3195
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   3825
  12.    ScaleWidth      =   5040
  13.    Top             =   2055
  14.    Width           =   5160
  15.    Begin VB.OptionButton opt686 
  16.       Caption         =   "P&entium Pro"
  17.       Height          =   255
  18.       Left            =   360
  19.       TabIndex        =   2
  20.       Top             =   2040
  21.       Width           =   1335
  22.    End
  23.    Begin VB.OptionButton opt586 
  24.       Caption         =   "&Pentium"
  25.       Height          =   255
  26.       Left            =   360
  27.       TabIndex        =   1
  28.       Top             =   1560
  29.       Width           =   1335
  30.    End
  31.    Begin VB.CommandButton cmdClose 
  32.       Caption         =   "&Close"
  33.       Height          =   495
  34.       Left            =   3480
  35.       TabIndex        =   5
  36.       Top             =   2880
  37.       Width           =   1095
  38.    End
  39.    Begin VB.OptionButton opt486 
  40.       Caption         =   "&486"
  41.       Height          =   255
  42.       Left            =   360
  43.       TabIndex        =   0
  44.       Top             =   1080
  45.       Value           =   -1  'True
  46.       Width           =   1575
  47.    End
  48.    Begin VB.Frame fraSystem 
  49.       Caption         =   "Operating System"
  50.       Height          =   1455
  51.       Left            =   2400
  52.       TabIndex        =   7
  53.       Top             =   960
  54.       Width           =   2175
  55.       Begin VB.OptionButton optWin95 
  56.          Caption         =   "&Windows 95"
  57.          Height          =   255
  58.          Left            =   360
  59.          TabIndex        =   3
  60.          Top             =   360
  61.          Value           =   -1  'True
  62.          Width           =   1335
  63.       End
  64.       Begin VB.OptionButton optWinNT 
  65.          Caption         =   "Windows &NT"
  66.          Height          =   255
  67.          Left            =   360
  68.          TabIndex        =   4
  69.          Top             =   840
  70.          Width           =   1335
  71.       End
  72.    End
  73.    Begin VB.Label lblHelp 
  74.       Caption         =   "Select a processor and operating system"
  75.       Height          =   615
  76.       Left            =   360
  77.       TabIndex        =   8
  78.       Top             =   2880
  79.       Width           =   2295
  80.    End
  81.    Begin VB.Label lblDisplay 
  82.       BackColor       =   &H00C0C0C0&
  83.       BorderStyle     =   1  'Fixed Single
  84.       Height          =   255
  85.       Left            =   360
  86.       TabIndex        =   6
  87.       Top             =   360
  88.       Width           =   4215
  89.    End
  90. Attribute VB_Name = "frmOptions"
  91. Attribute VB_Base = "0{1D9367AF-C9EF-11CF-84BA-00AA00C007F0}"
  92. Attribute VB_Creatable = False
  93. Attribute VB_TemplateDerived = False
  94. Attribute VB_PredeclaredId = True
  95. Attribute VB_Exposed = False
  96. Attribute VB_Customizable = False
  97. ' set up two string variables to hold the captions
  98. Dim strComputer As String
  99. Dim strSystem As String
  100. Sub DisplayCaption()
  101.     ' concatenate the caption with the two string
  102.     ' variables.
  103.     lblDisplay.Caption = "You selected a " & _
  104.      strComputer & " running " & strSystem
  105. End Sub
  106. Private Sub cmdClose_Click()
  107.     Unload Me   'unload the form
  108. End Sub
  109. Private Sub Form_Load()
  110.     ' invoke a Click event in the default options
  111.     ' to update the label caption
  112.     opt486_Click
  113.     optWin95_Click
  114. End Sub
  115. Private Sub opt486_Click()
  116.     ' assign a value to the first string variable
  117.     strComputer = "486"
  118.     ' call the subroutine
  119.     Call DisplayCaption
  120. End Sub
  121. Private Sub opt586_Click()
  122.     ' assign a value to the first string variable
  123.     strComputer = "Pentium"
  124.     ' call the subroutine
  125.     Call DisplayCaption
  126. End Sub
  127. Private Sub opt686_Click()
  128.     ' assign a value to the first string variable
  129.     strComputer = "Pentium Pro"
  130.     ' call the subroutine
  131.     Call DisplayCaption
  132. End Sub
  133. Private Sub optWin95_Click()
  134.     ' assign a value to the second string variable
  135.     strSystem = "Windows 95"
  136.     ' call the subroutine
  137.     Call DisplayCaption
  138. End Sub
  139. Private Sub optWinNT_Click()
  140.     ' assign a value to the second string variable
  141.     strSystem = "Windows NT"
  142.     ' call the subroutine
  143.     Call DisplayCaption
  144. End Sub
  145.