VSFlexGrid控件可以设置某一行的颜色吗???? 那位大哥知道VSFlexGrid控件可以设置某一行的颜色吗?可以的话 提示下该怎么做才能 让某些行的文字颜色 与别的行不同? 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 一般都用spread,手边没这个控件网上search到的,参考一下.FixedRows = 1 '固定几行.FixedCols = 1'固定几列.Editable = True'允许修改.AllowUserResizing = flexResizeBoth'可调整行/列.FocusRect = flexFocusNone'无虚框.SelectionMode = flexSelectionListBox'焦点选中样式.BackColor = RGB(255, 255, 255)'单元背景色.BackColorSel = vbBlue'单元选择色.BackColorFixed = RGB(208, 192, 160)'固定单元色.BackColorAlternate = RGB(255, 250, 230)'间隔行背景色.GridColor = RGB(245, 240, 210)'单元线条色.ForeColor = RGB(0, 0, 0)'单元前景色(字符色).RowHeightMin = 260'最小行高.RowHeightMax = 800 '最大行高.ColHeightMin = 50 '最小列宽.ColHeightMax = 3000 '最大列宽.ColWidth(Col) = 1000'指定列宽.RowHeight(Row) = 260'指定行高.TextMatrix(Row,Col) = "Text"'指定单元字符.Text = "Text" '选定单元字符.MergeCol(Col) = True'允许合并列.MergeRow(Row) = True'允许合并行.MergeCells = 0|1|2|3|4|5|6 '合并选项.Cell(选项准则, Row1, Col1, Row2, Col2)'选择部分的相应准则值.EditCell '当移动到当前单元时自动选择.EditSelStart'移动到单元时的光标位置.MousePointer vsflexgrid.cell(flexedcellbackcolor,row,row,0,cols-1)=vbred With Me.vsf1 For i = 0 To .Cols - 1 .Row = .Rows - 1 .Col = i .CellBackColor = vbYellow Next End With 先确定一行: FG.Row=curCol 逐列改变底色: With FG For i = 0 To .Cols - 1 .Col = i .CellBackColor = vbYellow Next End With With Me.vsf1 if .col mod 2=0 then .CellBackColor = vbYellowend with 网络编程中,release debug版本问题 DataReport报表设计器的数据绑定? 怎么使用句柄??? vb如何实现在当前程序中调用b程序,并在b程序结束后关闭当前程序!在线等! 请教:如何在VB中调用另一个软件程序? 帮个忙!!! 水晶报表9英文版乱码!!!! VBA MSXML2.XMLHTTP.3.0获取百度网站site乱码的问题 赚钱了,!!! VC中使用SCriptControl 对于自已设计的类对象,如何判断它是否已经实例化呀? 关于VsFlexgrid的问题
'固定几行
.FixedCols = 1
'固定几列
.Editable = True
'允许修改
.AllowUserResizing = flexResizeBoth
'可调整行/列
.FocusRect = flexFocusNone
'无虚框
.SelectionMode = flexSelectionListBox
'焦点选中样式
.BackColor = RGB(255, 255, 255)
'单元背景色
.BackColorSel = vbBlue
'单元选择色
.BackColorFixed = RGB(208, 192, 160)
'固定单元色
.BackColorAlternate = RGB(255, 250, 230)
'间隔行背景色
.GridColor = RGB(245, 240, 210)
'单元线条色
.ForeColor = RGB(0, 0, 0)
'单元前景色(字符色)
.RowHeightMin = 260
'最小行高
.RowHeightMax = 800
'最大行高
.ColHeightMin = 50
'最小列宽
.ColHeightMax = 3000
'最大列宽
.ColWidth(Col) = 1000
'指定列宽
.RowHeight(Row) = 260
'指定行高
.TextMatrix(Row,Col) = "Text"
'指定单元字符
.Text = "Text"
'选定单元字符
.MergeCol(Col) = True
'允许合并列
.MergeRow(Row) = True
'允许合并行
.MergeCells = 0|1|2|3|4|5|6
'合并选项.
Cell(选项准则, Row1, Col1, Row2, Col2)
'选择部分的相应准则值
.EditCell
'当移动到当前单元时自动选择
.EditSelStart
'移动到单元时的光标位置
.MousePointer
For i = 0 To .Cols - 1
.Row = .Rows - 1
.Col = i
.CellBackColor = vbYellow
Next
End With
FG.Row=curCol
逐列改变底色:
With FG
For i = 0 To .Cols - 1
.Col = i
.CellBackColor = vbYellow
Next
End With
if .col mod 2=0 then
.CellBackColor = vbYellowend with