Question

VB MSHFlexGrid表格颜色

想把选中行的网格颜色改变，请问该怎么编程？

Answer 1

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
If MSFlexGrid1.CellBackColor = &H80C0FF Then
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = vbWhite
Next i_Col
Else
For i_Col = 0 To MSFlexGrid1.Cols - 1
MSFlexGrid1.Col = i_Col
MSFlexGrid1.CellBackColor = &H80C0FF
Next i_Col
End If
End Sub

Answer 2

Private Sub MSHFlexGrid1_Click()
dim rowt as integer
dim i as integer
rowt=MSHFlexGrid1.row
for i=1 to 列
MSHFlexGrid1.row=rowt
MSHFlexGrid1.col=i
MSHFlexGrid1.cellbackcolor=&H8000000D&
next i

end sub