listview.frm

vb精彩编程希望大家有用

VERSION 5.00
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "comctl32.ocx"
Begin VB.Form Form1 
   Appearance      =   0  'Flat
   BackColor       =   &H00C0C0C0&
   Caption         =   "资源管理器"
   ClientHeight    =   9000
   ClientLeft      =   1830
   ClientTop       =   1680
   ClientWidth     =   9465
   LinkTopic       =   "Form1"
   LockControls    =   -1  'True
   PaletteMode     =   1  'UseZOrder
   ScaleHeight     =   9000
   ScaleWidth      =   9465
   Begin VB.DirListBox Dir1 
      Height          =   1605
      Left            =   3180
      TabIndex        =   24
      Top             =   7260
      Visible         =   0   'False
      Width           =   2835
   End
   Begin VB.DriveListBox Drive1 
      Height          =   315
      Left            =   660
      TabIndex        =   23
      Top             =   7860
      Visible         =   0   'False
      Width           =   2175
   End
   Begin VB.FileListBox File1 
      Height          =   2070
      Left            =   6300
      TabIndex        =   22
      Top             =   6660
      Visible         =   0   'False
      Width           =   3435
   End
   Begin VB.Frame Frame2 
      Caption         =   "添加列标题"
      Height          =   1515
      Left            =   5580
      TabIndex        =   6
      Top             =   3480
      Width           =   3795
      Begin VB.CommandButton Command2 
         Caption         =   "删除"
         Height          =   315
         Left            =   1380
         TabIndex        =   10
         Top             =   1080
         Width           =   915
      End
      Begin VB.CommandButton Command1 
         Caption         =   "添加"
         Height          =   315
         Left            =   420
         TabIndex        =   9
         Top             =   1080
         Width           =   915
      End
      Begin VB.TextBox Text3 
         Height          =   315
         Left            =   120
         TabIndex        =   7
         Top             =   600
         Width           =   3015
      End
      Begin VB.Label Label3 
         Caption         =   "添加列头(详细资料)"
         Height          =   195
         Left            =   120
         TabIndex        =   8
         Top             =   300
         Width           =   3375
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "新建目录"
      Height          =   1335
      Left            =   5580
      TabIndex        =   2
      Top             =   5040
      Width           =   3795
      Begin VB.TextBox Text1 
         Height          =   315
         Left            =   120
         TabIndex        =   4
         Top             =   600
         Width           =   2415
      End
      Begin VB.CommandButton Command3 
         Caption         =   "建立"
         Default         =   -1  'True
         Height          =   315
         Left            =   2640
         TabIndex        =   3
         Top             =   600
         Width           =   915
      End
      Begin VB.Label Label1 
         Caption         =   "目录名："
         Height          =   255
         Left            =   120
         TabIndex        =   5
         Top             =   300
         Width           =   1935
      End
   End
   Begin VB.Frame Frame1 
      Caption         =   "设置显示方式"
      Height          =   3375
      Left            =   5580
      TabIndex        =   1
      Top             =   60
      Width           =   3795
      Begin VB.CheckBox Check1 
         Caption         =   "自动换行"
         Height          =   255
         Left            =   120
         TabIndex        =   20
         Top             =   1620
         Width           =   2355
      End
      Begin VB.TextBox Text2 
         Height          =   315
         Left            =   960
         TabIndex        =   19
         Top             =   1980
         Width           =   1395
      End
      Begin VB.CommandButton Command4 
         Caption         =   "查找"
         Height          =   315
         Left            =   2460
         TabIndex        =   18
         Top             =   1980
         Width           =   735
      End
      Begin VB.CheckBox Check2 
         Caption         =   "隐藏标题(详细资料)"
         Height          =   315
         Left            =   120
         TabIndex        =   17
         Top             =   2340
         Width           =   3315
      End
      Begin VB.CheckBox Check3 
         Caption         =   "隐藏选择"
         Height          =   255
         Left            =   120
         TabIndex        =   16
         Top             =   2640
         Value           =   1  'Checked
         Width           =   2415
      End
      Begin VB.CheckBox Check4 
         Caption         =   "编辑标签(自动/手动)"
         Height          =   315
         Left            =   120
         TabIndex        =   15
         Top             =   2880
         Value           =   1  'Checked
         Width           =   2895
      End
      Begin VB.ComboBox Combo2 
         Height          =   300
         ItemData        =   "listview.frx":0000
         Left            =   120
         List            =   "listview.frx":000D
         Style           =   2  'Dropdown List
         TabIndex        =   14
         Top             =   1260
         Width           =   3075
      End
      Begin VB.ComboBox Combo1 
         Height          =   300
         ItemData        =   "listview.frx":002D
         Left            =   120
         List            =   "listview.frx":003D
         Style           =   2  'Dropdown List
         TabIndex        =   11
         Top             =   540
         Width           =   3075
      End
      Begin VB.Label Label2 
         Caption         =   "查找"
         Height          =   255
         Left            =   120
         TabIndex        =   21
         Top             =   2040
         Width           =   855
      End
      Begin VB.Label Label5 
         Caption         =   "排列方式"
         Height          =   255
         Left            =   120
         TabIndex        =   13
         Top             =   1020
         Width           =   2475
      End
      Begin VB.Label Label4 
         AutoSize        =   -1  'True
         Caption         =   "图标"
         Height          =   180
         Left            =   60
         TabIndex        =   12
         Top             =   300
         Width           =   360
      End
   End
   Begin ComctlLib.ListView ListView1 
      Height          =   6375
      Left            =   60
      TabIndex        =   0
      Top             =   60
      Width           =   5415
      _ExtentX        =   9551
      _ExtentY        =   11245
      View            =   2
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   327682
      ForeColor       =   -2147483630
      BackColor       =   16777215
      BorderStyle     =   1
      Appearance      =   1
      NumItems        =   0
   End
   Begin ComctlLib.ImageList ImageList2 
      Left            =   3420
      Top             =   6540
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483643
      ImageWidth      =   16
      ImageHeight     =   16
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7} 
         NumListImages   =   3
         BeginProperty ListImage1 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "listview.frx":0061
            Key             =   ""
         EndProperty
         BeginProperty ListImage2 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "listview.frx":023B
            Key             =   ""
         EndProperty
         BeginProperty ListImage3 {0713E8C3-850A-101B-AFC0-4210102A8DA7} 
            Picture         =   "listview.frx":0415
            Key             =   ""
         EndProperty
      EndProperty
   End
   Begin ComctlLib.ImageList ImageList1 
      Left            =   4200
      Top             =   6540
      _ExtentX        =   1005
      _ExtentY        =   1005
      BackColor       =   -2147483633
      ImageWidth      =   32
      ImageHeight     =   32
      _Version        =   327682
      BeginProperty Images {0713E8C2-850A-101B-AFC0-4210102A8DA7}