home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / ftpser1a / treeview.frm (.txt) < prev    next >
Encoding:
Visual Basic Form  |  1999-08-23  |  1.5 KB  |  50 lines
  1. VERSION 5.00
  2. Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.2#0"; "COMCTL32.OCX"
  3. Begin VB.Form Treeview 
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "Form1"
  6.    ClientHeight    =   4245
  7.    ClientLeft      =   45
  8.    ClientTop       =   330
  9.    ClientWidth     =   3105
  10.    LinkTopic       =   "Form1"
  11.    MaxButton       =   0   'False
  12.    MinButton       =   0   'False
  13.    ScaleHeight     =   4245
  14.    ScaleWidth      =   3105
  15.    StartUpPosition =   1  'CenterOwner
  16.    Begin ComctlLib.TreeView TreeView1 
  17.       Height          =   3615
  18.       Left            =   240
  19.       TabIndex        =   0
  20.       Top             =   120
  21.       Width           =   2415
  22.       _ExtentX        =   4260
  23.       _ExtentY        =   6376
  24.       _Version        =   327682
  25.       HideSelection   =   0   'False
  26.       Style           =   6
  27.       Appearance      =   1
  28.    End
  29. Attribute VB_Name = "Treeview"
  30. Attribute VB_GlobalNameSpace = False
  31. Attribute VB_Creatable = False
  32. Attribute VB_PredeclaredId = True
  33. Attribute VB_Exposed = False
  34. Option Explicit
  35. Private Sub Form_Load()
  36.   TreeView1.HitTest.Text
  37. End Sub
  38. Private Sub Form_Terminate()
  39.   Unload Me
  40. End Sub
  41. Private Sub TreeView1_AfterLabelEdit(Cancel As Integer, NewString As String)
  42.   Debug.Print "After = " & NewString
  43. End Sub
  44. Private Sub TreeView1_BeforeLabelEdit(Cancel As Integer)
  45.   Debug.Print "before = " & Cancel
  46. End Sub
  47. Private Sub TreeView1_NodeClick(ByVal Node As ComctlLib.Node)
  48.   Debug.Print "node = " & Node
  49. End Sub
  50.