我希望 表格里面的 显示图片 ,而不是 图片的 ICO ,见下图 ,这个参考了LSY的 资源管理器
此主题相关图片如下:搜狗截图20150214095039.png
代码是
Dim tb As WinForm.Table = e.form.Controls("Table1")
If tb.Visible = False Then
Return
End If
Dim t As Table =e.form.Controls("Table1").Table
Dim o As Object
Dim icon As Icon
For Each r As Row In t.Rows
r("属性") = GetAttr(r("文件全名"))
If e.Form.Controls("CheckBox2").Checked Then
o = t.Grid.GetCellRange(r.Index + 1, 1, r.Index + 1, 1)
If r("类型") = "文件夹" Then
o.Image = GetImage(ProjectPath & "Images\1064.ico")
elseif r("类型") = ".jpg" Then
?????????????????????
Else
Dim nm As String = r("名称").Replace(".","-")
icon = System.Drawing.Icon.ExtractAssociatedIcon(r("文件全名"))
icon.ToBitmap().Save(ProjectPath & e.Form.name & "\" & nm & ".png")
o.Image = GetImage(ProjectPath & e.Form.name & "\" & nm & ".png")
End If
End If
If r("属性").Contains("Hidden") Then
t.SetHeaderCellForeColor("名称",Color.LightGray,r.Index + 1)
End If
Next
求助上面 问号的代码怎么写