Question

VB6.0 MSHFlexGrid的问题

我想实现当点其中的一个方格子，这一行的记录被选中，低色为红，而这一个方格子为黄色。怎么实现。。。。

Answer 1

你看这样行不行
Dim nr%, nc%
Private Sub MSHFlexGrid1_Click()
Dim ncc%, ncr%, i%
With MSHFlexGrid1
ncc = .Col
ncr = .Row
If nr > 0 Then
.Row = nr
For i = 1 To .Cols - 1
.Col = i
.CellBackColor = .BackColor
Next i
End If
nc = ncc
nr = ncr
.Row = nr
For i = 1 To .Cols - 1
.Col = i
.CellBackColor = vbRed
Next i
.Col = nc
.CellBackColor = vbYellow
End With
End Sub