Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何在ListView容器中双击显示的图片进入修改窗口


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

主题：如何在ListView容器中双击显示的图片进入修改窗口
帅哥哟，离线，有人找我吗？
zyxhx
 小大  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		如何在ListView容器中双击显示的图片进入修改窗口  发帖心情 Post By：2022/6/16 17:24:00 [显示全部帖子]

老师：请问如何在ListView容器中双击显示的图片进入修改窗口？

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/16 18:47:00 [显示全部帖子]

这个只针对于以列显示的，以图片显示的不行。

以列显示的用以下代码就可以：
Dim btn As WinForm.Button = e.Form.Controls("btnEdit")
btn.PerformClick() '模拟单击修改按钮

单击图片不行：

图片点击可在新窗口打开查看此主题相关图片如下：123.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2022/6/16 18:56:32编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  3楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/16 22:46:00 [显示全部帖子]

不知道为什么，我这里怎么就不能用？

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  4楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 11:25:00 [显示全部帖子]


以下示例在详细信息模式下可修改，图标显示模式下不能修改，请老师指点如何实现在图标模式下实现修改。

请老师修改，修改后可不可以直接发代码给我？因为我的版本较低。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:listview大图标模式双击修改.rar
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  5楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 11:33:00 [显示全部帖子]

可是没有错误提示的啊

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  6楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 11:49:00 [显示全部帖子]

加上或不加上调试代码都一样的反应：在图片模式下单击修改按钮或双击图标，始终没有任何反应，而在详细信息模式下又能正常运行，实在弄不明白了，请老师帮忙看看，谢谢！

 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  7楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 13:09:00 [显示全部帖子]

学生愚笨，还是没有找到问题。。。
帮助文件里都没有提到相关的示例。
[此贴子已经被作者于2022/6/17 13:12:09编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  8楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 14:33:00 [显示全部帖子]

加上调试代码后，在图标模式中双击图标，弹出顺序为：0、1、false、3、4、5、8、2，
6、7没有弹出。
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  9楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 14:54:00 [显示全部帖子]

这个“显示图标”按钮代码里没有tag,请问老师应该怎样修改：
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
'lvw.Reset() '重置ListView,清除所有的分组?列?行和图片.
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 Row In Tables("员工").Rows '从数据表中提取数据
    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() '恢复绘制
 回到顶部
帅哥哟，离线，有人找我吗？
zyxhx
 小大  10楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：388 积分：3212 威望：0 精华：0 注册：2017/4/2 19:33:00 		  发帖心情 Post By：2022/6/17 15:08:00 [显示全部帖子]

我一知半解，看上去太难。。。试着在“显示图标”按钮下加了一行代码：vr.Tag = dr.DataRow '将DataRow赋值给ListViewRow的Tag属性,将二者联系起来,就好象可以了。

请老师看一下对不对
[此贴子已经被作者于2022/6/17 15:18:28编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05957 秒, 6 次数据查询