你好我有一个列表视图,可以打开文件夹中的项目并显示它们。我想知道是否有办法让列表视图显示图标,也可以使用shell32或图像列表。这里的代码:带有列表视图和图像列表的项目图标
Imports System.IO
Imports System.Xml
Imports System.Runtime.InteropServices
Imports Microsoft.VisualBasic
Public Class cv7import
Private Sub cv7import_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim caminho As String
caminho = "C:\Documents and Settings\Software\Ambiente de trabalho\1"
lstvicon.View = View.Details
lstvicon.GridLines = False
lstvicon.FullRowSelect = True
lstvicon.HideSelection = False
lstvicon.MultiSelect = True
lstvicon.Columns.Add("Nome")
lstvicon.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)
Dim DI As System.IO.DirectoryInfo = New System.IO.DirectoryInfo(caminho)
Dim files() As System.IO.FileInfo = DI.GetFiles
Dim file As System.IO.FileInfo
Dim li As ListViewItem
For Each file In files
li = lstvicon.Items.Add(file.Name)
li.Tag = file.FullName
Next
End Sub
End Class
这里有两张图片,它是如何看起来以及我希望它看起来如何,如果它有帮助。
如何,我想:http://imageshack.us/photo/my-images/21/wantd.png/
如何看起来:http://imageshack.us/photo/my-images/13/needk.png/
你想显示哪个图标?与文件资源管理器相关的那个文件夹呢? – 2012-01-13 16:08:08
是的,如果它是.txt我希望它显示.txt图标。 – user1100407 2012-01-13 16:10:07