- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助 资源管理器代码更改 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=64463)
-- 发布时间：2015/2/14 9:57:00
-- 求助 资源管理器代码更改
我希望 表格里面的 显示图片 ，而不是 图片的 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
求助上面 问号的代码怎么写
-- 发布时间：2015/2/14 10:02:00
--
参考帮助 http://www.foxtable.com/help/topics/2387.htm
-- 发布时间：2015/2/14 10:13:00
--
不想放在 DrawCell 里面 ，同时如果用OBJECT 的话， 可以把文件名字 也带上， 不需要重新画
有没有代码，可以把图片文件变小 ，放到文件夹下面， 比如下面的代码
icon = System.Drawing.Icon.ExtractAssociatedIcon(r("文件全名"))
icon.ToBitmap().Save(ProjectPath & e.Form.name & "\\" & nm & ".png")
-- 发布时间：2015/2/14 10:17:00
--
那你用这个代码就好.
-- 发布时间：2015/2/14 10:33:00
--
这个代码是吧 文件的 ICON 导出来 ，我要的是 实际 图片
-- 发布时间：2015/2/14 10:37:00
--
上例子吧.说明你想实现什么效果