Welcome to my blog, hope you enjoy reading
RSS

home

Sabtu, 06 April 2013

membuat menu awal menggunakan VB net

1. buat project dan desain sesuai yang anda inginkan
2. disini saya menggunakan toolbox menutoolScrip
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


HASIL:





0 komentar:

Posting Komentar