列表框中有若干项,现在用Timer控件控制时间,每隔100ms删除一项,直到删完为止,用一个滚动条来显示删除的项目数,请将以下程序补充完整。
Private Sub Command1_Click( ) HScroll1.Min=0 HScroll1.Max=______ HScroll1.Value=0 Timer1.______=100 Timer1.Enabled=True End Sub Private Sub Timer1_Timer( ) If List1.ListCount>0 Then List1.RemoveItem (0) HScroll1.Value=______-List1.ListCount Else Timer1.Enabled=False:MsgBox"全部删除!" End If End Sub
题库:计算机等级考试
类型:填空题
时间:2021-06-06 11:50:59
免费下载:《填空》Word试卷
列表框中有若干项,现在用Timer控件控制时间,每隔100ms删除一项,直到删完为止,用一个滚动条来显示删除的项目数,请将以下程序补充完整。
Private Sub Command1_Click( ) HScroll1.Min=0 HScroll1.Max=______ HScroll1.Value=0 Timer1.______=100 Timer1.Enabled=True End Sub Private Sub Timer1_Timer( ) If List1.ListCount>0 Then List1.RemoveItem (0) HScroll1.Value=______-List1.ListCount Else Timer1.Enabled=False:MsgBox"全部删除!" End If End Sub
本题关键词:控制项,项目目标动态控制,项目目标控制,专项控制,项目质量控制,主控项目,次控项目,项目目标控制方法,工程项目一览表,钢筋工程主控项目;