frmbig.frm

防Listview控件源码

VERSION 5.00
Object = "*\A..\listview\RMListView.vbp"
Begin VB.Form frmBig 
   Caption         =   "支持真彩色大图标"
   ClientHeight    =   4620
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4875
   Icon            =   "frmBig.frx":0000
   LinkTopic       =   "Form2"
   ScaleHeight     =   308
   ScaleMode       =   3  'Pixel
   ScaleWidth      =   325
   StartUpPosition =   3  '窗口缺省
   Begin RMListView.ListView ListView1 
      Height          =   2790
      Left            =   225
      TabIndex        =   1
      Top             =   525
      Width           =   4290
      _ExtentX        =   7567
      _ExtentY        =   4921
      BackColor       =   16761024
      SelectedBackColor=   33023
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "宋体"
         Size            =   9.75
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      SolidFocusRect  =   0   'False
      PictureWidth    =   16
      PictureHeight   =   16
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      Caption         =   "真彩色大图标"
      Height          =   180
      Left            =   225
      TabIndex        =   0
      Top             =   150
      Width           =   1080
   End
End
Attribute VB_Name = "frmBig"
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 lngItm  As Long
    
    With ListView1
        .Redraw = False
        
        ' look for icons of following size in ico files
        ' if no one of this size is found, use the the one
        ' next to this size and resize it when rendering it
        ' to the DC
        .PictureHeight = 64
        .PictureWidth = 64
        
        .AddPicture App.Path & "\icons\Spring Festival Icon 03.ico"
        .AddPicture App.Path & "\icons\Spring Festival Icon 02.ico"
        .AddPicture App.Path & "\icons\Spring Festival Icon 09.ico"
        .AddPicture App.Path & "\icons\Spring Festival Icon 34.ico"
      
        .AddPicture App.Path & "\icons\Spring Festival Icon 46.ico"
        .AddPicture App.Path & "\icons\Spring Festival Icon 08.ico"
      
      
        .AddColumn "col1", "Spalte 1", TextAlignCenter, .PictureWidth + 8, False
        .AddColumn "col2", "Spalte 2", TextAlignLeft, 100
        .ColumnsVisible = False
        .ColumnsAutoSize = True

        .ItemText(.AddItem(, "", 0), 1) = "48x48 Alpha通道图标"
        .ItemText(.AddItem(, "", 1), 1) = "支持真彩色透明"
        .ItemText(.AddItem(, "", 2), 1) = "欢迎光临枕善居源码博客"
        .ItemText(.AddItem(, "", 3), 1) = "图标 48x48 with Alpha"
        .ItemText(.AddItem(, "", 4), 1) = "图标 48x48 with Alpha"
        .ItemText(.AddItem(, "", 5), 1) = "图标 48x48 with Alpha"
        
        .Redraw = True
    End With
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