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

VERSION 2.00
Begin Form PickGroup
BackColor = &H00C0C0C0&
BorderStyle = 1 'Fixed Single
Caption = "Select Group"
ClipControls = 0 'False
ControlBox = 0 'False
Height = 3960
Left = 0
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3555
ScaleWidth = 4560
Top = 120
Width = 4680
Begin CommandButton Command1
Caption = "OK"
Height = 375
Left = 1920
TabIndex = 1
Top = 2880
Width = 585
End
Begin ListBox List1
Height = 1590
Left = 840
TabIndex = 0
Top = 990
Width = 2895
End
Begin Label Label1
Alignment = 2 'Center
BackColor = &H00C0C0C0&
Caption = "Pick NEW GROUP to create a new group for the icon, or select a group already present to put the icon in."
ForeColor = &H00FF0000&
Height = 585
Left = 330
LinkTimeout = 0
TabIndex = 2
Top = 150
Width = 4065
End
End
DefInt A-Z

Option Explicit

Sub Command1_Click ()
Dim Msg$
Dim MBFlags%

If PickGroup.List1.ListIndex = -1 Then
Msg$ = "You must first make a selection!"
MBFlags% = MB_OK & MB_ICONSTOP
MsgBox Msg$, MBFlags%, "PICK GROUP"
PickGroup.List1.SetFocus
Else
Setup1.Tag = PickGroup.List1.List(PickGroup.List1.ListIndex)
Unload PickGroup
End If
End Sub

Sub Form_Load ()
Dim i%
Dim Temp$

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

PickGroup.List1.AddItem "-- NEW GROUP --"

For i% = 1 To gNumGroups%
Temp$ = gArrayAllGroups$(i%)
Temp$ = AllTrim$(Temp$)
PickGroup.List1.AddItem Temp$
Next i%

' -----------------------------------------------------
' Default to 1st item (ie, NEW GROUP)
' -----------------------------------------------------
PickGroup.List1.ListIndex = 0


' -----------------------------------------------------
' Set fonts based on Windows version
' -----------------------------------------------------
On Error Resume Next
PickGroup.FontName = gFontName$
Me.List1.FontName = gFontName$
Me.Command1.FontName = gFontName$
Me.Label1.FontName = gFontName$
On Error GoTo 0

End Sub

Sub Form_Paint ()
HighLight PickGroup.Label1, CTLRAISED
HighLight PickGroup.List1, CTLRAISED
End Sub

Sub List1_Click ()
If PickGroup.Visible = True Then
PickGroup.Command1.SetFocus
End If
End Sub

Sub List1_DblClick ()
Command1_Click
End Sub

Sub List1_KeyPress (KeyAscii As Integer)
If KeyAscii = 13 Then Command1_Click
End Sub