• Home
 · 
• Files/File Controls/Input/Output
 · 
• A simple and good text viewer

A simple and good text viewer

A simple and good text viewer

Rate A simple and good text viewer

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

Private Sub cmdFile_Click()
  Dim sTemp As String
  dlg.FileName = "*.txt"
  dlg.ShowOpen
  txtFile = dlg.FileName
  If Dir(dlg.FileName) <> "" Then
    If FileLen(dlg.FileName) > 32000 Then
      MsgBox "File is bigger then 32 KB. Don't want to show it"
    Else
      Me.MousePointer = vbHourglass
      txtOutput = ""
      Open dlg.FileName For Input As 1
      While Not EOF(1)
        Line Input #1, sTemp
        txtOutput = txtOutput & sTemp & vbCrLf
      Wend
      Close #1
      Me.MousePointer = vbDefault
    End If
  Else
    MsgBox "File not found", vbCritical, "Error"
  End If
End Sub

Private Sub Form_Resize()
  txtOutput.Height = Me.Height - 750
  txtOutput.Width = Me.Width - 120
End Sub