Applies to:

READDATAQFILE Active X Control

Description:

Closes the file.

Syntax:

ReadDataqFile1.Close

Example:

Private Sub Exit_Click()

Dim msg As String

Dim msgbuttons As Integer

Dim msgresult As Integer

msg = "Are you sure you want to exit?"

msgbuttons = vbYesNo + vbQuestion

msgresult = msgbox(msg, msgbuttons, "name of program")

If msgresult = vbYes Then

    ReadDataqFile1.Close

    End

End If

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