- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- ListView局域网图片获取和分组问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=56136)
-- 发布时间：2014/8/30 9:58:00
-- ListView局域网图片获取和分组问题
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(130,150) \'定义大图标尺寸
For Each dr As DataRow In DataTables("产品数据库").DataRows \'从数据表中提取数据
Dim Key As String = dr("产品效果图") \'获取此员工的照片文件
lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.Text = dr("产品_内部编号") \'设置标题
vr.Text = dr("类别_五类") \'设置标题
vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw() \'恢复绘制
怎样修改从局域网获取图片 地址是192.168.18.165\\客户管理$\\产品库
动态存储路径：e.SubFolder = format(dr("日期").Today,"yyyy-MM") & "产品库" & "\\" & dr("类别_大类") & "\\" & dr("类别_五类") & "\\" & "B+产品单品图片"
同时需要增加 dr("产品_风格") 来分组
等待老师指教
[此贴子已经被作者于2014-8-30 9:59:18编辑过]
-- 发布时间：2014/8/30 10:00:00
--
列属性设置地址为这个即可
-- 发布时间：2014/8/30 10:01:00
--
http://www.foxtable.com/help/topics/1506.htm
-- 发布时间：2014/8/30 11:14:00
--
图片不出来
[此贴子已经被作者于2014-8-30 11:14:23编辑过]
-- 发布时间：2014/8/30 11:15:00
--
图片不出来
此主题相关图片如下：qq截图20140830111304.png
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(180,200) \'定义大图标尺寸
For Each dr As DataRow In DataTables("产品数据库").DataRows \'从数据表中提取数据
Dim Key As String = dr("产品效果图") \'获取此员工的照片文件
lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.Text = dr("产品_内部编号") & dr("类别_五类") \'设置标题
vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw() \'恢复绘制
[此贴子已经被作者于2014-8-30 11:16:07编辑过]
-- 发布时间：2014/8/30 11:17:00
--
做个简单的例子发上来说话
-- 发布时间：2014/8/30 11:35:00
--
实例求教
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.foxdb |
增加图片文件 需要解压到局域网{ \\\\192.168.18.165\\客户管理$\\产品库 } 目录下
[此贴子已经被作者于2014-8-30 11:56:51编辑过]
-- 发布时间：2014/8/30 11:45:00
--
请配上图片，要完整的能测试的例子，图片不显示，可能是路径不对啊，文件名不对啊，用代码合成的路径和文件名有问题啊，所以你得给个有问题的例子并配上图片来测试，甚至图片格式不正常，也是可能的。
-- 发布时间：2014/8/30 11:57:00
--
增加图片文件 需要解压到局域网{ \\\\192.168.18.165\\客户管理$\\产品库 } 目录下
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:2014产品库.zip |
主要还是路径问题 默认的路径可以使用。
[此贴子已经被作者于2014-8-30 12:23:28编辑过]
-- 发布时间：2014/8/30 14:24:00
--
在代码中直接合成实际的路径：
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.LargeIcon \'显示模式为大图标
lvw.Images.LargeSize = New Size(180,200) \'定义大图标尺寸
For Each dr As DataRow In DataTables("表a").DataRows \'从数据表中提取数据
Dim Key As String = dr("图片") \'获取此员工的照片文件
lvw.Images.AddLargeImage(Key, "\\\\192.168.18.165\\客户管理$\\产品库\\" & Key) \'添加照片,直接用文件名作为图片键值
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.Text = dr("编号") & dr("文件") \'设置标题
vr.ImageKey = Key \'设置图片键值
Next
lvw.ResumeRedraw() \'恢复绘制