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


  共有3606人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
狐狸爸爸
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/8/30 11:17:00 [显示全部帖子]

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

 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2014/8/30 11:45:00 [显示全部帖子]

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

 


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望: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() '恢复绘制


 回到顶部