Category : BASIC Source Code
Archive   : VINST8.ZIP
Filename : OPTION2.FRM

VERSION 2.00
Begin Form Option2
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Select Update or Full Installation"
ClipControls = 0 'False
ControlBox = 0 'False
Height = 3120
Left = 0
LinkTopic = " "
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 2715
ScaleWidth = 5265
Top = 120
Width = 5385
Begin CommandButton HelpButton
Caption = "&Help"
Height = 375
Left = 3720
TabIndex = 2
Top = 2130
Width = 975
End
Begin CommandButton ExitButton
Caption = "&Exit"
Height = 375
Left = 1980
TabIndex = 1
Top = 2130
Width = 1095
End
Begin CommandButton ContinueButton
Caption = "&Continue"
Height = 375
Left = 420
TabIndex = 0
Top = 2130
Width = 1095
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = " Update Files"
Height = 315
Index = 1
Left = 420
TabIndex = 7
Top = 1260
Width = 2055
End
Begin OptionButton Option1
BackColor = &H00C0C0C0&
Caption = " Full Installation"
Height = 315
Index = 0
Left = 420
TabIndex = 6
Top = 810
Value = -1 'True
Width = 2055
End
Begin Label OutButton
BackColor = &H00C0C0C0&
Caption = "OutButton"
Height = 375
Left = 4320
TabIndex = 4
Top = 1440
Visible = 0 'False
Width = 855
End
Begin Label HelpMsg
BackColor = &H00C0C0C0&
Caption = "HelpMsg"
Height = 375
Left = 4320
TabIndex = 3
Top = 930
Visible = 0 'False
Width = 855
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Select either a full installation, or only update the files which are more current."
ForeColor = &H00FF0000&
Height = 435
Left = 420
TabIndex = 5
Top = 150
Width = 4575
End
End
DefInt A-Z

Option Explicit

Sub ContinueButton_Click ()
OutButton.Tag = "continue"

If Option1(0).Value = True Then
ContinueButton.Tag = "0"
ElseIf Option1(1).Value = True Then
ContinueButton.Tag = "1"
End If

Option2.Hide
End Sub

Sub ExitButton_Click ()
OutButton.Tag = "exit"
Option2.Hide
End Sub

Sub Form_Load ()
BackColor = RGB(BKGNDGRAY, BKGNDGRAY, BKGNDGRAY)
gFrameWidth% = DEFAULTWIDTH

' -----------------------------------------------------
' Set fonts based on Windows version
' -----------------------------------------------------
On Error Resume Next
Option2.FontName = gFontName$
Me.ContinueButton.FontName = gFontName$
Me.ExitButton.FontName = gFontName$
Me.HelpButton.FontName = gFontName$
Me.Label1.FontName = gFontName$
Me.HelpMsg.FontName = gFontName$
Me.OutButton.FontName = gFontName$
Me.Option1(0).FontName = gFontName$
Me.Option1(1).FontName = gFontName$
On Error GoTo 0

End Sub

Sub Form_Paint ()
HighLight Option2.Label1, CTLRAISED
End Sub

' --------------------------------------------------------
' Show help message
' --------------------------------------------------------
Sub HelpButton_Click ()
Dim Msg$, MBFlags%

Msg$ = HelpMsg.Tag
MBFlags% = MB_OK & MB_ICONINFORMATION
MsgBox Msg$, MBFlags%, Option2.Caption
End Sub