home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Programming Tool Box
/
SIMS_2.iso
/
code
/
cdspy
/
form1.frm
< prev
next >
Wrap
Text File
|
1995-02-06
|
2KB
|
68 lines
VERSION 2.00
Begin Form Form1
Caption = "Form1"
ClientHeight = 5820
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 7365
Height = 6225
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 5820
ScaleWidth = 7365
Top = 1140
Width = 7485
Begin Outline Outline1
Height = 4575
Left = 570
PictureClosed = FORM1.FRX:0000
PictureLeaf = FORM1.FRX:00E2
PictureMinus = FORM1.FRX:01C4
PictureOpen = FORM1.FRX:02A6
PicturePlus = FORM1.FRX:0388
TabIndex = 0
Top = 600
Width = 3075
End
Begin Shape Shape1
Height = 4575
Left = 570
Top = 600
Width = 3065
End
End
Sub Form_Load ()
show3d Me
outline1.AddItem "CD"
outline1.Indent(0) = 1
outline1.AddItem "Access"
outline1.Indent(1) = 2
outline1.AddItem "Visual Basic"
outline1.Indent(2) = 2
For i% = 1 To 10000
outline1.AddItem "Test " & Str$(i%)
Next i%
End Sub
Sub Outline1_Collapse (listindex As Integer)
If listindex < 2 Then
Exit Sub
End If
outline1.RemoveItem listindex + 1
outline1.RemoveItem listindex + 1
End Sub
Sub Outline1_Expand (listindex As Integer)
If listindex < 2 Then
Exit Sub
End If
outline1.AddItem "Andreas Grob", listindex + 1
'outline1.Indent(Listindex) = 1
outline1.AddItem "", listindex + 2
outline1.Indent(listindex + 2) = 3
outline1.AddItem "Axel Hauser", listindex + 3
'outline1.Indent(Listindex + 2) = 2
End Sub