met onderstaande code wordt bij het openen van de form de text uit een textfile gehaald dat wil zeggen dat elke button een eigen textfile heeft.
Code:
Private Sub Form1_Load() Handles MyBase.Load
Dim Reader1 As New StreamReader("C:\TextFile1.txt", False)
TextBox1.Text = Reader1.ReadToEnd
Me.Button1.Text = Me.TextBox1.Text
Me.Button1.ForeColor = Color.Blue
Reader1.Close()
On Error Resume Next
Dim Reader2 As New StreamReader("C:\TextFile2.txt", False)
TextBox2.Text = Reader2.ReadToEnd
Me.Button2.Text = Me.TextBox2.Text
Me.Button2.ForeColor = Color.Blue
Reader2.Close()
On Error Resume Next
Dim Reader3 As New StreamReader("C:\TextFile3.txt", False)
TextBox3.Text = Reader3.ReadToEnd
Me.Button3.Text = Me.TextBox3.Text
Me.Button3.ForeColor = Color.Blue
Reader3.Close()
Dim Reader4 As New StreamReader("C:\TextFile4.txt", False)
TextBox4.Text = Reader4.ReadToEnd
Me.Button4.Text = Me.TextBox4.Text
Me.Button4.ForeColor = Color.Blue
Reader4.Close()
met onderstaande code wordt de tekst van de textbox naar de textfile gesaved
ik laat er hier 4 zien. In mijn form staan er 14
Code:
Private Sub Button21_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button21.Click
Dim open As New OpenFileDialog
If Me.RadioButton1.Checked = True Then
open.Filter = "Alle Bestanden *.*|*.*"
If open.ShowDialog() = DialogResult.OK Then
TextBox1.Text = open.FileName
With Button1
.Tag = "TextBox1.Text"
.Text = Me.TextBox1.Text ''// pas de tekst aan
.ForeColor = Color.Blue
End With
RadioButton1.Checked = False
Dim Writer As New StreamWriter("C:\TextFile1.txt", False)
Writer.Write(TextBox1.Text)
Writer.Close()
End If
End If
If Me.RadioButton2.Checked = True Then
open.Filter = "Alle Bestanden *.*|*.*"
If open.ShowDialog() = DialogResult.OK Then
TextBox2.Text = open.FileName
With Button2
.Tag = "TextBox2.Text"
.Text = Me.TextBox2.Text ''// pas de tekst aan
.ForeColor = Color.Blue
End With
RadioButton2.Checked = False
Dim Writer As New StreamWriter("C:\TextFile2.txt", False)
Writer.Write(TextBox2.Text)
Writer.Close()
End If
End If
If Me.RadioButton3.Checked = True Then
open.Filter = "Alle Bestanden *.*|*.*"
If open.ShowDialog() = DialogResult.OK Then
TextBox3.Text = open.FileName
With Button3
.Tag = "TextBox3.Text"
.Text = Me.TextBox3.Text ''// pas de tekst aan
.ForeColor = Color.Blue
End With
RadioButton3.Checked = False
Dim Writer As New StreamWriter("C:\TextFile3.txt", False)
Writer.Write(TextBox3.Text)
Writer.Close()
End If
End If
If Me.RadioButton4.Checked = True Then
open.Filter = "Alle Bestanden *.*|*.*"
If open.ShowDialog() = DialogResult.OK Then
TextBox4.Text = open.FileName
With Button4
.Tag = "TextBox4.Text"
.Text = Me.TextBox4.Text ''// pas de tekst aan
.ForeColor = Color.Blue
End With
RadioButton4.Checked = False
Dim Writer As New StreamWriter("C:\TextFile4.txt", False)
Writer.Write(TextBox4.Text)
Writer.Close()
End If
End If
en met onderstaande code kun je de button.text verwijderen en daarmee ook de textfile.text
ook hier weer zijn het er eigenlijk 14
Code:
Private Sub Button20_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button20.Click
If RadioButton1.Checked = True Then
Me.Button1.Text = ""
Me.TextBox1.Text = ""
Dim Writer As New StreamWriter("C:\TextFile1.txt", False)
Writer.Write(TextBox1.Text)
Writer.Close()
End If
If RadioButton2.Checked = True Then
Me.Button2.Text = ""
Me.TextBox2.Text = ""
Dim Writer As New StreamWriter("C:\TextFile2.txt", False)
Writer.Write(TextBox2.Text)
Writer.Close()
End If
If RadioButton3.Checked = True Then
Me.Button3.Text = ""
Me.TextBox3.Text = ""
Dim Writer As New StreamWriter("C:\TextFile3.txt", False)
Writer.Write(TextBox3.Text)
Writer.Close()
End If
If RadioButton4.Checked = True Then
Me.Button4.Text = ""
Me.TextBox4.Text = ""
Dim Writer As New StreamWriter("C:\TextFile4.txt", False)
Writer.Write(TextBox4.Text)
Writer.Close()
End If
en met onderstaande code wordt de file geopend die als text in een butten staat
ook in dit geval alleen de eerste 4 button code hier in beeld
Code:
Private Sub Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click, Button2.Click, Button3.Click, Button4.Click If sender.Text <> "" Then Process.Start(sender.Text)
End Sub
ik heb gister en vandaag ook weer geprobeert jou ini code toe te passen maar ik snap dr werkelijk helemaal niks van.
geen idee waar ik jou voorbeeld regels neer moet zetten
het hele class blok dat denk ik nog te snappen waar dat staan moet want ik denk gewoon een nieuwe class toevoegen en die grote ini code daar in zetten toch?
jou laatste voorbeeld code nr 1 een verkorte versie van de openfiledialoge gaf een foutmelding bij de .tag=tag en de .text=text. Na een nacht van werken en een dag van niet slapen:shocked: weet ik helaas niet meer welke foutmelding dat was vanmiddag
volgens mij was het iets van dat ze te vroeg werden aangeroepen. Ik kan me voorstellen dat je graag presies wil weten wat het voor fout was, maar ik heb een vermoeden dat je dat wel weet. zo niet gooi ik mn progje nog een keer om zodat ik de exacte fout hier kan vermelden
Ben benieuwd wat je van de code vind:d
.
, maar mijn Visual Studio geeft problemen.
