Latihan Menu, Toolbar, dan MDI Form

Nama : Ade Candra F
Nim : 11.11.2353
TI 11 A

Kali ini saya akan Kasih tahu tenteng bagai mana membuat tampilan Cascade, Vertical, dan Form menggunakan Menu, Toolbar, dan MDI Form dalam sebuah lembar kerja yang di tugaskan oleh Dosen Pemrograman Visual Basic.

1. Menu Window (2 form child dan 1 form parent) dengan :
              a. Tile Horisontal
              b. Tile Vertical
              c. Tile Cascade
2. Atur Posisi Toolbar sesuar selera (Bebas)
3. Menu dengan Komponen tambahan

Langsung saja pada pokok persoalan diatas, berikut ini adalah gambar dari hasil tugas yang saya kerjakan.

@ Tampilan Utama saat diklik Data (Nama dan Alamat)

@ Hasil untuk Cascade

@Hasil untuk Horisontal

@ Hasil untuk Vertical

@ Hasil Komponen tambahan dengan Menu toolstrip exit

Dari Hasil diatas, saya dapat memberi inputan atau koding sebagai berikut :

Public Class Form1

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

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

    Private Sub ToolStripMenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem5.Click
        Form2.ShowDialog()
    End Sub

    Private Sub ToolStripMenuItem6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem6.Click
        Form3.ShowDialog()
    End Sub

    Private Sub ExitToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem1.Click
        If MsgBox("Anda yakin?", vbQuestion + vbYesNo + vbDefaultButton2, "Keluar") = MsgBoxResult.Yes Then Me.Close()
    End Sub

    Private Sub ToolStripContainer1_TopToolStripPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub ToolStripContainer2_TopToolStripPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub ToolStripContainer3_TopToolStripPanel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

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

    End Sub
End Class

SEKIAN ATAS PERHATIAN ANDA, MAAF JIKA ADA KESALAHAN PADA POSTINGAN INI..

Tweet