以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何在listview显示文件名图标?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=162401)

--  作者:wh420
--  发布时间:2021/4/13 15:20:00
--  如何在listview显示文件名图标?
下面代码是用笨方法根据扩展名显示相对应图标,比较麻烦。
在论坛看到使用:Dim icon As Icon = System.Drawing.Icon.ExtractAssociatedIcon("d:\\test.xls")可以直接获取对应文件名图标。
怎么把标红的代码应用到下面代码中?

Dim ftp1 As New FtpClient
ftp1.Host = FtpIp
ftp1.Account = FtpUser
ftp1.Password = FtpPass

Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
\'lvw.Images.AddImage("China","China.Ico","China48.Ico")
lvw.StopRedraw()
lvw.Groups.Clear() \'清除原来的分组
lvw.Columns.Clear() \'清除原来的列
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.Details
lvw.GridLines = True \'显示网格线
lvw.Images.LargeSize = new size(16,16)
Dim  ics As String() = {"doc","docx","rtf","","","","","","","txt","other"}  \'定义扩展名数组
Dim kzms As String ="doc txt other"  \'定义已知扩展名的文本串
For Each ic As String In ics
    lvw.Images.AddImage(ic,ic & ".ico",ic & ".ico")  \'向listview里添加图标
Next

\'e.form.controls("listview1").backcolor = Color.Red
\'e.form.controls("ListView1").basecontrol.BackColor=color.red
Dim cls() As String = {"FileName","FileSize","CreaTime"} \'指定要显示的各列
Dim cls1() As String = {"文件名","文件大小","修改时间"}
Dim wds() As Integer = {400,100,150} \'定义列宽
For i As Integer = 0 To  cls.Length - 1  \'增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) \'指定列名
    c.Text = cls1(i) \'指定标题,这里标题和列名相同
    c.Width = wds(i) \'指定列宽
Next
lvw.Columns("FileSize").TextAlign = HorizontalAlignment.Center
lvw.Columns("CreaTime").TextAlign = HorizontalAlignment.Center
lvw.Columns("FileName").TextAlign = HorizontalAlignment.Center
For Each s As String In Tables("表A").Current.DataRow.Lines("FileName")
    \'从数据表中提取数据
    Dim Parts() As String = s.Split("*")
    Dim r As  WinForm.ListViewRow =  lvw.Rows.Add() \'增加一行
    Dim Dot As Integer = parts(0).LastIndexOf(".") \'定义.的位置
    Dim kzm As String = parts(0).SubString(Dot + 1) \'获取扩展名
    If kzms.Contains(kzm) = True Then
        r.ImageKey = kzm \'指定行的图标键值
    Else
        r.ImageKey = "other"
    End If
    For Each cl As String In cls \'逐列取值
        Select Case cl
            \'Case "人口","面积" \'如果是人口列或面积列
                \'r(cl) = format(s(cl),"#,000") \'则显示千位分割符号
            Case "FileName"
                r(cl) = s
            Case "FileSize"
                r(cl) = Format(ftp1.GetFileSize(s)/1024/1024,"0.00") & "MB"
            Case "CreaTime"
                
                r(cl)=ftp1.GetFileTime(s)
        End Select
    Next
Next

lvw.ResumeRedraw() \'恢复绘制
ftp1.Close()

--  作者:有点蓝
--  发布时间:2021/4/13 16:45:00
--  
没有办法使用,建议网上下载一套对应的文件的图标使用