7,759
社区成员
发帖
与我相关
我的任务
分享
For i = 0 To Text1.UBound
Private Sub Text1_Click(Index As Integer)
Dim i As Integer
For i = 0 To UBound(Text1)
If i \ 5 = Index \ 5 Then
Text1(i).BackColor = vbRed
Else
Text1(i).BackColor = vbWhite
End If
Next
End Sub
3、这特么不是想做个网格么,用grid或者listview控件搞定会省事很多。