VB编写程实现：每秒钟标签中依次显示列表框的内容
窗体上布置一个列表框控件，一个计时器控件，一个标签控件。首先在界面设计中向列表框中增加“第一项”，“第二项”，“第三项”，“第四项”。编写程实现：每秒钟标签中依次显示列表...
窗体上布置一个列表框控件，一个计时器控件，一个标签控件。首先在界面设计中向列表框中增加“第一项”，“第二项”，“第三项”，“第四项”。编写程实现：每秒钟标签中依次显示列表框的内容
求具体编程 展开
求具体编程 展开
展开全部
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
更多追问追答
追问
谢谢，但是这样子，标签不能够显示啊！要把第几项这些显示在标签里的
追答
标签能显示，Label1 = List1.Text这句不就是把当前项目输出到标签吗，问题是你有没有添加标签控件。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
