- 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=46429)
-- 发布时间：2014/2/23 16:58:00
-- ListView 的问题请教
很简单的一个问题 我想根据 "类别" 来显示不同的头像 分 男 女 儿童 分三种,
结果怎么也不显示,我错在哪里?
-- 发布时间：2014/2/23 17:10:00
--
从表A数据中看不出，楼主想要什么效果。
-- 发布时间：2014/2/23 19:59:00
--
你的listView在哪里？你要达到的效果是怎样的？
-- 发布时间：2014/2/23 21:52:00
--
想达到listview 事例九 的效果 但是 多了一个儿童 ,结果怎么也实现不了
-- 发布时间：2014/2/23 22:04:00
--
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
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
lvw.StopRedraw() \'暂停绘制
lvw.Rows.Clear() \'清除原来的行
lvw.Images.Clear() \'清除原来的图片
lvw.View =ViewMode.Tile \'显示模式为大图标
lvw.Images.AddLargeImage("Man", "Man48.ico") \'添加代表男性的一对图标
lvw.Images.AddLargeImage("Woman", "Woman48.ico") \'添加代表女性的一对图标
lvw.Images.AddLargeImage("boy", "boy48.ico") \'添加代表儿童的一对图标
For Each dr As DataRow In DataTables("座位表").DataRows \'从数据表中提取数据
Dim vr As WinForm.ListViewRow = lvw.Rows.Add() \'增加一行
vr.Text = dr("姓名") \'设置标题
If dr("类别") = "男" Then \'设置分组
vr.ImageKey = "Man"
Else
If dr("类别") = "女" Then \'设置分组
vr.ImageKey = "Woman"
Else
vr.ImageKey = "boy"
End If
End If
For Each cl As String In cls \'逐列取值
vr(cl) = dr(cl)
Next
Next
lvw.ResumeRedraw() \'恢复绘制
这段代码 我在listview 事例九里修改执行,没有任何问题,现在我新建的这个项目,可以执行,但是不显示图标,问题出在哪里?
[此贴子已经被作者于2014-2-23 22:04:44编辑过]
-- 发布时间：2014/2/23 22:28:00
--
呃，专程去下了一个2014版的foxtable，但发觉你给的代码和你的表不匹配，也没有数据。
能不能做一个简单的符合的例子？我猜你把例子做出来以后，你就知道原因了。
-- 发布时间：2014/2/23 22:40:00
--
果然如你所料 ,我把它另存为另一个项目,结果发现 少了Images目录,难怪不显示图标.
再检查原项目原来我把2个项目名类似的搞混了,折腾了2天.