Hoi,
ik heb denk ik een heel simpel probleem, ik moet een windowtje maken die een text bestand uitleest en op het scherm laat zien.
als ik bv dit tekst bestand heb :
hiep hoi
dit
is een test
dan maakt hij er dit van
hiep hoiditis een test
volgens mij moet dit erg simpel zijn maar ik weet niet hoe je een richtextbox kan 'update' ipv eerst legen en dan wat anders erin zetten..
ik heb denk ik een heel simpel probleem, ik moet een windowtje maken die een text bestand uitleest en op het scherm laat zien.
als ik bv dit tekst bestand heb :
hiep hoi
dit
is een test
dan maakt hij er dit van
hiep hoiditis een test
volgens mij moet dit erg simpel zijn maar ik weet niet hoe je een richtextbox kan 'update' ipv eerst legen en dan wat anders erin zetten..
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Imports System.IO
Public Class Form1
Inherits System.Windows.Forms.Form
Dim cleartext As Boolean
Dim objStreamReader As StreamReader
Dim strLine As String
Dim strshow As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'Pass the file path and the file name to the StreamReader constructor.
objStreamReader = New StreamReader("\\d1rtm300\users\alert_window.txt")
'Read the first line of text.
strLine = objStreamReader.ReadLine
'Continue to read until you reach the end of the file.
Do While Not strLine Is Nothing
'Write the line to the Console window.
strshow = strshow & strLine & "/n"
'Read the next line.
strLine = objStreamReader.ReadLine
Loop
'Close the file.
objStreamReader.Close()
Console.ReadLine()
RichTextBox1.Text = strshow
End Sub
Private Sub close_window_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles close_window.Click
Form1.ActiveForm.Close()
End Sub
End Class |