home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
tool
/
design
/
bmplst
/
checklst.frm
< prev
next >
Wrap
Text File
|
1994-07-06
|
3KB
|
99 lines
VERSION 2.00
Begin Form Form1
BackColor = &H00FFFFFF&
Caption = "Form1"
ClientHeight = 2910
ClientLeft = 1935
ClientTop = 1935
ClientWidth = 4230
Height = 3315
Left = 1875
LinkTopic = "Form1"
ScaleHeight = 2910
ScaleWidth = 4230
Top = 1590
Width = 4350
Begin PictureBox picUnchecked
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 165
Left = 480
Picture = CHECKLST.FRX:0000
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 2
Top = 2760
Visible = 0 'False
Width = 165
End
Begin PictureBox picChecked
AutoSize = -1 'True
BorderStyle = 0 'None
Height = 165
Left = 240
Picture = CHECKLST.FRX:00D2
ScaleHeight = 165
ScaleWidth = 165
TabIndex = 1
Top = 2760
Visible = 0 'False
Width = 165
End
Begin BmpList BmpList1
BackColor = &H00FFFFFF&
BorderEffect = 0 'None
BorderStyle = 1 'Fixed Single
BottomMargin = 60
ColDelim = " "
Height = 2415
ItemHeight = 600
ItemPlacement = 2 'Left
ItemWidth = 1800
Left = 240
LeftMargin = 120
MultiColumn = 0 'False
MultiSelect = 0 'None
NumColumns = 0
Sorted = 0 'False
TabIndex = 0
Top = 240
TopMargin = 60
VertGap = 30
Width = 3750
End
End
Option Explicit
Sub BmpList1_Click ()
If BmpList1.ItemData(BmpList1.ListIndex) Then
BmpList1.Picture(BmpList1.ListIndex) = picUnchecked.Picture
Else
BmpList1.Picture(BmpList1.ListIndex) = picChecked.Picture
End If
BmpList1.ItemData(BmpList1.ListIndex) = Not BmpList1.ItemData(BmpList1.ListIndex)
End Sub
Sub Form_Load ()
BmpList1.AddItem "Install Software"
BmpList1.Picture(0) = picUnchecked.Picture
BmpList1.ItemData(0) = False
BmpList1.AddItem "Install Sample Files"
BmpList1.Picture(1) = picUnchecked.Picture
BmpList1.ItemData(1) = False
BmpList1.AddItem "Install Clip Art Files"
BmpList1.Picture(2) = picUnchecked.Picture
BmpList1.ItemData(2) = False
BmpList1.AddItem "Install Sound Files"
BmpList1.Picture(3) = picUnchecked.Picture
BmpList1.ItemData(3) = False
BmpList1.AddItem "Read Version History"
BmpList1.Picture(4) = picUnchecked.Picture
BmpList1.ItemData(4) = False
End Sub