[求助]关于图片列在LISTVIEW中显示问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

对于图片列，存放目录和来源目录都已设置，通过代码自动将指定文件夹内的图片添加到图片列后，在TABLE中可以正常打开看见图片内容，

但是LISTVIEW在引用该图片时却是什么都没有，是空的，请问可能的原因~~~~ 图片点击可在新窗口打开查看

可以的，不成功最好上例子

请问是不是图片太大的在LISTVIEW中就显示不了~~~之前的确没问题，LISTVIEW显示图片时会自动缩放吗~~

还有就是，引用的图片有格式要求吗~~~

[此贴子已经被作者于2016/10/23 14:28:12编辑过]

不成功，说明你的代码有误，通常是AddImage的时候，提供的图片路径或文件名有误。

图片格式一般没有要求，你可以用同样的图片，复制到某个目录，再复制一个foxtable自带的图片，用绝对路径测试一下，看看是否图片格式问题。

[此贴子已经被作者于2016/10/23 17:04:02编辑过]

老师~~~出现了以下图片所示的情况，同时转移到XP系统的电脑上发现有时显示图片有时又不显示图片，实在费解，程序比较复杂且基本已经完成，上次实例比较困难，

可能是什么原因呢

dvubb 此主题相关图片如下：无标题.png

代码我也算是比较了解了，也运用了好几次，几乎不可能有问题

Dim lvw As WinForm.ListView = e.Form.Controls("LV机械管理")
lvw.StopRedraw() '暂停绘制
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.Tile '显示模式为平铺
lvw.Images.LargeSize = New Size(100,120) '定义大图标尺寸
lvw.TitleSize = New Size(200,150) '设置平铺区域的大小
Dim cls() As String = {"装备名称","装备型号","装备代号","装备编号","接装日期","装备状态","蓄电池型号"} '定义列名
For i As Integer = 0 To cls.Length - 1 '增加列
    Dim c As WinForm.ListViewColumn = lvw.Columns.Add()
    c.Name = cls(i) '指定列名
Next
For Each zh As String In DataTables("装备数据库").GetValues("机械分类",,"序号") '增加分组
    Dim grp As WinForm.ListViewGroup = lvw.Groups.Add()
    grp.Name = zh
    grp.Text = zh
Next
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.ToolTipText = dr("生产信息_生产厂家") '设置此行的动态提示
    vr.ImageKey = Key '设置图片键值
    vr.Group = dr("机械分类")
    vr.Font = New Font("微软雅黑",8)
    For Each cl As String In cls '逐列取值
        vr(cl) = dr(cl)
    Next
    vr.Tag = dr
Next
lvw.ResumeRedraw() '恢复绘制