home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Multimedia SongBook
/
SongBook.iso
/
controls
/
frmprogr.frm
< prev
next >
Wrap
Text File
|
1994-07-27
|
3KB
|
100 lines
VERSION 2.00
Begin Form frmProgramList
BackColor = &H00C0C0C0&
BorderStyle = 3 'Fixed Double
Caption = "Select Program List"
ClientHeight = 3045
ClientLeft = 5565
ClientTop = 2625
ClientWidth = 4395
Height = 3450
Left = 5505
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 3045
ScaleWidth = 4395
Top = 2280
Width = 4515
Begin CommandButton Command2
Caption = "&Help"
Height = 330
Left = 2745
TabIndex = 0
Top = 2415
Width = 1005
End
Begin CommandButton Command1
Caption = "&Cancel"
Height = 330
Left = 1620
TabIndex = 4
Top = 2415
Width = 1005
End
Begin CommandButton OK
Caption = "&OK"
Height = 330
Left = 495
TabIndex = 3
Top = 2415
Width = 1005
End
Begin SSFrame Frame3D1
Caption = " Program Lists "
Font3D = 0 'None
Height = 2055
Left = 45
TabIndex = 1
Top = 45
Width = 4110
Begin ListBox List1
Height = 1395
Left = 180
TabIndex = 2
Top = 390
Width = 3750
End
End
End
Option Explicit
Sub Command1_Click ()
Unload frmProgramList
End Sub
Sub Command2_Click ()
SendKeys "{F1}"
End Sub
Sub Form_Load ()
LoadProgramLists
End Sub
Sub List1_DblClick ()
Dim theList%
Screen.MousePointer = 11
If frmProgramList.List1.ListIndex <> -1 Then
frmProgramList.Hide
theList% = frmProgramList.List1.ListIndex
LoadNewProgram theList%
End If
Unload frmProgramList
Screen.MousePointer = 0
End Sub
Sub OK_Click ()
Dim theList%
Screen.MousePointer = 11
If frmProgramList.List1.ListIndex <> -1 Then
frmProgramList.Hide
theList% = frmProgramList.List1.ListIndex
LoadNewProgram theList%
End If
Unload frmProgramList
Screen.MousePointer = 0
End Sub