Applies to:

READDATAQFILE Active X Control

Description:

Fires when the end of the file is reached.

Example:

Private Sub Exit_Click()

ReadDataqFile1. Close

End

End Sub

Private Sub Form_Load()

ReadDataqFile1. Open

DQChart1. Chart (ReadDataqFile1. GetData(DQChart1. Xmax, FormatBinary))

End Sub

Private Sub MoveRight_Click()

ReadDataqFile1. MoveTo DQChart1. Xmax, 1

DQChart1. Chart (ReadDataqFile1. GetData(DQChart1. Xmax, FormatBinary))

End Sub

Private Sub MoveLeft_Click()

ReadDataqFile1. MoveTo -DQChart1. Xmax, 1

DQChart1. Chart (ReadDataqFile1. GetData(DQChart1. Xmax, FormatBinary))

End Sub

Private Sub ReadDataqFile1_EndOfFile()

Label1.Caption = "End of File has been Reached!"

End Sub