TUGAS 5 PEMROGRAMAN VISUAL VB 2010

Artikel terkait : TUGAS 5 PEMROGRAMAN VISUAL VB 2010

MEMBUAT MENU STRIP,TOOLBAR,MDI FORM VARIASI(Horizontal,Vertikal,Cascade)DAN LIBRARY

Pada posting kali ini saya akan membuat sebuah program dengan menggunakan menu-menu pilihan pada microsoft visual basic 2010.posting ini merupakan tugas matakuliah saya yang ke lima yang lebih menekankan pada tampilan menu variasi dan form custom / variasi pad vb 2010.(contoh aplikasi perhitungan sederhana)
dengan ketentuan soal sebagai berikut :

1. Mengatur menu toolbar yang berada di atas (top) menjadi (bottom) di bawah

2. Pengaturan menu form menggunakan MDI Form,MDI child.

-Horizontal

-Vertikal

-Cascade

3.Membuat Menu tambahan menggunakan Library pada VB 2010.

1. untuk menjawab soal nomor 1 mengubah menu menjadi bottom buat terlebih dahulu form,kemudian tambahkan menu strip melalui "tool box".
klik pada menu =>lihat pojok kanan atas menu . (pada gambar 1.1) :

AG7

Sehingga menjadi menu utama seperti ini :

AG7

Sources Code pada Menu Utama :

Public Class Form1


    Private Sub LatihanToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanToolStripMenuItem.Click
        Latihan.MdiParent = Me
        Latihan.Show()

    End Sub

    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs)

    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 AG7COMToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AG7COMToolStripMenuItem1.Click

    End Sub

    Private Sub AboutProgramToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles AboutProgramToolStripMenuItem.Click
        MsgBox("Program By AG7 Isnandar")
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Latihan.Show()
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        MsgBox("Sementara Masih Kosong!")
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        If MsgBox("Mau Keluar Yah ?", vbYesNo + vbQuestion + vbDefaultButton1, "Keluar Aplikasi") = vbYes Then
            Me.Close()
        End If
    End Sub
End Class

2. Membuat sebuah form menjadi MDI form yang kemudian di dalamnya terdapat MDI child.

untuk mengubah form menu menjadi MDI form,aktifkan dulu properties pada form MDI , di propertis menjadi "True"

AG7

- Form menggunakan "Mode Pilihan" Horizontal dan Vertikal :

AG7

- Form menggunakan "Mode Pilihan" Cascade :

AG7

Sources Code untuk Mode Pilihan pada form "Latihan" :

Public Class Latihan

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

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

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

    Private Sub ToolStrip1_ItemClicked(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolStripItemClickedEventArgs) Handles ToolStrip1.ItemClicked

    End Sub

    Private Sub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click
        Me.Close()
    End Sub

    Private Sub Latihan4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan4ToolStripMenuItem.Click
        MsgBox("Sementara Masih Kosong")
    End Sub

    Private Sub Latihan_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas1ToolStripMenuItem.Click
        tugas.Show()
        tugas.MdiParent = Me
    End Sub

    Private Sub Tugas2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas2ToolStripMenuItem.Click
        tugas1.Show()
        tugas1.MdiParent = Me
    End Sub

    Private Sub Tugas4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas4ToolStripMenuItem.Click
        MsgBox("Kosong")
    End Sub

    Private Sub Tugas5ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Tugas5ToolStripMenuItem.Click
        MsgBox("Kosong")
    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 VeritikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VeritikalToolStripMenuItem.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
End Class

3. Membuat Menu menggunakan Library tambahan.

pada soal nomor 3 , untuk membuat menu tambahan ribbon harus menggunakan library tambahan dengan nama dan ekstensi "System.Windows.Forms.Ribbon.dll" dimana file ini bisa do download di internet atau anda bisa searching sendiri di google.

saya kasih gratis malah Library tambahan "Ribbon" anda bisa download di sini free :D
Download Library

AG7

cara penggunannya :
-DOwnload dulu librarynya :P
-buka project pada vb 2010 kemudian arahkan kursor pad toolbox paling bawah .
-drag and drop file "System.Windows.Forms.Ribbon.dll" pada menu yang telah di sediakan.

Semoga Bermanfaat ...

PELUANG BISNIS