2. disini saya menggunakan toolbox menutoolScrip
3. klik kanan pada menu tool lalu pilih Menu1ToolStripMenuItem dan masukkan listing program seperti dibawah ini :
3. klik kanan pada menu tool lalu pilih Menu1ToolStripMenuItem dan masukkan listing program seperti dibawah ini :
listingnya:
Public Class Form5
Private Sub
Menu1ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Menu1ToolStripMenuItem.Click
Form2.Show()
End Sub
Private Sub
Menu2ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Menu2ToolStripMenuItem.Click
Form3.Show()
End Sub
Private Sub
Menu3ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Menu3ToolStripMenuItem.Click
Form4.Show()
End Sub
Private Sub
Menu4ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
Menu4ToolStripMenuItem.Click
Form1.Show()
End Sub
Private Sub
ExitToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles
ExitToolStripMenuItem.Click
Dim pesan As String
pesan
= MsgBox("Keluar dari Program??", MsgBoxStyle.Question + MsgBoxStyle.OkCancel,
"sucikunarsi")
If pesan = vbOK Then
Me.Close()
End If
End Sub


0 komentar:
Posting Komentar