VB编写程实现：每秒钟标签中依次显示列表框的内容

2025-03-01 21:11:37

推荐回答（1个）

回答1：

Private Sub Form_Load()
    Dim i As Integer
    For i = 1 To 4
        List1.AddItem "第" & Mid("一二三四五六七八九十", i, 1) & "项"
    Next
End Sub
Private Sub Timer1_Timer()
    If List1.ListIndex < List1.ListCount - 1 Then
        List1.ListIndex = List1.ListIndex + 1 '把当前索引项每次向后移
        Label1 = List1.Text
    Else
        List1.ListIndex = 0 '到了最后重新开始
        Label1 = List1.Text
    End If
End Sub