Contoh Program Visual Basic 2010 : Menu Utama

Visual Basic 2010



Nah, sebelumnya saya sudah mempostingkan contoh-contoh program menggunakan Visual Basic 2010, sekarang bagaimana caranya agar dapat mempermudah kita membuka program tanpa harus membukanya satu-satu, yaitu kita buat form menu utama dimana isi dari form ini mencakup keseluruhan dari program-program yang telah kita masukkan.

'Menu Utama

       'Tampilan Form

'Coding

Public Class Utama

    Private Sub bLat4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat4.Click

        Me.Enabled = False

        Latihan4.Show()

    End Sub

    Private Sub bLat5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat5.Click

        Me.Enabled = False

        Latihan_5.Show()

    End Sub

    Private Sub bLat6_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat6.Click

        Me.Enabled = False

        Latihan_6.Show()

    End Sub

    Private Sub bLat7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat7.Click

        Me.Enabled = False

        Latihan_7.Show()

    End Sub

    Private Sub bLat8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat8.Click

        Me.Enabled = False

        Latihan_8.Show()

    End Sub

    Private Sub bLat9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat9.Click

        Me.Enabled = False

        Latihan_9.Show()

    End Sub

    Private Sub bLat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat10.Click

        Me.Enabled = False

        frmLat_10.Show()

    End Sub

    Private Sub bLat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat11.Click

        Me.Enabled = False

        frmLat_11.Show()

    End Sub

    Private Sub bLat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat12.Click

        Me.Enabled = False

        frmLat_12.Show()

    End Sub

    Private Sub bLat13_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles bLat13.Click

        Me.Enabled = False

        frmLat_13.Show()

    End Sub

    Private Sub bLat14_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat14.Click

        Me.Enabled = False

        frmLat_14.Show()

    End Sub

    Private Sub bLat15_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat15.Clickf

        Me.Enabled = Falseff

        frmlat_15.Show()

    End Sub

    Private Sub bLat16_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat16.Click

        Me.Enabled = False

        frmLat_16.Show()

    End Sub

    Private Sub bLat17_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bLat17.Click

        Me.Enabled = False

        frmLat_17.Show()

    End Sub

End Class

Demikianlah contoh beberapa program menggunakan Visual Basuc 2010 yang dapat saya berikan, semoga dapat menambah ilmu dan wawasan kita mengenai Visual Basic 2010, semoga bermanfaat..

Wassalam

Romi Riadi

Politeknik Sekayu