以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  listview 如何读取外部数据源中的照片？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=136433)
--  作者：jq_shang
--  发布时间：2019/6/13 12:05:00
--  listview 如何读取外部数据源中的照片？

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")
Dim nd As WinForm.TreeNode = tr.SelectedNode
Dim lv1 As WinForm.ListView = e.Form.Controls("ListView1")
lv1.StopRedraw() \'暂停绘制
lv1.Rows.Clear() \'清除原来的行
lv1.Images.Clear() \'清除原来的图片
lv1.View = ViewMode.LargeIcon \'显示模式为大图标
lv1.Images.LargeSize = New Size(65,75) \'定义大图标尺寸

Dim drs As List ( of DataRow ) = DataTables("部门表").Select("[部门编码] = \'" & nd.FullName & "\'")
For Each dr As DataRow In drs \'从数据表中提取数据
    Dim vr As  WinForm.ListViewRow =  lv1.Rows.Add() \'增加一行
    Dim Key As String = dr("照片") \'获取此员工的照片文件
    lv1.Images.AddLargeImage(Key, Key) \'添加照片,直接用文件名作为图片键值
    vr.ImageKey = key
    vr.Tag = dr \'建立和数据表中行的对应
    vr.name = dr("身份证号")  \'设置标题
    vr.Text = dr("姓名")  \'设置标题
    If dr("性别") = "女" Then \'设置分组
        vr.text = vr.text & "(女)"
    End If
Next

上述 dr("照片") 是一个包含网络路径的字符串。
如果该字符串 = "张三.jpg"，代码执行和显示没有任何问题。
如果该字符串是“/员工档案/开发者/员工照片/张三.jpg”，这是 一个网络数据源的路径，listview却显示不出来照片。
请问如何修改代码？
[此贴子已经被作者于2019/6/13 12:06:51编辑过]
--  作者：有点甜
--  发布时间：2019/6/13 13:16:00
--  

对应ftp的图片，你需要先下载到本地电脑，才能显示出来的。

 

http://www.foxtable.com/webhelp/scr/1410.htm