frmsimp.frm

防Listview控件源码

VERSION 5.00
Object = "*\A..\listview\RMListView.vbp"
Begin VB.Form frmSimp 
   Caption         =   "简单Listview示例"
   ClientHeight    =   3645
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   Icon            =   "frmSimp.frx":0000
   LinkTopic       =   "Form2"
   OLEDropMode     =   1  'Manual
   ScaleHeight     =   243
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   312
   StartUpPosition =   3  '窗口缺省
   Begin RMListView.ListView ListView1 
      Height          =   2940
      Left            =   60
      TabIndex        =   0
      Top             =   420
      Width           =   4515
      _ExtentX        =   7964
      _ExtentY        =   5186
      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
      SolidFocusRect  =   0   'False
      PictureWidth    =   16
      PictureHeight   =   16
      Sortable        =   0   'False
   End
   Begin VB.Label Label1 
      Caption         =   "一个基本的简单示例"
      Height          =   210
      Left            =   120
      TabIndex        =   1
      Top             =   105
      Width           =   1860
   End
End
Attribute VB_Name = "frmSimp"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：2007/05/08
'描    述：另类自定义listview控件源码(支持真彩色图标)
'网    站：http://www.Mndsoft.com/  (VB6源码博客)
'网    站：http://www.VbDnet.com/   (VB.NET源码博客,主要基于.NET2005)
'e-mail  ：[e-mail]
'e-mail  ：[e-mail]
'OICQ    ：88382850
'          如果您有新的好的代码别忘记给枕善居哦!
'****************************************************************************
'
'感谢您使用本站源码，如果方便的话请给于本站一点支持，谢谢。
'
'本站物品:
'700MB容量的VB.NET源码光盘(38元包快递)
'支持支付宝交易:http://auction1.taobao.com/auction/0/item_detail-0db1-a8aba972995270433643e99d2e4ac592.jhtml
'也可以银行汇款：http://www.mndsoft.com/sale/yh.png
'
'USB电脑遥控器 源码光盘
'支持支付宝交易:http://auction1.taobao.com/auction/0/item_detail-0db1-dd4a9c3f6a5785231091b01d54af01fd.jhtml
'也可以银行汇款：http://www.mndsoft.com/sale/yh.png
'
'如果您给于本站一点支持，本站将更好的利用自身优势为您寻找您需要的代码!
Option Explicit

Private Sub Form_Load()
    Dim i       As Long
    Dim lngIt   As Long
    
    ListView1.Redraw = False
    
    ListView1.AddColumn "col1", "第一行", TextAlignLeft, 80
    ListView1.AddColumn "col2", "第二行", TextAlignCenter, 80
    ListView1.AddColumn "col3", "第三行", TextAlignRight, 80
    
    For i = 1 To 100
        lngIt = ListView1.AddItem(strText:="Item " & i)
        ListView1.ItemText(lngIt, 1) = "Col 2"
        ListView1.ItemText(lngIt, 2) = "Col 3"
    Next
    
    ListView1.Redraw = True
End Sub

Private Sub Form_Resize()
    With ListView1
        If Me.ScaleWidth - .Left * 2 > 0 Then .Width = Me.ScaleWidth - .Left * 2
        If Me.ScaleHeight - (.Top - Label1.Height + 8) * 2 > 0 Then .Height = Me.ScaleHeight - (.Top - Label1.Height + 8) * 2
    End With
End Sub