Actie instellen bij klik op knop.

[The Mighty Atom]

Ugh, alsjeblieft geen installer. Die dingen zijn echt overbodig voor klein programmaatjes als de jouwe.

 

[Zandor300]

Oké sorry

 

[Zandor300]

Nog een programmatje genaamt kladblok

Ik heb ook een kladblok gemaakt (al eerder) en ik heb de code van deze gekopiëerd en veranderd in dit:
[CPP]Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim Save As New SaveFileDialog
Save.Filter = "Klad-Bestanden (*.klad)|*.klad"

If Save.ShowDialog = DialogResult.OK Then
Dim Writer As New System.IO.StreamWriter(Save.FileName)
Writer.WriteLine(RichTextBox1.Text) 'RichTextboxdata schrijven naar bestand
Writer.Close()
End If
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim Open As New OpenFileDialog
Open.Filter = "Klad-Bestanden (*.klad)|*.klad"
If Open.ShowDialog = DialogResult.OK Then

Dim Reader As New System.IO.StreamReader(Open.FileName) 'Bestand lezen
Dim Data() As String = Reader.ReadToEnd.Split(vbNewLine) 'De twee regels scheiden
Reader.Close()

RichTextBox1.Text = RichTextboxData(0) 'Data naar RichTextBox1 schrijven
End If
End Sub
End Class[/CPP]
Maar hij geeft deze foutmelding:

'RichTekstboxData' is not declared. If may be inaccessible due to its protection level. | Line 23 | Column 33

Het gaat om deze regel volgens mij:
[CPP]RichTextBox1.Text = RichTextboxData(0) 'Data naar RichTextBox1 schrijven[/CPP]
Kan iemand de regel voor mij veranderen?

 

[CaptainBri]

RichTextBox1.Text = Data(0)

 

[Zandor300]

Ja hij doet het! Bedankt.