关于vb代码的问题需要高手帮忙
来源:百度知道 编辑:UC知道 时间:2024/09/23 10:21:01
Open OnlineFile For Append As #FileHandle
Set txtf = fs.OpenTextFile(App.Path & "\Race.xls", ForAppending, True)
OneLineResult = Left(Top5Liste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(6) & " ", 30)
txtf.WriteLine OneLineResult
OneLineResult = Left(Konstatierliste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(6) & " ", 30)
txtf.WriteLine OneLineResult
Close #FileHandle
Set txtf = fs.OpenTextFile(App.Path & "\Race.xls", ForAppending, True)
OneLineResult = Left(Top5Liste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Top5Liste.SelectedItem.SubItems(6) & " ", 30)
txtf.WriteLine OneLineResult
OneLineResult = Left(Konstatierliste.SelectedItem.SubItems(1) & " ", 5) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(2) & " ", 20) & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(4) & " ", 30) & vbTab & vbTab & " " & Left(Konstatierliste.SelectedItem.SubItems(6) & " ", 30)
txtf.WriteLine OneLineResult
Close #FileHandle
并这段代码应该是在下面的定时器中的。
且这个定时器的interval属性值应该是3000(毫秒)
Private Sub Timer1_Timer()
End Sub
定时器中的代码会根据它的周期interval属性值而自动按周期重复执行。周期为零则不执行。
我也看不出3秒刷新一次的地方,是不是用了定时器Timer?