form1.frm

《Delphi开发人员指南》配书原码

VERSION 5.00
Object = "{2C998C80-8899-11D2-9261-00104B700B61}#1.0#0"; "LVCTRL.OCX"
Begin VB.Form Form1 
   Caption         =   "Collection Test App"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  'Windows Default
   Begin LVCtrl.ListViewX ListViewX1 
      Height          =   1695
      Left            =   360
      TabIndex        =   0
      Top             =   480
      Width           =   3135
      AllocBy         =   0
      BiDiMode        =   0
      BorderStyle     =   1
      Checkboxes      =   0   'False
      Color           =   -2147483643
      ColumnClick     =   -1  'True
      Ctl3D           =   -1  'True
      DragCursor      =   -12
      Object.DragMode        =   0
      Enabled         =   -1  'True
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      FlatScrollBars  =   0   'False
      FullDrag        =   0   'False
      GridLines       =   0   'False
      HideSelection   =   -1  'True
      HotTrack        =   0   'False
      MultiSelect     =   0   'False
      OwnerData       =   0   'False
      OwnerDraw       =   0   'False
      ReadOnly        =   0   'False
      RowSelect       =   0   'False
      ParentColor     =   0   'False
      ParentFont      =   -1  'True
      ShowColumnHeaders=   -1  'True
      SortType        =   0
      ViewStyle       =   0
      Object.Visible         =   -1  'True
      DoubleBuffered  =   0   'False
      Cursor          =   0
   End
   Begin VB.CommandButton Command2 
      Caption         =   "Command2"
      Height          =   495
      Left            =   2280
      TabIndex        =   2
      Top             =   2400
      Width           =   1455
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   495
      Left            =   240
      TabIndex        =   1
      Top             =   2400
      Width           =   1575
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
  ListViewX1.Items.Add.Caption = "Delphi"
End Sub

Private Sub Command2_Click()
  Dim Item As ListItem
  Set Items = ListViewX1.Items
  For Each Item In Items
   Item.Caption = Item.Caption + " Rules!!"
  Next
End Sub