UC知道vb 图片滚动的timer控件编码，谁帮我解释下..谢了...
来源：百度知道 编辑：UC知道 时间：2024/06/25 22:52:04
Private Sub tmrPic_Timer()
If imgPicS(k).Left + imgPicS(k).Width < 0 Then
For i = 0 To k
imgPicS(i).Left = frmVote.Width + 1 * imgPicS(0).Width
Next i
Else
For i = 0 To k
imgPicS(i).Left = imgPicS(i).Left - 100
Next i
End If
For i = k + 1 To 9
imgPicS(i).Enabled = False
Next i
End Sub
回 安诺NO，这个我知道，可是这些编码我不太懂，可以逐句解释下么...
If imgPicS(k).Left + imgPicS(k).Width < 0 Then
For i = 0 To k
imgPicS(i).Left = frmVote.Width + 1 * imgPicS(0).Width
Next i
Else
For i = 0 To k
imgPicS(i).Left = imgPicS(i).Left - 100
Next i
End If
For i = k + 1 To 9
imgPicS(i).Enabled = False
Next i
End Sub
回 安诺NO，这个我知道，可是这些编码我不太懂，可以逐句解释下么...
Private Sub tmrPic_Timer()
If imgPicS(k).Left + imgPicS(k).Width < 0 Then '如果某k号图片向左移看不到了的话,那么下面
For i = 0 To k
imgPicS(i).Left = frmVote.Width + 1 * imgPicS(0).Width '某i号图片向左移零号图片的宽度.
Next i
Else
For i = 0 To k
imgPicS(i).Left = imgPicS(i).Left - 100 '某i号图片向左移100单位
Next i
End If
For i = k + 1 To 9
imgPicS(i).Enabled = False '让k+1到k+9号图片失去活性
Next i
End Sub
··就是用TIMER控件控制IMGPICS控件让它从左到右的跑
跑过了再从头跑···