Program ini menjelaskan/membuat sebuah program untuk sebuah tampilan yang menampilkan sebuah form dengan adanya menubar serta tolbar untuk mempermudah dan mendukung sebuah database sehingga lebih mudah digunakan dan isi program lengkap.
Dalam program ini membuat menubar dan tolbar, serta bagaimana menampilkan anak halaman/anak form (form lain) pada satu form dan tidak bisa keluar dari form tersebut ketika menubar atau tolbar tersebut di klik. Dan membuat anak form tersebut ketika muncul berbentuk vertikal ataupun horisontal. Serta posisi menubar dan tolbar tersebut dapat dipindah-pindahkan.
Dibawah ini contoh gambar programnya:
Public Class Form1
Private Sub ContextMenuStrip2_Opening(ByVal sender As System.Object, ByVal e As System.ComponentModel.CancelEventArgs)
Handles ContextMenuStrip2.Opening
End Sub
Private Sub ToolTip1_Popup(ByVal
sender As System.Object,
ByVal e As
System.Windows.Forms.PopupEventArgs)
End Sub
Private Sub Tugas1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Tugas1ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileHorizontal)
Form2.Show()
Form3.Show()
End Sub
Private Sub Latihan1ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan1ToolStripMenuItem.Click
Form3.MdiParent
= Me
Form3.Show()
End Sub
Private Sub Latihan2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan2ToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
End Sub
Private Sub Latihan3ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Latihan3ToolStripMenuItem.Click
Form4.ShowDialog()
End Sub
Private Sub CasscadeToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles CasscadeToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.Cascade)
Form2.Show()
Form3.Show()
End Sub
Private Sub TileVerticalToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles TileVerticalToolStripMenuItem.Click
Me.LayoutMdi(MdiLayout.TileVertical)
Form2.Show()
Form3.Show()
End Sub
Private Sub 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()
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 Tugas2ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Tugas2ToolStripMenuItem.Click
End Sub
Private Sub Tugas4ToolStripMenuItem_Click(ByVal sender As
System.Object, ByVal
e As System.EventArgs)
Handles Tugas4ToolStripMenuItem.Click
End Sub
End Class
untuk program lebih jelas klik link di bawah ini :
Tidak ada komentar:
Posting Komentar