直接显示员工照片
为了便于学习本节的内容,可以先打开CaseStudy目录下的文件“ListView.Table”,并参考该文件名为“示例八”的窗口。
本节的任务是从员工表中提取数据,在ListView中显示每个员工的姓名和照片:
设计步骤:
1、在窗口中分别插入一个ListView和Button控件。
2、将按钮的Click事件代码设置为:
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()
'恢复绘制