以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  产品表有办法生成产品图片的可视化窗口吗  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194492)
--  作者：leeswayne
--  发布时间：2024/12/16 15:44:00
--  产品表有办法生成产品图片的可视化窗口吗
请教下，比如产品表每行产品都有一列是该产品的主图，这些产品在仓库实体墙上也同样挂满着，有没有办法设计一个窗口，里面的pictureViewer可以绑定不同行产品的具体图片（也就是绑定具体的单元格），生成一个和实体挂样一样的可视化窗口？
--  作者：有点蓝
--  发布时间：2024/12/16 15:58:00
--  
一个pictureViewer只能绑定一个列，一次只能显示一行的图片。

可以考虑使用多个图片框控件，然后使用代码给不同图片控件设置不同的图片
--  作者：leeswayne
--  发布时间：2024/12/16 16:35:00
--  
我在使用说明中借助了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() \'恢复绘制



其中的表名、列名根据实际做了下修改，但是发现图片没有显示出来
dr("照片") 这个地方是对表格或者该列有什么要求吗
--  作者：有点蓝
--  发布时间：2024/12/16 16:42:00
--  
http://www.foxtable.com/webhelp/topics/2769.htm

所以在使用ListView之前，通常应该先准备好图片，并将这些图片文件复制到项目文件所在目录的Images或Attachments子目录中。