home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / form1.frm < prev    next >
Text File  |  1995-02-06  |  2KB  |  68 lines
  1. VERSION 2.00
  2. Begin Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   5820
  5.    ClientLeft      =   1095
  6.    ClientTop       =   1485
  7.    ClientWidth     =   7365
  8.    Height          =   6225
  9.    Left            =   1035
  10.    LinkTopic       =   "Form1"
  11.    ScaleHeight     =   5820
  12.    ScaleWidth      =   7365
  13.    Top             =   1140
  14.    Width           =   7485
  15.    Begin Outline Outline1 
  16.       Height          =   4575
  17.       Left            =   570
  18.       PictureClosed   =   FORM1.FRX:0000
  19.       PictureLeaf     =   FORM1.FRX:00E2
  20.       PictureMinus    =   FORM1.FRX:01C4
  21.       PictureOpen     =   FORM1.FRX:02A6
  22.       PicturePlus     =   FORM1.FRX:0388
  23.       TabIndex        =   0
  24.       Top             =   600
  25.       Width           =   3075
  26.    End
  27.    Begin Shape Shape1 
  28.       Height          =   4575
  29.       Left            =   570
  30.       Top             =   600
  31.       Width           =   3065
  32.    End
  33. End
  34.  
  35. Sub Form_Load ()
  36.   show3d Me
  37.   outline1.AddItem "CD"
  38.   outline1.Indent(0) = 1
  39.   outline1.AddItem "Access"
  40.   outline1.Indent(1) = 2
  41.   outline1.AddItem "Visual Basic"
  42.   outline1.Indent(2) = 2
  43.   For i% = 1 To 10000
  44.     outline1.AddItem "Test " & Str$(i%)
  45.   Next i%
  46. End Sub
  47.  
  48. Sub Outline1_Collapse (listindex As Integer)
  49.   If listindex < 2 Then
  50.     Exit Sub
  51.   End If
  52.   outline1.RemoveItem listindex + 1
  53.   outline1.RemoveItem listindex + 1
  54. End Sub
  55.  
  56. Sub Outline1_Expand (listindex As Integer)
  57.   If listindex < 2 Then
  58.     Exit Sub
  59.   End If
  60.   outline1.AddItem "Andreas Grob", listindex + 1
  61.   'outline1.Indent(Listindex) = 1
  62.   outline1.AddItem "", listindex + 2
  63.   outline1.Indent(listindex + 2) = 3
  64.   outline1.AddItem "Axel Hauser", listindex + 3
  65.   'outline1.Indent(Listindex + 2) = 2
  66. End Sub
  67.  
  68.