membuat toolscript

TUGAS 7

Membuat toolscrip dengan tampilan casecade,horizontal dan vertikal

Berikut listing programnya :

PublicClassForm1

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

Me.LayoutMdi(MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

PrivateSub Latihan1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan1ToolStripMenuItem.Click

Form2.MdiParent = Me

Form2.Show()

EndSub

PrivateSub Latihan2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Latihan2ToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

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

Me.LayoutMdi(MdiLayout.Cascade)

Form2.Show()

Form3.Show()

EndSub

PrivateSub TileHorizontalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileHorizontalToolStripMenuItem.Click

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

PrivateSub TileVerticalToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TileVerticalToolStripMenuItem.Click

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ToolStripMenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripMenuItem2.Click

Form2.MdiParent = Me

Form2.Show()

EndSub

PrivateSub ToolStripButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click

Me.LayoutMdi(MdiLayout.TileVertical)

Form2.Show()

Form3.Show()

EndSub

PrivateSub ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ExitToolStripMenuItem.Click

Me.Close()

EndSub

PrivateSub ToolStripButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton2.Click

Me.LayoutMdi(Windows.Forms.MdiLayout.TileHorizontal)

Form2.Show()

Form3.Show()

EndSub

EndClass

 1.berikut adalah cascade

 2.berikut merupakan tampilan dari horozontal 

 3. tampilan vertikal

  4. Tambahan library baru

1. tampilan software dotnetbar

           Tampilan new library