ERROR 'statement is not valid in a namespace'

[ralph130]

hoi,
ik ben begonnen met programeren in vb, en ik heb een texteditor gemaakt, maar hij geeft 13 keer dezelfde error weer: "statement is not valid in a namespace.

weet iemand hoe je dit wegkrijgt? ik heb al op Google gezocht, en vond iets, maar ik kon er niet aan uit.

het zou handig zijn als je de code opnieuw post met de verbeteringen erin.

code:
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

Private Sub KleurToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
Try
Dim dlg As ColorDialog = New DColorDialog
dlg.color = RichTextBox1.ForeColor
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Forecolor = dlg.Color
End If
Catch ex As Exception

End Try
End Sub
Private Sub LettertypeToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
Try
Dim dlg As FontDialog = New FontDialog
dlg.font = RichTextBox1.Font
If dlg.ShowDialog = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.Font = dlg.font
End If
Catch ex As Exception

End Try
End Sub

Private Sub AllesSelecterenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs)
RichTextBox1.selectAll()
End Sub
Public Class Form1

Private Sub FileToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles FileToolStripMenuItem.Click

End Sub
End Class

Private Sub SaveToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Try
Dim dlg As SaveFileDialog = New SaveFileDialog
dlg.Title = "Opslaan"
dlg.Filter = "Rich Text Files (*.rtf)|.rtf"
If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.SaveFile(dlg.FileName, RichTextBoxStreamType.RichText)
End If
Catch ex As Exception

End Try
End Sub

Private Sub RichTextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles RichTextBox1.TextChanged

End Sub

Private Sub NewToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles NewToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub

Private Sub OpenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dfg.Title = "open"
dlg.Filter = "Rich Text Files (*.rtf)|*.rtf"
If dlg.SowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)

End If
Catch ex As Exception

End Try
End Sub

Private Sub OngedaanMakenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles OngedaanMakenToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub

Private Sub HerhalenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles HerhalenToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub

Private Sub KnippenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KnippenToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub

Private Sub KopieërenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles KopieërenToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub

Private Sub PlakkenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles PlakkenToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub

Private Sub WissenToolStripMenuItem_Click(sender As System.Object, e As System.EventArgs) Handles WissenToolStripMenuItem.Click
RichTextBox1.Clear()


End Sub
---------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

ik hoop echt dat iemand mij kan helpen...

 

[edmoor]

Zonder codetag en inspringpunten is dit niet te lezen.
Het is nu niet te bepalen waar Public Class Form1 afgesloten wordt.
Wat wel is te zien is dat je code buiten die class hebt staan en daarom gaat het mis.

 

[JoZ1]

Dat wat edmoor zegt is het probleem: Je code staat niet in een class.

Zet helemaal bovenaan: Public Class Form1
En helemaal onderaan: End Class

(Form1 is natuurlijk aan te passen)

 

[ralph130]

bedankt,
dat was het inderdaad. ik had code's boven het begin van de class en onder het einde van de class gezet.
nu werkt mijn programma wel.

 

[JoZ1]

Prima. Zet je de status even op opgelost?

 

[ralph130]

domme vraag wss

maar hoe doe je dat?

 

[JoZ1]

Is niet dom

Klik op 'Zet status opgelost' rechts onderaan je eerste bericht.