Foxtable(狐表)用户栏目专家坐堂 → 产品表有办法生成产品图片的可视化窗口吗


  共有121人关注过本帖树形打印复制链接

主题:产品表有办法生成产品图片的可视化窗口吗

帅哥哟,离线,有人找我吗?
leeswayne
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:940 威望:0 精华:0 注册:2017/10/8 21:25:00
产品表有办法生成产品图片的可视化窗口吗  发帖心情 Post By:2024/12/16 15:44:00 [显示全部帖子]

请教下,比如产品表每行产品都有一列是该产品的主图,这些产品在仓库实体墙上也同样挂满着,有没有办法设计一个窗口,里面的pictureViewer可以绑定不同行产品的具体图片(也就是绑定具体的单元格),生成一个和实体挂样一样的可视化窗口?

 回到顶部
帅哥哟,离线,有人找我吗?
leeswayne
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:幼狐 帖子:94 积分:940 威望:0 精华:0 注册:2017/10/8 21:25:00
  发帖心情 Post By: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(KeyKey'添加照片,直接用文件名作为图片键值
    Dim 
vr As  WinForm.ListViewRow =  lvw.Rows.Add() '增加一行
    
vr.Text = dr("姓名")  '设置标题
    
vr.ImageKey = Key '设置图片键值
Next

lvw
.ResumeRedraw() '恢复绘制



其中的表名、列名根据实际做了下修改,但是发现图片没有显示出来
dr("照片") 这个地方是对表格或者该列有什么要求吗

 回到顶部