LATIHAN_34A_36110043

DESKRIPSI LATIHAN 34A

Terdapat duaobject yaitu menustrip dan toolstrip

Object MenuStrip

Terdapat satu menustrip yang memiliki dua toolstripmenuitem (yang bertuliskan daftar barang dan input barang). Jika toolstripmenuitem daftar barang diklik, maka akan muncul form Latihan_34B_36110043. Jika toolstripmenuitem input barang diklik, maka akan muncul form Latihan_34C_36110043.

Object ToolStrip

Terdapat satu object toolstrip yang memiliki dua toolstripbutton (yang bertuliskan daftar barang dan input barang). Jika toolstripbutton daftar barang diklik, maka akan muncul form Latihan_34B_36110043. Jika toolstripbutton input barang diklik, maka akan muncul form Latihan_34C_36110043.

Script Unique

If latihan_34B_36110043.Visible = False Then

            latihan_34B_36110043.MdiParent = Me.MdiParent

            latihan_34B_36110043.Show()

        Else

            latihan_34B_36110043.Activate()

        End If

Even

INPUTBARANGToolStripMenuItem_Click

DAFTARBARANGToolStripMenuItem_Click

TS1_36110043_Click

LANGKAH-LANGKAH

1.      BUKA  Microsoft Visual Studio 2008 dengan Klik star lalu pilih Microsoft Visual Studio 2008

2.      Click icon "Add new Item" 

 

3.       pilih Windows Form, lalu isi Name dengan Nama Latihan._34A_36110043 dan click add

4.      Buat design Form sesuai dengan Form diatas {gunakan object-object di dalam ToolBox dan lihat deskripsi latihan ini.}

5.       Ganti nama setiap object kecuali Label menggunakan "Properties Window"

6.       Klik 2x pada design form yang telah dibuat  untuk membuka lembar Scripnya.

Masukkkan Scrip di bawah ini..

Public Class latihan_34A_36110043

    Private Sub DAFTARBARANGToolStripMenuItem_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TSDBM_36110043.Click

        If latihan_34B_36110043.Visible = False Then

            latihan_34B_36110043.MdiParent = Me.MdiParent

            latihan_34B_36110043.Show()

        Else

            latihan_34B_36110043.Activate()

        End If

    End Sub

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

        If latihan_34C_36110043.Visible = False Then

            latihan_34C_36110043.MdiParent = Me.MdiParent

            latihan_34C_36110043.Show()

        Else

            latihan_34C_36110043.Activate()

        End If

    End Sub

    Private Sub TS1_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TS1_36110043.Click

        If latihan_34B_36110043.Visible = False Then

            latihan_34B_36110043.MdiParent = Me.MdiParent

            latihan_34B_36110043.Show()

        Else

            latihan_34B_36110043.Activate()

        End If

    End Sub

    Private Sub TS2_36110043_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TS2_36110043.Click

        If latihan_34C_36110043.Visible = False Then

            latihan_34C_36110043.MdiParent = Me.MdiParent

            latihan_34C_36110043.Show()

        Else

            latihan_34C_36110043.Activate()

        End If

    End Sub

End Class

Next … save dan untuk menjalankan klik star debugging