问题描述
我从txt读出了2个时刻12:00和12:10form2窗体运行5s自动关闭但是我这个代码如果只一个时刻,比如说12:00的时候,他会正常运行。但是有2个时刻的form2就会从12:00一直打开到12:10DimreaderAsNewSystem.IO.StreamReader("d:test.txt")DimreaAsStringDimwzAsIntegerDimtime1AsDateTimeFori=0Tolstxianshi.Items.Count-1rea=reader.ReadLine()wz=InStr(rea,"时间:")time1=Mid(rea,wz+4,8)DoIfTimeOfDay.Hour=time1.HourAndTimeOfDay.Minute=time1.MinuteThenForm2.Show()ListBox1.Items.Add(time1)EndIfIfTimeOfDay.Hour=time1.HourAndTimeOfDay.Minute=time1.MinuteThenExitDoLoopNextreader.Close()reader.Dispose()EndSub
解决方案
本帖最后由 nxinibao 于 2015-03-20 11:39:38 编辑
解决方案二:
rea=reader.ReadLine()两个时间是指两行么?你放到一行试下呢
时间: 2024-10-01 07:15:49