TUGAS VB SETELAH UTS

MEMBUAT APLIKASI MENU DAN TOOLBAR

     

   
    Dalam pembuatan program ini saya akan sediki menjelaskan toolbox apa saja  yang  digunakan di dalamnya.Seperti : Menu strip, Toolstrip sebanyak 5 buah,dan Tab control.

1.Menu strip digunakan untuk menuliskan Menu seperti ,Latihan,Tugas,Jendela,dan Keluar.

   Menu dapat di atur sesuai keinginan .Untuk menambahkan menu secara otomatis cukup dengan         Clik pada batang Menu Strip kemudian Clik kanan atas pada batang  tersebut pilih insert                 standar item. Maka secara otomatis menu akan bertambah banyak.

2.Tool  Strip yang pertama digunakan untuk menuliskan Menu Jendela  Misal: Horizontal,Vertikal       dan Cascade.Dapat juga di beri variasi gambar-gambar yang menarik dengan cara Clik kanan pada     menu yang akan diberi gambar kemudian pilih set image lalu pilih gambar yang di inginkan . 

    Pada select resource  sebaiknya pilih yang local resource lalu import agar pilihan gambar                     lebih banyak.

3.Tool Strip yang kedua digunakan untuk menuliskan Menu  Latihan 1,Latihan 2,Latihan 3,dan    Latihan 4. Di dalam Menu latihan di beri icon gambar-gambar dengan berbagai warna agar tampilan lebih menarik.

4.Tool Strip yang ketiga digunakan untuk menuliskan icon Tugas 1,Tugas 2,Tugas 3,dan Tugas 4.Di dalam menu tugas juga di beri icon gambar-gambar dengan berbagai warna agar lebih menarik.

5.Tool Strip yang ke empat digunakan untuk menuliskan Menu Jendela seperti Horizontal,Vertical       dan Cascade,jika di jalankan maka posisi dapat berubah-ubah,sesuai yang kita inginkan.

6.Tool Strip yang kelima digunakan untuk menuliskan Menu untuk keluar.

Untuk membuat aplikasi sesuai dengan menu dan toolbar diatas maka tampilannya awalnya seperi ini:

Tampilan Awal

Tampilan menu Latihan 

 

      Pada menu latihan ini,terdapat latihan 1,latihan 2,latihan  3dan latihan 4 bisa juga ditambahkan latihan-latihan yang lain sesuai dengan keinginan.Untuk lebih mempermudah menampilkannya maka cukup dengan mengklik Ctrl+1 untuk latihan 1,Ctrl+2 untuk latihan 2,Ctrl+3 untuk latihan 3 dan Ctrl+4 untuk latihan 4.

Tampilan Menu Tugas 

Pada Menu Tugas,berisi Tugas 1 ,Tugas 2,Tugas 3 dan Tugas 4 apabila kurang banyak bisa di tambahkan tugas-tugas yang lain.Unuk lebih cepat dalam menampilkannya maka klik Alt+1 untuk tugas 1,Alt+2 untuk tugas 2,Alt+3 untuk tugas 4 dan Alt+ 4 untuk tugas ke 4.

Tampilan Menu Jendela

Pada Menu Jendela,berisi posisi Horizontal ,Verticaldan Cascade
Jika kita meng klik Ctrl+H maka form yang di tampilkan dari bawah ke atas
Jika kia meng klik Ctrl+V maka form yang ditampilkan mendatar atau berjejer
Jika kita mengklik Ctrl+C maka form yang ditampilkan akan berumpuk-tumpuk.

Jika dijalankan maka posisi akan berubah-ubah.

Tampilan Horizontal 

T

Tampilan horizontal berarti susunan formnya dari bawah ke atas.

Tampilan Verical

Tampilan Verical berarti susunannya dari depan ke belakang(menyamping)

Tampilan Cascade

 

Tampilan Cascade berarti  tumpuk-tumpuk antara form yang satu dengan form yang lainnya.

Tampilan Menu Keluar 

 

Jika akan keluar dari program maka klik tombol keluar untuk mengakhirinya.


Lising program di bawah ini

Public Class tugas5
    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 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 Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub

 Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click

        Form1.MdiParent = Me
        Form1.Show()
    End Sub
   Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub Tugas3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas3ToolStripMenuItem.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub
    Private Sub Tugas4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas4ToolStripMenuItem.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
  Private Sub HorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorizontalToolStripMenuItem.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
   Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e System.EventArgs) Handles VerticalToolStripMenuItem.Click
        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 KeluarToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles KeluarToolStripMenuItem.Click
        Me.Close()
    End Sub
    Private Sub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    Private Sub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    Private Sub ToolStripButton3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton3.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
   Private Sub ToolStripButton4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton4.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub
    Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub ToolStripButton6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub
    Private Sub ToolStripButton7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton8.Click
        Form1.MdiParent = Me
        Form1.Show()
    End Sub
    Private Sub ToolStripButton9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton9.Click
        Form2.MdiParent = Me
        Form2.Show()
    End Sub
    Private Sub ToolStripButton10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton10.Click
        Form3.MdiParent = Me
        Form3.Show()
    End Sub
    Private Sub ToolStripButton11_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton11.Click
        Form4.MdiParent = Me
        Form4.Show()
    End Sub
    Private Sub ToolStripButton12_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton12.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub
    Private Sub ToolStripButton13_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton13.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub
    Private Sub ToolStripButton14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton14.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub
    Private Sub ToolStripButton15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton15.Click

    If MsgBox("Anda yakin akan mengakhirinya??", vbYesNo + vbQuestion + vbDefaultButton2, "keluar") = vbYes Then

        End If
        Me.Close()
    End Sub
    Private Sub tugas5_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
   End Sub
End Class

 TERIMA KASIH