Font
返回或设置行的字体。
示例
Dim
lvw As
WinForm.ListView
= e.Form.Controls("ListView1")
Dim
nms()
As
String
=
{"张飞","关羽","张云","马超","黄忠"}
For
Each
nm
As
String
In
nms
Dim
vr
As
WinForm.ListViewRow
=
lvw.Rows.Add()
vr.Text
=
nm
vr.Name
=
nm
Next
lvw.Rows("黄忠").Font
= New Font("宋体",10,
FontStyle.Strikeout)