[填空題] 某程序列表框中有許多項，現(xiàn)在用Timer控件控制時間，100ms刪除一項，直到刪完為止。用一滾動條來顯示已刪除的項目，完成此程序。 Private
2021-07-20
[填空題] 某程序列表框中有許多項，現(xiàn)在用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 List.ListCount＞0 Then
List1.Removeltem(0)
HScroll1.Value=______-List1.ListCount
Else
Timer1.Enabled=False
MsgBox”全部刪除!”
End If
End Sub
正確答案：List.ListCount；Interval；HScroll1.Max
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域?qū)I(yè)人士。