Dim Index As Integer
Line Input #1, s
s = Trim(s)
If s = "End" Then
Close #1
调试的时候出现输入超出文件尾 要怎么弄
问题补充：Private Sub Timer2_Timer()
Dim s As String
Dim Index As Integer
Line Input #1, s
s = Trim(s)
If s = "End" Then
Close #1
Timer2.Enabled = False
Command2.Enabled = True
Label1_MouseMove 0, 0, 1, 1
Exit Sub
End If
Index = Val(s)
If Index < 100 Then
Index = Index + 7
Picture1_DragOver Index, Picture1(Index), 1, 1, 1
Index = Index + 24
Picture1_DragOver Index, Picture1(Index), 1, 1, 1
End If
isagain = True
End Sub 这个是整段代码
|
