Tugas 7 (MENU,TOOLBAR,& MDI FORM)

 

Ini adalah tampilan form awal dan form 1

Ini adalah  form anak dari form 1

Tampilan form dalam window casade

Ini tampilan form dalam window horizontal

Tampilan form dalam window vertical

Ini adalah listing program

 

Ini adalah sourch code

Public Class FormInduk

    Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub

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

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FertikalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
        Form1.Show()
        Form2.Show()
        Form3.Show()
        Form4.Show()
    End Sub

    Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
        Form1.Show()
        Form2.Show()
        Form3.Show()
        Form4.Show()

    End Sub

    Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub

    Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan3ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub

    Private Sub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

    Private Sub CloseToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CloseToolStripMenuItem.Click
        Me.Close()
    End Sub
End Class
 

Menu tambahan

tampilan menu tambahan

 

 Demikian tugas ini saya buat, semoga bermanfaat.

Posted in: