ListView问题。第六列文字字体变色、变粗 ,如何实现? 如题。对于第六列字体颜色变成VBRED,且加粗? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 ListView1.ListItems(1).ListSubItems(5).ForeColor=...ListView1.ListItems(1).ListSubItems(5).Bold = True 回复人: Fanks(铁面人) ( ) 信誉:100 2005-09-16 09:08:00 得分: 0 设置subitems(5)的属性Set itemReturn = LvwAudit.ListItems.Add(, , i, 1, 1)itemReturn.SubItems(5).ForeColor = vbRed'有异常,出错!!!! 应该就是设置subitems(5)的属性啊 '.SubItems是String类型数组itemReturn.ListSubItems(5).ForeColor = vbRed 首先将listview的view属性设为lvwReport再添加5个ColumnHeader如下:Dim itemreturn As ListItemDim i As Integeri = 0LvwAudit.View = lvwReportLvwAudit.ColumnHeaders.Add , , "" & iLvwAudit.ColumnHeaders.Add , , "" & i + 1Set itemreturn = LvwAudit.ListItems.Add(, , "" & i)itemreturn.Text = ""itemreturn.SubItems(1) = "saafd"itemreturn.ListSubItems(1).ForeColor = vbReditemreturn.ListSubItems(1).Bold =True 错误的文件名和号码,急 请教高手VB6 中如何实现结构异常处理(SEH)? 数据库数据完整性疑问 高分求救,在线等待 如何得到word文档中一个文字域的位置 请问用listbox或者其它的控件可以显示多列数据吗 简单的vb2010问题哦,超级新手哈 紧急求助! 关于RichTextBox的剪切、粘贴等问题! crystal运行时有20354的错误,如何解决,谢谢! 控件组的问题 在窗口建立一个Label控件,Label控件的Caption="http:\\www.163.com",当鼠标点击Label控件时自动打开默认IE进行连接,请问如何连接?谢谢
ListView1.ListItems(1).ListSubItems(5).Bold = True
设置subitems(5)的属性Set itemReturn = LvwAudit.ListItems.Add(, , i, 1, 1)
itemReturn.SubItems(5).ForeColor = vbRed'有异常,出错!!!!
itemReturn.ListSubItems(5).ForeColor = vbRed
再添加5个ColumnHeader
如下:
Dim itemreturn As ListItem
Dim i As Integer
i = 0
LvwAudit.View = lvwReport
LvwAudit.ColumnHeaders.Add , , "" & i
LvwAudit.ColumnHeaders.Add , , "" & i + 1
Set itemreturn = LvwAudit.ListItems.Add(, , "" & i)
itemreturn.Text = ""
itemreturn.SubItems(1) = "saafd"
itemreturn.ListSubItems(1).ForeColor = vbRed
itemreturn.ListSubItems(1).Bold =True