yuchifm的博客

参考网上资源类改写成为LISTVIEW控件，可设置多项属性 本着资源共享的原则上传，希望广大网友可以完善代码 lvwEdit1.AddColumnHeaders index, Key, Text, Width, Alignment '添加LISTVIEW表头 lvwEdit1.AddListItems index, Key, Text '添加LISTVIEW的ITEM数据 lvwEdit1.AddSubItems(index) = Text '设置LISTVIEW的SubItems数据 lvwEdit1.AltBackGround = boolen '表格背景是否需要分行分颜色显示，需要添加数据后设置 lvwEdit1.AltBackGroundColor = OLE_COLOR '表格背景是否需要分行分颜色的颜色 lvwEdit1.ClearColumnHeaders '清空表头 lvwEdit1.ClearListItems '清空数据 lvwEdit1.FormatString(Col) = "0.0000" '设置COL列的数据格式 lvwEdit1.GridLines = boolen '设置是否显示表格线 ItemCells = lvwEdit1.ItemCells(Row, Col) '返回row行，col列的数据 lvwEdit1.ItemColor(Row, Col) = OLE_COLOR '设置row行，col列的字符颜色 Sum = lvwEdit1.Sum '设置total(COL)后返回COL列的总和 lvwEdit1.Total(Col) = "Col1 * Col2" '设置COL列为那两个单元格的合计，字符串中COL1与COL2为列号，中间为运算符，所有由一个空格分开。