主题：求助：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.ImageKey = Key '设置图片键值
Next
lvw.ResumeRedraw()

可以获取直接显示保存在本地的员工照片

 

但是采用二进制列保存的照片如何进行显示呢？

目前有员工信息，物料附件两表，

求解！

 

下面代码是实现在窗体中的图片管理显示对应二进制图片内容的    求整合！

Dim pbx As WinForm.PictureBox = Forms("员工信息管理").Controls("PictureBox1")
If e.Sender.ComboList = ""
    Return
End If
If Tables("员工信息").Current Is Nothing Then
    pbx.Image = Nothing
Else
    '  判断选择的是不是  图片格式,如果不是  则不执行代码   
    Dim dt As DataRow = DataTables("物料附件").SQLFind("附件名称='" & e.Sender.SelectedItem & "' and 物料编码='" & Tables("员工信息").Current("编号") & "' And [附件类别] = '员工信息'")
  
    If dt IsNot Nothing '必须要判断不然  报错
        Dim nm() As String = e.Sender.SelectedItem.split(".")
        Dim tpjh As String = "bmp,jpg,png,gif"
        If tpjh.Contains(nm(nm.Length-1)) Then '如果是图片格式则显示           
            pbx.Image = dt.SQlLoadImage("附件内容")  '从后台提取照片并显示
        Else
            pbx.Image = Nothing
        End If
    End If
End If

烦请老师多多指导 我昨天弄了一个晚上都没有同 按照下面那显示代码 总是提示错误

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("照片") '获取此员工的照片文件
    MessageBox.Show(key)
    lvw.Images.AddLargeImage(Key, Key) '添加照片,直接用文件名作为图片键值
    Dim vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    vr.Text = dr("名字")  '设置标题
    vr.ImageKey = Key '设置图片键值
Next
lvw.ResumeRedraw()

 

 

 

提示照片列不属于员工信息  照片咧是二进制列 在加载表的时候没有进行加载的

如果采用dt.SQlLoadImage直接提示不能转换成字符 

求解

 

一楼的代码不报错

但是那是两个不同的地方

所以图像不对应显示

 

 

此主题相关图片如下：5259.tmp.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(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()

 

 

这个么

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