Open the text file, PDF file or another file for display text mode.
Public Function OpenFile( ByVal fileName As String ) as Integer
Parameter fileName - the string of file name.
Return Value Return 1 - successful Return 0 - failed Example
VB.NET Syntax 'OpenFileDialog1.Filter = "All Files (*.*)|*.*|PDF (*.pdf)|*.pdf|Text File (*.text)|*.txt"
If OpenFileDialog1.ShowDialog() = DialogResult.OK Then If AxTextReaderAx1.OpenFile(OpenFileDialog1.FileName) = 1 Then Dim count As Integer = AxTextReaderAx1.GetPageCount() - 1 End If End If
Visual Basic Syntax If TextReaderAx1.OpenFile(CommonDialog1.FileName) = 1 Then List1.Clear For i = 0 To TextReaderAx1.GetPageCount - 1 List1.AddItem "Page " + Str(i + 1) Next Image1.Picture = TextReaderAx1.GetPageThumbnail(0) Else MsgBox "Open File Failed" End If
