xl3igplayer
Gebruiker
- Lid geworden
- 22 jan 2011
- Berichten
- 143
als ik intyp streamreader dan staat het er gewoon onder maar als ik dan op . druk dan krijg ik alleen maar de keuze [Null]
Bekijk de onderstaande video om te zien hoe je onze site als een web app op je startscherm installeert.
Opmerking: Deze functie is mogelijk niet beschikbaar in sommige browsers.
Imports System.IO
Public Class Form1
Dim streamWriter As System.IO.StreamWriter
Dim openResults As DialogResult
Dim saveResults As DialogResult
Dim fileReader As IO.StreamReader
Dim fileWriter As IO.StreamWriter
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim lezer As StreamReader = New StreamReader("pad naar het bestand")
While lezer.Peek > -1
Dim tempstr() As String = lezer.ReadLine.Split("|")
For Each control As Control In Me.Controls
If TypeOf control Is CheckBox Then
If control.Name = tempstr(0) Then CType(control, CheckBox).Checked = tempstr(1)
ElseIf TypeOf control Is TextBox Then
If control.Name = tempstr(0) Then control.Text = tempstr(1)
ElseIf TypeOf control Is Panel Then
If control.Name = tempstr(0) Then control.BackColor = Color.FromArgb(tempstr(1))
End If
Next
End While
lezer.Close()
lezer.Dispose()
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
For Each control As Control In Me.Controls
If TypeOf control Is CheckBox Then
streamWriter.WriteLine(control.Name & "|" & CType(control, CheckBox).Checked) 'Waarbij | de delimiter is om de de controlname te scheiden van de control property
ElseIf TypeOf control Is TextBox Then
streamWriter.WriteLine(control.Name & "|" & control.Text)
ElseIf TypeOf control Is Panel Then
streamWriter.WriteLine(control.Name & "|" & control.BackColor.ToArgb)
End If
Next
streamWriter.Close()
streamWriter.Dispose()
End Sub
End Class
Imports System.IO
Public Class Form1
Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Dim lezer As StreamReader = New StreamReader("pad naar het bestand, zelf even AANPASSEN, bijvoorbeeld C:\Users\CaptainBri\Desktop\file.txt")
Dim openResults As DialogResult
While lezer.Peek > -1
Dim tempstr() As String = lezer.ReadLine.Split("|")
For Each control As Control In Me.Controls
If TypeOf control Is CheckBox Then
If control.Name = tempstr(0) Then CType(control, CheckBox).Checked = tempstr(1)
ElseIf TypeOf control Is TextBox Then
If control.Name = tempstr(0) Then control.Text = tempstr(1)
ElseIf TypeOf control Is Panel Then
If control.Name = tempstr(0) Then control.BackColor = Color.FromArgb(tempstr(1))
End If
Next
End While
lezer.Close()
End Sub
Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim Schrijver As StreamWriter = New StreamWriter("pad naar het bestand, zelf even AANPASSEN, bijvoorbeeld C:\Users\CaptainBri\Desktop\file.txt")
For Each control As Control In Me.Controls
If TypeOf control Is CheckBox Then
Schrijver.WriteLine(control.Name & "|" & CType(control, CheckBox).Checked) 'Waarbij | de delimiter is om de de controlname te scheiden van de control property
ElseIf TypeOf control Is TextBox Then
Schrijver.WriteLine(control.Name & "|" & control.Text)
ElseIf TypeOf control Is Panel Then
Schrijver.WriteLine(control.Name & "|" & control.BackColor.ToArgb)
End If
Next
Schrijver.Close()
End Sub
End Class
Dim NogEenWriter As New StreamWriter ( etc...
NaamVanJeGlobalWriterHier = New StreamWriter ( etc...
Dim Test As String = My.Settings.Test
My.Settings.Test = "TEST"
We gebruiken essentiële cookies om deze site te laten werken, en optionele cookies om de ervaring te verbeteren.