Quantcast
Channel: VBForums - Visual Basic .NET
Viewing all articles
Browse latest Browse all 27468

VS 2010 Assignment Help Urgent! Child forms menu strip showing in parent form. Please help!

$
0
0
Hi all. Class assignment is to create a MDI Project, a simple text editor. I've created both the parent and child forms. Both with their own menu strips. Parent: File/Add Windo, Display, Window/Tile Horizontally/Tile Vertically/Cascade. For the Child form which is the text editor, the menu strip reads as: File/New/Open/Save/Print/Exit, Edit/Undo/Redo/Cut/Copy/Paste/Delete. When I debug the menustrip for the child form is combined on the parent form with the parent forms menu strip. There is no menu on the child form. Here is my code for both.
Child Form:
Public Class TextEditor

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

Private Sub OpenToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripMenuItem.Click
Try
Dim dlg As OpenFileDialog = New OpenFileDialog
dlg.Title = "Open"
dlg.Filter = "Rich Text Files (*.rtf)|All Files (*.*)|*.*"

If dlg.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
RichTextBox1.LoadFile(dlg.FileName)
End If
Catch ex As Exception

End Try

End Sub

Private Sub SaveToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SaveToolStripMenuItem.Click
Dim sfd As New SaveFileDialog
Dim sv As String
sfd.ShowDialog()
sv = sfd.FileName
Dim sw As New IO.StreamWriter(sv)
sw.Write(RichTextBox1.Text)
sw.Close()

End Sub

Private Sub PrintToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PrintToolStripMenuItem.Click

End Sub

Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
End
End Sub

Private Sub UndoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles UndoToolStripMenuItem.Click
RichTextBox1.Undo()
End Sub

Private Sub RedoToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles RedoToolStripMenuItem.Click
RichTextBox1.Redo()
End Sub

Private Sub CutToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CutToolStripMenuItem.Click
RichTextBox1.Cut()
End Sub

Private Sub CopyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopyToolStripMenuItem.Click
RichTextBox1.Copy()
End Sub

Private Sub PasteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles PasteToolStripMenuItem.Click
RichTextBox1.Paste()
End Sub

Private Sub DeleteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteToolStripMenuItem.Click
RichTextBox1.Clear()
End Sub
End Class

Parent Form:



Public Class ParentForm

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

End Sub
Private Sub TileHorizontallyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'Arrange child forms horizontally.
Me.LayoutMdi(MdiLayout.TileHorizontal)
End Sub
Private Sub TileVerticallyToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
Me.LayoutMdi(MdiLayout.TileVertical)
End Sub

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
End Sub

Private Sub OpenNewWindowToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenNewWindowToolStripMenuItem.Click
Dim ChildForm As New TextEditor
ChildForm.MdiParent = Me
ChildForm.Show()
End Sub
End Class

Please Help!

Viewing all articles
Browse latest Browse all 27468

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>