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