home *** CD-ROM | disk | FTP | other *** search
/ Tools / WinSN5.0Ver.iso / PVb5.0 / VB / SAMPLES / PGUIDE / CONTROLS / OPTIONS.FRM (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1997-01-20  |  3.8 KB  |  140 lines
  1. VERSION 5.00
  2. Begin VB.Form frmOptions 
  3.    Caption         =   "
  4.    ClientHeight    =   3825
  5.    ClientLeft      =   3255
  6.    ClientTop       =   2400
  7.    ClientWidth     =   5505
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3825
  10.    ScaleWidth      =   5505
  11.    Begin VB.OptionButton opt686 
  12.       Caption         =   "P&entium Pro"
  13.       Height          =   255
  14.       Left            =   360
  15.       TabIndex        =   2
  16.       Top             =   2040
  17.       Width           =   1575
  18.    End
  19.    Begin VB.OptionButton opt586 
  20.       Caption         =   "&Pentium"
  21.       Height          =   255
  22.       Left            =   360
  23.       TabIndex        =   1
  24.       Top             =   1560
  25.       Width           =   1575
  26.    End
  27.    Begin VB.CommandButton cmdClose 
  28.       Caption         =   "
  29. (&C)"
  30.       Height          =   495
  31.       Left            =   3480
  32.       TabIndex        =   5
  33.       Top             =   2880
  34.       Width           =   1695
  35.    End
  36.    Begin VB.OptionButton opt486 
  37.       Caption         =   "&486"
  38.       Height          =   255
  39.       Left            =   360
  40.       TabIndex        =   0
  41.       Top             =   1080
  42.       Value           =   -1  'True
  43.       Width           =   1575
  44.    End
  45.    Begin VB.Frame fraSystem 
  46.       Caption         =   "
  47.       Height          =   1455
  48.       Left            =   3000
  49.       TabIndex        =   7
  50.       Top             =   960
  51.       Width           =   2175
  52.       Begin VB.OptionButton optWin95 
  53.          Caption         =   "&Windows 95"
  54.          Height          =   255
  55.          Left            =   360
  56.          TabIndex        =   3
  57.          Top             =   360
  58.          Value           =   -1  'True
  59.          Width           =   1335
  60.       End
  61.       Begin VB.OptionButton optWinNT 
  62.          Caption         =   "Windows &NT"
  63.          Height          =   255
  64.          Left            =   360
  65.          TabIndex        =   4
  66.          Top             =   840
  67.          Width           =   1335
  68.       End
  69.    End
  70.    Begin VB.Label lblHelp 
  71.       Caption         =   "
  72.       Height          =   615
  73.       Left            =   360
  74.       TabIndex        =   8
  75.       Top             =   2880
  76.       Width           =   2295
  77.    End
  78.    Begin VB.Label lblDisplay 
  79.       BackColor       =   &H00C0C0C0&
  80.       BorderStyle     =   1  'Fixed Single
  81.       Height          =   255
  82.       Left            =   360
  83.       TabIndex        =   6
  84.       Top             =   360
  85.       Width           =   4815
  86.    End
  87. Attribute VB_Name = "frmOptions"
  88. Attribute VB_GlobalNameSpace = False
  89. Attribute VB_Creatable = False
  90. Attribute VB_PredeclaredId = True
  91. Attribute VB_Exposed = False
  92. Dim strComputer As String
  93. Dim strSystem As String
  94. Sub DisplayCaption()
  95.     ' 
  96.     lblDisplay.Caption = "
  97.  " & _
  98.      strComputer & "
  99.  " & strSystem
  100. End Sub
  101. Private Sub cmdClose_Click()
  102.     Unload Me   '
  103. End Sub
  104. Private Sub Form_Load()
  105.     ' 
  106.  Click 
  107.     opt486_Click
  108.     optWin95_Click
  109. End Sub
  110. Private Sub opt486_Click()
  111.     ' 
  112.     strComputer = "486"
  113.     ' 
  114.     Call DisplayCaption
  115. End Sub
  116. Private Sub opt586_Click()
  117.     ' 
  118.     strComputer = "Pentium"
  119.     ' 
  120.     Call DisplayCaption
  121. End Sub
  122. Private Sub opt686_Click()
  123.     ' 
  124.     strComputer = "Pentium Pro"
  125.     ' 
  126.     Call DisplayCaption
  127. End Sub
  128. Private Sub optWin95_Click()
  129.     ' 
  130.     strSystem = "Windows 95"
  131.     ' 
  132.     Call DisplayCaption
  133. End Sub
  134. Private Sub optWinNT_Click()
  135.     ' 
  136.     strSystem = "Windows NT"
  137.     ' 
  138.     Call DisplayCaption
  139. End Sub
  140.