以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  为什么没有图片显示？谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70098)
--  作者：飞云
--  发布时间：2015/6/15 20:01:00
--  为什么没有图片显示？谢谢
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View = ViewMode.Tile \'显示模式为 大图标
lvw.Images.LargeSize = New Size(65,75) \'定义大图标尺寸
lvw.TitleSize = New Size(150,90)
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 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 \'设置图片键值
    For Each cl As String In cls \'逐列取值
        vr(cl) = dr(cl)
    Next
Next
lvw.ResumeRedraw() \'恢复绘制
--  作者：大红袍
--  发布时间：2015/6/15 21:12:00
--  

lvw.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值

 

改成

 

lvw.Images.AddLargeImage(Key, 你图片的存放目录(如d:\\images\\) & Key) \'添加照片,直接用文件名作为图片键值