form1.frm

resizer控件

VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   6390
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5760
   LinkTopic       =   "Form1"
   ScaleHeight     =   6390
   ScaleWidth      =   5760
   StartUpPosition =   3  'Windows Default
   Begin VB.CommandButton cmdHide 
      Caption         =   "Hide TreeView"
      Height          =   375
      Left            =   2820
      TabIndex        =   11
      Top             =   2220
      Width           =   2835
   End
   Begin Project1.Resizer Resizer2 
      Height          =   2295
      Left            =   0
      TabIndex        =   2
      Top             =   3180
      Width           =   5715
      _ExtentX        =   10081
      _ExtentY        =   4048
      BorderStyle     =   0
      InvertControls  =   -1  'True
      Begin Project1.Resizer Resizer3 
         Height          =   2295
         Left            =   3270
         TabIndex        =   3
         Top             =   0
         Width           =   2445
         _ExtentX        =   4313
         _ExtentY        =   4048
         Orientation     =   0
         BorderStyle     =   0
         MinControlSize2 =   900
         Begin MSComctlLib.ListView ListView2 
            Height          =   555
            Left            =   -15
            TabIndex        =   10
            Top             =   -15
            Width           =   2475
            _ExtentX        =   4366
            _ExtentY        =   979
            LabelWrap       =   -1  'True
            HideSelection   =   -1  'True
            _Version        =   393217
            ForeColor       =   -2147483640
            BackColor       =   -2147483643
            BorderStyle     =   1
            Appearance      =   1
            NumItems        =   0
         End
         Begin VB.TextBox Text1 
            Height          =   1725
            Left            =   0
            TabIndex        =   4
            Text            =   "Text1"
            Top             =   570
            Width           =   2445
         End
      End
      Begin MSComctlLib.TreeView TreeView2 
         Height          =   2295
         Left            =   0
         TabIndex        =   8
         Top             =   0
         Width           =   3225
         _ExtentX        =   5689
         _ExtentY        =   4048
         _Version        =   393217
         LabelEdit       =   1
         Style           =   7
         Appearance      =   1
      End
   End
   Begin Project1.Resizer Resizer1 
      Height          =   1875
      Left            =   0
      TabIndex        =   5
      Top             =   300
      Width           =   5655
      _ExtentX        =   9975
      _ExtentY        =   3307
      BorderStyle     =   0
      InvertControls  =   -1  'True
      Begin MSComctlLib.TreeView TreeView1 
         Height          =   1875
         Left            =   2820
         TabIndex        =   6
         Top             =   0
         Width           =   2835
         _ExtentX        =   5001
         _ExtentY        =   3307
         _Version        =   393217
         LabelEdit       =   1
         Style           =   7
         Appearance      =   1
      End
      Begin MSComctlLib.ListView ListView1 
         Height          =   1905
         Left            =   -15
         TabIndex        =   7
         Top             =   -15
         Width           =   2805
         _ExtentX        =   4948
         _ExtentY        =   3360
         View            =   3
         LabelEdit       =   1
         LabelWrap       =   -1  'True
         HideSelection   =   -1  'True
         FullRowSelect   =   -1  'True
         GridLines       =   -1  'True
         _Version        =   393217
         ForeColor       =   -2147483640
         BackColor       =   -2147483643
         BorderStyle     =   1
         Appearance      =   1
         NumItems        =   1
         BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628} 
            Text            =   "Column1"
            Object.Width           =   2540
         EndProperty
      End
   End
   Begin VB.Label Label3 
      Caption         =   $"Form1.frx":0000
      Height          =   855
      Left            =   0
      TabIndex        =   9
      Top             =   5520
      Width           =   5715
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "A Resizer Control that contains a TreeView and another Resizer Control with two TextBox"
      Height          =   435
      Left            =   0
      TabIndex        =   1
      Top             =   2700
      Width           =   5655
   End
   Begin VB.Label Label1 
      Alignment       =   2  'Center
      Caption         =   "A Resizer Control that contains two controls (a ListView and a TreeView)"
      Height          =   255
      Left            =   0
      TabIndex        =   0
      Top             =   60
      Width           =   5655
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Private Sub cmdHide_Click()
    If cmdHide.Caption = "Hide TreeView" Then
        Resizer1.Control2Visible = False
        cmdHide.Caption = "Show TreeView"
    Else
        Resizer1.Control2Visible = True
        Resizer1.Control2Size = 200
        cmdHide.Caption = "Hide TreeView"
    End If
End Sub

Private Sub Form_Load()
    Dim mNode As Node

    'Populate the ListView and the TreeView
    ListView1.ListItems.Add , , "Text1"
    ListView1.ListItems.Add , , "Text2"
    ListView1.ListItems.Add , , "Text3"
    Set mNode = TreeView1.Nodes.Add(, , , "Node1")
    TreeView1.Nodes.Add mNode.Index, tvwChild, , "Node1-1"
    Set mNode = TreeView1.Nodes.Add(, , , "Node2")
    TreeView1.Nodes.Add mNode.Index, tvwChild, , "Node2-1"
    Set mNode = TreeView1.Nodes.Add(, , , "Node3")
    TreeView1.Nodes.Add mNode.Index, tvwChild, , "Node3-1"
    Set mNode = TreeView2.Nodes.Add(, , , "Node1")
    TreeView2.Nodes.Add mNode.Index, tvwChild, , "Node1-1"
    Set mNode = TreeView2.Nodes.Add(, , , "Node2")
    TreeView2.Nodes.Add mNode.Index, tvwChild, , "Node2-1"
    Set mNode = TreeView2.Nodes.Add(, , , "Node3")
    TreeView2.Nodes.Add mNode.Index, tvwChild, , "Node3-1"
End Sub