MSFlexGrid控件绑定复选框

 

最近在写一个播放器。就遇到了一个小小的问题。后来上网查了很多资料，现在总结一下这个例子的代码。

  Private Sub MSFlexGrid1_Scroll()
    With MSFlexGrid1
      For i = 0 To 18
            If .RowIsVisible(i + 1) Then
            Check1(i).Visible = True
            Check1(i).Height = 225
            Check1(i).Width = 1185
            Check1(i).Left = .Left + 38
            Check1(i).Top = .Top + .RowPos(i + 1) + 50
            Else
            Check1(i).Visible = False
            End If
      Next
    End With
  End Sub