以文本方式查看主题

-  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=55396)
--  作者：freeants
--  发布时间：2014/8/15 17:10:00
--  LISTVIEW 里面的分组名字如何改字体
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的字体呢
--  作者：Bin
--  发布时间：2014/8/15 17:26:00
--  
vr.Font=New Font("宋体",24, FontStyle.Strikeout)
--  作者：freeants
--  发布时间：2014/8/15 19:33:00
--  
我要 改的 是 VR.GROUP 的 FONT ，不是 VR 的 font ，就是分组名的 FONT

vr.Font=New Font("宋体",24, FontStyle.Strikeout)

只能改每行的FONT