Question

Hello I ve 提出一种清单观点,即把物品放在纸上,并展示。我想知道,是否有办法让名单上的人看上去象,可能使用耳光32或图像清单。该法典:

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 SettingsSoftwareAmbiente de trabalho1"



    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/

如何看待:

Answer 1

Well you need to find the extension of the file to start with:

Dim file As String = "C:scratch
ewfile.txt"
Dim ext as string = IO.Path.GetExtension(file)

Then you need to find this entry in the HKEY_CLASSES_ROOT section of the registry:

HKEY_CLASSES_ROOT.txt

这一钥匙的缺省值为我案例的文档类型()(根据用户建立的情况和安装的方案,不同登记处可能有不同的价值)。

然后,你需要研究这一数值:DefaultIcon。缩略语

HKEY_CLASSES_ROOT	xtfileDefaultIcon

这里的缺省值使你能够找到我的案件和案件号:

%SystemRoot%system32imageres.dll,-102

From this point I think you may need to rely on the ExtractIconEX API to extract the icon. This link may also be of use

Answer 2

<编码> ListViewItems have ImageList, ImageInd and ImageKey nature. 添加<代码>ImageList 控制权至(从工具箱中的部件组中)。在选定图像清单时,你可以在<代码>ImageList上添加图像,在财产网下点击“图像”。然后,将图像清单和图像指数或图像关键物列入清单。

友情链接