ListView局域网图片获取和分组问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → ListView局域网图片获取和分组问题

共有3281人关注过本帖树形打印复制链接主题：ListView局域网图片获取和分组问题

yifan3429

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

ListView局域网图片获取和分组问题 发帖心情

Post By：2014/8/30 9:58: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(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 '设置图片键值

lvw.ResumeRedraw() '恢复绘制

怎样修改从局域网获取图片地址是192.168.18.165\客户管理$\产品库

动态存储路径：e.SubFolder = format(dr("日期").Today,"yyyy-MM") & "产品库" & "\" & dr("类别_大类") & "\" & dr("类别_五类") & "\" & "B+产品单品图片"

同时需要增加 dr("产品_风格") 来分组

等待老师指教

[此贴子已经被作者于2014-8-30 9:59:18编辑过]

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/30 10:00:00 [只看该作者]

列属性设置地址为这个即可

Bin

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/30 10:01:00 [只看该作者]

http://www.foxtable.com/help/topics/1506.htm

yifan3429

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2014/8/30 11:14:00 [只看该作者]

图片不出来

[此贴子已经被作者于2014-8-30 11:14:23编辑过]

yifan3429

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：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 '设置图片键值

lvw.ResumeRedraw() '恢复绘制

[此贴子已经被作者于2014-8-30 11:16:07编辑过]

狐狸爸爸

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/8/30 11:17:00 [只看该作者]

做个简单的例子发上来说话

yifan3429

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2014/8/30 11:35:00 [只看该作者]

实例求教

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2.foxdb

增加图片文件需要解压到局域网{ \\192.168.18.165\客户管理$\产品库 } 目录下

[此贴子已经被作者于2014-8-30 11:56:51编辑过]

狐狸爸爸

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2014/8/30 11:45:00 [只看该作者]

请配上图片，要完整的能测试的例子，图片不显示，可能是路径不对啊，文件名不对啊，用代码合成的路径和文件名有问题啊，所以你得给个有问题的例子并配上图片来测试，甚至图片格式不正常，也是可能的。

yifan3429

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：九尾狐帖子：2466 积分：22761 威望：0 精华：0 注册：2011/3/29 17:14:00

Post By：2014/8/30 11:57:00 [只看该作者]

增加图片文件需要解压到局域网{ \\192.168.18.165\客户管理$\产品库 } 目录下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:2014产品库.zip

主要还是路径问题默认的路径可以使用。

[此贴子已经被作者于2014-8-30 12:23:28编辑过]

狐狸爸爸

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：管理员帖子：47448 积分：251054 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：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() '恢复绘制

下一主题 >> << 上一主题

主题：ListView局域网图片获取和分组问题