LISTVIEW 里面的分组名字如何改字体 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → LISTVIEW 里面的分组名字如何改字体

共有3275人关注过本帖树形打印复制链接主题：LISTVIEW 里面的分组名字如何改字体

freeants

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00

LISTVIEW 里面的分组名字如何改字体 发帖心情

Post By：2014/8/15 17:10:00 [只看该作者]

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"

lvw.Rows("黄忠").Font = New Font("宋体",24, FontStyle.Strikeout)

如何把改 HI的字体呢

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/8/15 17:26:00 [只看该作者]

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

freeants

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：二尾狐帖子：572 积分：3771 威望：0 精华：0 注册：2014/5/8 13:41:00

Post By：2014/8/15 19:33:00 [只看该作者]

我要改的是 VR.GROUP 的 FONT ，不是 VR 的 font ，就是分组名的 FONT

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

只能改每行的FONT

主题：LISTVIEW 里面的分组名字如何改字体