已解决，办法不是很好
代码如下：
Dim lvw As WinForm.ListView = e.Form.Controls("ListView1")
'lvw.CheckBoxes = True
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 DataRow In DataTables("员工").DataRows '从数据表中提取数据
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) = cl & ": " & dr(cl)
If cl = "性别" Then
If dr("性别") = True Then
vr(cl) = "性别: " & " "-----该字体是自己造的，字库中没有则不显示
Else
vr(cl) = "性别: " & " "-----该字体是自己造的
End If
End If
Next
Next
lvw.ResumeRedraw() '恢复绘制
效果如下：
此主题相关图片如下：21.jpg
此主题相关图片如下：20.jpg
造字方法如下：
（一）造字：
1、点“开始”——“所有程序”——“附件”——“造字程序”，打开造字程序中的界面，并出现“选择代码”：
2、在“选择代码”中，AAA0、AA10等，和横排的0、1、2、3等两者结合，构成区位码。选点中间的任何一个方框，在下面“代码”中便会显示该方框的区位码。按“确定”便会出现该代码的编辑框。
3、在上面的界面中可以用左侧的画笔写出要造的字，写字要先点左侧工具中的画笔，再点斜线，写出的是细斜线，可再写以加粗。写错了可用左侧工具中的橡皮擦擦掉。待完成写字后，点“编辑”——“保存字符”即可供使用。
4、另外（这是更好的方法），也可点工具栏上的“窗口”——“参照”，出现“参照”界面：
5、点最下面右边第三个“字体”按钮。出现字体选择对话框，可选择不同的字体。选好后点字体选择对话框中的“确定”即可：
6、拉动“参照”右侧滑动条会出现许多文字。选中自己要用的字（用该字的或左、或右、或上、或下），单击该字，该字便出现在下面的“形状”框中。
7、点下面的“确定”，便出现左边是“编辑”框，右边是“参照”框的界面。
8、现在鼠标变成+字，用鼠标勾选“参照”中的字的要用的部分，并按住鼠标左键拖动到左边的“编辑”框（注意上下左右的位置，不过，如果位置不正确可以拉动调整）。
9、再点工具栏上的“窗口”——“参照”，用同样的方法选出还需要的字。用同样的方法将新选字的有用部分拖到左边的“编辑”框。
10、现在，对字进行修整，用橡皮擦擦去多余的部分，完成后同样点“编辑”——“保存字符”即可供使用。
（二）使用：
利用“字符映射表”使用所造的字：
① 点“开始——所有程序——附件——系统工具——字符映射表”。
② 将字体改为“所有字体（专用字符）”，所造的字便在格子中。
③用鼠标点选拟用的字，该字将变得特别的大。
④按下方“选择”，它就出现在“复制字符（A）”右边的框
中。按该框右侧最右边的“复制”，该字便复制在剪贴板
中。 在需要输入文字的地方点“粘贴”即可出现该字。
[此贴子已经被作者于2015/2/28 22:47:06编辑过]
加好友 
发短信
Post By：2015/2/27 21:28:00 [只看该作者]
此主题相关图片如下：6.bmp
