- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 怎么实现点击listview的某一行，能打开另一个窗口 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65896)
-- 发布时间：2015/3/25 10:41:00
-- 怎么实现点击listview的某一行，能打开另一个窗口
而且，点击的这行的内容，可以在打开的另一个窗口中的listview也展现出来
-- 发布时间：2015/3/25 10:47:00
--
编写 RowSelectionChanged 事件
http://www.foxtable.com/help/topics/2786.htm
-- 发布时间：2015/3/25 11:08:00
-- 再引用前一个listview行数据的时候，是不是应该在打开窗口的afterload事件写
代码应该怎么写
-- 发布时间：2015/3/25 11:19:00
--
呃，不是很简单么？
If e.Sender.Current IsNot Nothing Then
Forms("窗口1").Open
End If
-- 发布时间：2015/3/25 11:23:00
-- 打开窗口很简单，我是想把选中的这行数据在另一个窗口的listview也列出来啊
……
-- 发布时间：2015/3/25 11:25:00
--
直接在listview里面加一行，然后赋值啊。不会做就请上传例子
http://www.foxtable.com/help/topics/2768.htm
-- 发布时间：2015/3/25 12:06:00
--
让窗口2的listview显示窗口1listview选中行的数据
-- 发布时间：2015/3/25 12:06:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目7.rar |
-- 发布时间：2015/3/25 12:32:00
--
If e.Sender.Current IsNot Nothing Then
forms("窗口2").Open
Dim lvw As WinForm.ListView = e.Sender
Dim vr As WinForm.ListViewRow = e.Row
\'Dim ikey As String = Guid.NewGuid.TOstring()
Dim img = lvw.Images.LargeImages(vr.ImageKey)
Dim lvw2 As WinForm.ListView = forms("窗口2").Controls("ListView1")
lvw2.StopRedraw() \'暂停绘制
lvw2.Rows.Clear() \'清除原来的行
lvw2.Images.Clear() \'清除原来的图片
lvw2.View = ViewMode.Tile \'显示模式为平铺
lvw2.Images.LargeSize = New Size(65,75) \'定义大图标尺寸
lvw2.TitleSize = New Size(150,90) \'设置平铺区域的大小
Dim cls() As String = {"编号","姓名","部门","职务","性别"} \'定义列名
For i As Integer = 0 To cls.Length - 1 \'增加列
Dim c As WinForm.ListViewColumn = lvw2.Columns.Add()
c.Name = cls(i) \'指定列名
Next
lvw2.Images.LargeImages.Add(vr.ImageKey, img) \'添加照片,直接用文件名作为图片键值
Dim vr2 As WinForm.ListViewRow = lvw2.Rows.Add() \'增加一行
vr2.ToolTipText = vr.ToolTipText \'设置此行的动态提示
vr2.ImageKey = vr.ImageKey \'设置图片键值
For Each cl As String In cls \'逐列取值
vr2(cl) = vr(cl)
Next
lvw2.ResumeRedraw() \'恢复绘制
End If