VB里面如何用代码实现ListView和ImageList控件的绑定？？？

Question

请高手指点一下：
在VB里面如何用代码实现ListView和ImageList控件的绑定呢？一定要用代码实现的!!! 
不胜感激！！！

Answer 1

重点这两句：
'Demo_LView.SmallIcons = Small_IList
'Demo_LView.Icons = Big_IListOption Explicit
Dim FSO As Scripting.FileSystemObject'  ÏÔʾÓÒ¼ü²Ëµ¥
Private Sub Demo_LView_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    If Button = vbRightButton Then  'ÅжÏÊÇ·ñÊó±êÓÒ¼üʼþ
        PopupMenu Menu      'ÏÔʾÓû§×Ô¶¨Òå²Ëµ¥
    End If
End SubPrivate Sub Form_Load()
    Dim i As Integer
    Dim LItem As ListItem
    Dim DirN As Folder
    Dim f As File
    
    Demo_LView.SmallIcons = Small_IList
    Demo_LView.Icons = Big_IList
    Menu.Visible = False
    
    '  É趨ListView¿Ø¼þ´óСºÍλÖÃ
    With Demo_LView
        .Top = 50
        .Left = 50
        .Height = Me.ScaleHeight - 100
        .Width = Me.ScaleWidth - 100
    End With
    
    '  É趨´óСͼ±êÊôÐÔ
    Demo_LView.Icons = Big_IList
    Demo_LView.SmallIcons = Small_IList
    
    '  ´´½¨±¨±íÊÓͼµÄColumnHeader¶ÔÏó
    Demo_LView.ColumnHeaders.Add , , "Ãû³Æ", Demo_LView.Width / 2
    Demo_LView.ColumnHeaders.Add , , "ÀàÐÍ", Demo_LView.Width / 2
    Set FSO = New FileSystemObject
    Set DirN = FSO.GetFolder("C:\ListView\cafeblue")
    '  Ìí¼ÓÁбíÏî
    For Each f In DirN.Files
        Set LItem = Demo_LView.ListItems.Add(, , f.ShortName)
        LItem.SubItems(1) = f.Type
        '  ÎªÁбíÏîÖ¸¶¨´óСͼ±ê
        LItem.Icon = GetIcon(f)
        LItem.SmallIcon = GetIcon(f)
    Next
End Sub'  ´óͼ±ê²Ëµ¥Ïî
Private Sub LargeIcon_Menu_Click()
    LargeIcon_Menu.Checked = True
    SmallIcon_Menu.Checked = False
    Report_Menu.Checked = False
    List_Menu.Checked = False
    
    ' Ã¿¸ö ListItem ¶ÔÏóÓÉÕû·ùͼ±êºÍÎı¾±êÇ©´ú±í
    Demo_LView.View = lvwIcon
End Sub'  Ð¡Í¼±ê²Ëµ¥Ïî
Private Sub SmallIcon_Menu_Click()
     SmallIcon_Menu.Checked = True
     LargeIcon_Menu.Checked = False
     Report_Menu.Checked = False
     List_Menu.Checked = False
     
     ' Ã¿¸ö ListItem ¶ÔÏóÓÉСͼ±ê¼°ÆäÓÒ²àµÄÎı¾±êÇ©´ú±í,ÏîĿˮƽÅÅÁÐ
     Demo_LView.View = lvwSmallIcon
End Sub'  Áбí²Ëµ¥Ïî
Private Sub List_Menu_Click()
    List_Menu.Checked = True
    LargeIcon_Menu.Checked = False
    SmallIcon_Menu.Checked = False
    Report_Menu.Checked = False
    
    '  Ã¿¸ö ListItem ¶ÔÏóÓÉСͼ±ê¼°ÆäÓÒ²àµÄÎı¾±êÇ©´ú±í,
    '  ListItem ¶ÔÏó¼°ÆäÏà¹ØµÄÐÅÏ¢ÔÚÁÐÖд¹Ö±ÅÅÁÐ
    Demo_LView.View = lvwList
End Sub'  ±¨±í²Ëµ¥Ïî
Private Sub Report_Menu_Click()
    Report_Menu.Checked = True
    LargeIcon_Menu.Checked = False
    SmallIcon_Menu.Checked = False
    List_Menu.Checked = False
    
    '  ±¨±íÊÓͼ£¬Ã¿¸ö ListItem ¶ÔÏóÏÔʾΪСͼ±êºÍÎı¾±êÇ©
    '  ¿ÉÔÚ×ÓÏîÄ¿ÖÐÌṩ¹ØÓÚÿ¸ö ListItem ¶ÔÏóµÄ¸½¼ÓÐÅÏ¢
    '  Í¼±ê¡¢Îı¾±êÇ©ºÍÐÅÏ¢ÏÔʾÔÚÁÐÖУ¬ÆäÖÐ×î×ó²àÒ»Áаüº¬Ð¡Í¼±êºÍÎı¾±êÇ©
    '  ¸½¼ÓÁÐÏÔʾÿ¸öÏîÄ¿µÄ×ÓÏîÄ¿µÄÎı¾
    Demo_LView.View = lvwReport
End Sub'  ¸ù¾ÝÎļþÀàÐÍÑ¡Ôñͼ±ê
Private Function GetIcon(f As File) As Integer
    Dim ExtName As String
    ExtName = UCase(Right(f.ShortName, 3))
    Select Case ExtName
        Case "TXT", "DOC", "HTM", "PDF"
            GetIcon = 1
        Case "MP3", "WAV", "APE", "MID", "WMA"
            GetIcon = 2
        Case "JPG", "BMP", "GIF", "ICO"
            GetIcon = 3
        Case Else
            GetIcon = 4
    End Select
End Function

Answer 2

到我的空间，下载源代码：http://download.csdn.net/source/2660922

Answer 3

sendmessage listview.hwnd , LVM_SETIMAGELIST, imagelist.hwnd, LVSIL_   配对图标类型

Answer 4

http://download.csdn.net/source/2660922