求助：listview中如何获取二进制保存的图片呢？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：listview中如何获取二进制保存的图片呢？

共有3602人关注过本帖树形打印复制链接主题：求助：listview中如何获取二进制保存的图片呢？

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）测试没有问题，没有变通方法。... 发帖心情

Post By：2015/5/18 19:58:00 [只看该作者]

估计是与我电脑网速有关系，先谢谢！

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）?测试没有问题，没有变通方法。... 发帖心情

Post By：2015/5/18 21:12:00 [只看该作者]

大红袍老师我测试问题解决了谢谢！

[此贴子已经被作者于2015/5/18 21:20:52编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/18 21:22:00 [只看该作者]

窗口没问题，不会报错。

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）?窗口没问题，不会报错。 发帖心情

Post By：2015/5/18 21:30:00 [只看该作者]

但是好奇怪哦我重新启动项目又再次出现问题依旧如图上

还请大红袍老师帮忙指导下谢谢

刚才误以为解决了哎

[此贴子已经被作者于2015/5/18 22:18:42编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/18 21:31:00 [只看该作者]

不可能，我测试没有问题，代码也不会有问题啊

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）不可能，我测试没有问题，代码... 发帖心情

Post By：2015/5/18 21:40:00 [只看该作者]

那问题就纠结啦电脑也重新启动过了项目也重启了甚至代码中控件定义我都改了试过还是不行

返回之前的项目就不出问题会不会与是我这边电脑的问题哦大红袍老师

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/18 21:41:00 [只看该作者]

你12楼的代码，不会有问题，请单独一个窗口测试。

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）你12楼的代码，不会有问题，请... 发帖心情

Post By：2015/5/18 21:47: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("_Identify") '获取此员工的照片文件
    Dim img = dr.SQlLoadImage("照片")
    If img IsNot Nothing Then
        lvw.Images.LargeImages.Add(key, img)
    End If
    Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
    vr.Text = dr("名字") '设置标题
    vr.ImageKey = Key '设置图片键值
Next
lvw.ResumeRedraw()

这个么

单独做了窗体测试一样错误貌似网速是不是与网速又关系哦打开窗体好慢甚至直接出错如图

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/5/18 21:51:00 [只看该作者]

有可能和网速有关。你改成这样看看

Dim dr As DataRow = Tables("员工信息").Current.DataRow '从数据表中提取数据
Dim Key As String = dr("_Identify") '获取此员工的照片文件
Dim img = dr.SQlLoadImage("照片")
If img IsNot Nothing Then
lvw.Images.LargeImages.Add(key, img)
End If
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() '增加一行
vr.Text = dr("名字") '设置标题
vr.ImageKey = Key '设置图片键值

lvw.ResumeRedraw()

李孝春

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

加好友

发短信

等级：九尾狐帖子：2472 积分：17346 威望：0 精华：0 注册：2013/1/31 0:03:00

回复：（大红袍）有可能和网速有关。你改成这样... 发帖心情

Post By：2015/5/18 22:07:00 [只看该作者]

这样固然不报错了但是却不能显示当前表中全部数据了只显示了第一条第一个名字和图

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

总数 22 上一页 1 2 3 下一页

主题：求助：listview中如何获取二进制保存的图片呢？