Tugas visual basic 7

Tugas Visual Basic ke-7

Tampilan form

Skrip menustrip latihan

Public Class Form1

    Private Sub Lat1ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem1.Click

        Form2.MdiParent = Me

        Form2.Show()

    End Sub

    Private Sub Lat2ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem.Click

        Form3.MdiParent = Me

        Form3.Show()

    End Sub

    Private Sub Lat1ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat1ToolStripMenuItem2.Click

        Form4.MdiParent = Me

        Form4.Show()

    End Sub

Form  Horisontal
Skrip
Awal printah

Private Sub Lat4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Lat4ToolStripMenuItem.Click

        Form5.MdiParent = Me

        Form5.Show()

    End Sub

Skrip Form Horisontal

    Private Sub HorisontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles HorisontalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileHorizontal)

Form Horisontal

Form Vertikal
Skrip Form Vertikal

    Private Sub VertikalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles VertikalToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.TileVertical)

    End Sub

Form Cascade

Skrip Form Cascade

Private Sub CascadeToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CascadeToolStripMenuItem.Click

        Me.LayoutMdi(MdiLayout.Cascade)

    End Sub

Form Cascade