Dim lvw As WinForm.ListView = Forms("系统菜单").Controls("ListView1")
lvw.Groups.Clear() '清除原来的分组
lvw.Rows.Clear() '清除原来的行
lvw.Images.Clear() '清除原来的图片
lvw.View = ViewMode.LargeIcon '用大图标模式
Dim nms() As String = {"张飞","关羽","张云","马超","黄忠"}
Dim vrr As WinForm.ListViewGroup = LVW.Groups.Add("HI")
For Each nm As String In nms
Dim vr As WinForm.ListViewRow = lvw.Rows.Add()
vr.Text = nm
vr.Name = nm
vr.Group = "HI"
Next
lvw.Rows("黄忠").Font = New Font("宋体",24, FontStyle.Strikeout)
如何 把 改 HI的字体呢
加好友 
发短信
Post By：2014/8/15 17:10:00 [只看该作者]
