home *** CD-ROM | disk | FTP | other *** search
/ Programming Tool Box / SIMS_2.iso / code / cdspy / form1.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1995-02-07  |  1.7 KB  |  63 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. Sub Form_Load ()
  34.   show3d Me
  35.   outline1.AddItem "CD"
  36.   outline1.Indent(0) = 1
  37.   outline1.AddItem "Access"
  38.   outline1.Indent(1) = 2
  39.   outline1.AddItem "Visual Basic"
  40.   outline1.Indent(2) = 2
  41.   For i% = 1 To 10000
  42.     outline1.AddItem "Test " & Str$(i%)
  43.   Next i%
  44. End Sub
  45. Sub Outline1_Collapse (listindex As Integer)
  46.   If listindex < 2 Then
  47.     Exit Sub
  48.   End If
  49.   outline1.RemoveItem listindex + 1
  50.   outline1.RemoveItem listindex + 1
  51. End Sub
  52. Sub Outline1_Expand (listindex As Integer)
  53.   If listindex < 2 Then
  54.     Exit Sub
  55.   End If
  56.   outline1.AddItem "Andreas Grob", listindex + 1
  57.   'outline1.Indent(Listindex) = 1
  58.   outline1.AddItem "", listindex + 2
  59.   outline1.Indent(listindex + 2) = 3
  60.   outline1.AddItem "Axel Hauser", listindex + 3
  61.   'outline1.Indent(Listindex + 2) = 2
  62. End Sub
  63.