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.

Read More

Ini adalah listing program puzzle

 

Ini adalah  tampilan form puzzle secara acak

Ini adalah tampilan puzzle secara urut

Ini adalah tampilan form puzzle ketika berhasil mengurutkan angka

Iniadalah tampilan form puzzle ketika mengakhiri permainan program puzzle

Read More