Latihan_34A_36110034

Deskripsi penyelesaian

Form Latihan_34A_36110034  terdapat dua object yaitu menustrip dan toolstrip :

Object Menustrip

Dalam objek menustrip terdapat terdapat tiga toolstripmenuitem yang masing-masing bertuliskan BARANG, DAFTAR BARANG, dan INPUT BARANG, yang mana jika toolstripmenuitem BARANG yang diklik maka akan muncul kedua toolstripmenuitem yaitu DAFTAR BARANG dan INPUT BARANG. Dan jika salah satu dari objek toolstripmenuitem diklik dapat memunculkan form latihan berikutnya, seperti objek daftar barang akan memunculkan form latihan 34B yang dapat menambah atau mengedit serta menghapus data barang dan input barang akan memunculkan form latihan 34C yang hanya dapat menambah data barang saja.

Object ToolStrip

Dalam objek toolstrip terdapat dua objek toolstripbutton dan dua objek toolstriplebel. Pada toolstriplebel masing-masing bertuliskan daftar  barang dan input barang. Sama halnya dengan objek menustrip di atas yang jika salah satu objeknya diklik maka dapat muncul form latihan berikutnya baik 34B ataupun 34C.

Property

Toolstripstatuslebel1 => properties => text => DAFTAR BARANG => ok

Toolstripstatuslebel2 => properties => text => INPUT BARANG => ok

Properti form latihan

Form latihan_34A_36110034 => Formborderstyle => FixedDialog => ok

Form latihan_34A_36110034 => startposition => Centerperent => ok

Form latihan_34A_36110034 => IsMdiContainer => True  => ok

Prosedur penyelesaian

1.   buka project yang telah dibuat sebelumnya klik add new item => add windows form => ganti nama project => add.

2.   membuat form dengan menggunakan menustrip dan toolstrip yang ada dalam "Toolbox”.

3.   ganti nama textbox dan button menggunakan "Properties Window".

4.   membuka lembar vb Masukkan rumus berikut untuk menyelesaikan latihan_34A_36110034.

Public Class latihan_34A_36110034

    Private Sub BARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles BARANGToolStripMenuItem.Click

        If latihan_34B_36110034.Visible = False Then

            latihan_34B_36110034.MdiParent = Me

            latihan_34B_36110034.Show()

        Else

            latihan_34B_36110034.Activate()

        End If

    End Sub

    Private Sub INPUTBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles INPUTBARANGToolStripMenuItem.Click

        If latihan_34C_36110034.Visible = False Then

            latihan_34C_36110034.MdiParent = Me

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel1.Click

        If latihan_34B_36110034.Visible = False Then

            latihan_34B_36110034.MdiParent = Me

            latihan_34B_36110034.Show()

        Else

            latihan_34B_36110034.Activate()

        End If

    End Sub

    Private Sub ToolStripLabel2_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles ToolStripLabel2.Click

        If latihan_34C_36110034.Visible = False Then

            latihan_34C_36110034.MdiParent = Me

            latihan_34C_36110034.Show()

        Else

            latihan_34C_36110034.Activate()

        End If

    End Sub

End Class

5.   Jalankan program dengan “start debugging”.