我要疯了，还是搞不定~~~~~~~~~~

Question

Dim lcol, lrow As LongPrivate Sub Form_Load()
With MSFlexGrid1
lcol = 1
.Col = 1
lrow = 1
.Row = 1
MSFlexGrid1_RowColChange
End With
End SubPrivate Sub MSFlexGrid1_RowColChange()
With MSFlexGrid1
lcol = .Col
lrow = .Row
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
End With
End SubPrivate Sub MSFlexGrid1_Scroll()
With MSFlexGrid1
If .RowIsVisible(lrow) And .ColIsVisible(lcol) Then
Check1.Visible = True
Check1.Height = .CellHeight
Check1.Width = .CellWidth
Check1.Left = .CellLeft + .Left
Check1.Top = .CellTop + .Top
Else
Check1.Visible = False
End If
End With
End Sub

Answer 1

按你说的试了，不行啊，我用到的是控件数组，现在问题是我假如把第一行的CHECKBOX打勾的话，我假如拖动滚动条的话，下一显示区相应的第一行（比如第10行）还被选择（也达勾了）了，所以容易给人这样的错觉以为多选了，我怎么做都不能实现，我都整好久了啊....

Answer 2

太麻烦了，你用VSFflexgrid7 控件吧。