Happy Codings - Programming Code Examples

Visual Basic Programming Code Examples

Visual Basic > Code Snippets

Display a files contents in a text box



Display a files contents in a text box


'place a text box on a form

Private Sub Form_Load()
Dim fileLength
Open "d:\comboexample.txt" For Input As #1
fileLength = LOF(1)
fileRead = Input(fileLength, #1)
Text1.Text = fileRead
Close #1
End Sub

'comboexample.txt

line1
line2
line3
line4

I survived because the fire inside me burned brighter than the fire around me.

Joshua Graham

Find out what you like doing best and get someone to pay you for doing it.

Katherine Whitehorn

To be yourself in a world that is constantly trying to make you something else is the greatest accomplishment.

Ralph Waldo Emerson

Obstacles don't have to stop you. If you run into a wall, don't turn around and give up. Figure out how to climb it, go through it or work around it.

Michael Jordan

If you dare nothing, then when the day is over, nothing is all you will have gained.

Neil Gaiman

Anyone who keeps learning stays young. The greatest thing in life is to keep your mind young.

Henry Ford

The only way to do great work is to love what you do. If you haven't found it yet, keep looking, and don't settle.

Steve Jobs

If you change the way you look at things, the things you look at will change.

Wayne Dyer