TUGAS PEMOGRAMAN VISUAL SETELAH UTS

TUGAS PEMOGRAMAN VISUAL SETELAH UTS

1.Membuat Program seperti di modul.

2.Mengatur posisi menu toolbar yang saya butuhkan.

Jawaban no 1-2

Yang pertama harus dilakukan untuk membuat Program adalah membuat menu dari Toolbox Toolbars .Kemudian tuliskan nama menu pada menu strip yang di buat  pada form1. Apabila menu strip yang akan di beri gambar (set Image),. Jika ingin menampilkan program dengan menggunakan tombol pada keybord, dapat menambahkan shortcutkey. Shortcutkey dapat ditambahkan pada properties kemudian shortcutkey dan pilih tombol  yang akan di gunakan. Dan dapat menambahkan garis pembatas antara menu dengan klik kanan pada menustrip kemudian insert-separator. Dan dapat menambahkan menu standar yang biasa di gunakan pada aplikasi sebagaimana biasanya dengan klik kanan pada batang menustrip kemudian pilih insert standard item. Dan dapat mengaitkan menu dengan form lainnya dengan double klik pada menu yang akan di hubungkan, dan berikan perintah “

 

Kemudian listing program yang saya gunakan:

Public Class Form1

    Private Sub LatihanSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanSatuToolStripMenuItem.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub LatihanDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LatihanDuaToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub TugasSatuToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasSatuToolStripMenuItem.Click

        Form2.ShowDialog()

    End Sub

    Private Sub TugasDuaToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TugasDuaToolStripMenuItem.Click

        Form3.ShowDialog()

    End Sub

    Private Sub VerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VerticalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

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

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

    Private Sub EXITToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles EXITToolStripMenuItem1.Click

        Me.Close()

    End Sub

    Private Sub NewToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles NewToolStripButton.Click

        ' Create a new instance of the child form.

        Dim ChildForm As New System.Windows.Forms.Form

        ' Make it a child of this MDI form before showing it.

        ChildForm.MdiParent = Me

        ChildForm.Show()

    End Sub

    Private Sub OpenToolStripButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles OpenToolStripButton.Click

        Dim OpenFileDialog As New OpenFileDialog

        OpenFileDialog.InitialDirectory = My.Computer.FileSystem.SpecialDirectories.MyDocuments

        OpenFileDialog.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*"

        If (OpenFileDialog.ShowDialog(Me) = System.Windows.Forms.DialogResult.OK) Then

            Dim FileName As String = OpenFileDialog.FileName

            ' TODO: Add code here to open the file.

        End If

    End Sub

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

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click

        Form2.MdiParent = Me

        Form2.Show()

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

    Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

    End Sub

    Private Sub Button6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button6.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

End Class

3.Membuat menu untuk file Vertikal,Horizontal dan casecade.

Menu yang saya buat adalah Windows yang memuat submenu Vertikal,horizontal dan casecade.

Sebelum Di Layout :

Lalu Pilih Layout Yang Anda Pilih :
a.Vertical 

b.Horizontal 

c.Casecade 

Tampilan seperti di atas.

4.Membuat menu menggunakan Libarary tambahan.

Berdasarkan kreasi saya dalam membuat library tambahan saya menggunakan tabcontrol pada program saya. Fungsi dalam menu tersebut adalah untuk memanggil form (Tampilkan) dan mengatur form yang di tampilkan dengan tampilan Vertikal, Horizontal, dan Casecade.

      

Tampilan sama pada menu Windows.

 Terima Kasih.