MEMBUAT MENU UTAMA

MEMBUAT MENU UTAMA

 

ASSALAMU'ALAIKUM WARAHMATULLAHI WABAROKATUH :)

 

SELAMAT DATANG DI BLOG SAYA, SAYA AKAN MEMPOSTING MENGENAI  PROGRAM VISUAL BASIC 10 YANG SAYA BUAT

PROJECT LATIHAN  MEMBUAT MENU UTAMA:

 

MENU UTAMA BERFUNGSI SUPAYA KITA DAPAT MENGUMPULKAN SEMUA LATIHAN DALAM SATU RUN ATAU FORM :

 

BERIKUT CODING MEMBUAT MENU UTAMA :

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 Object, ByVal e As System.EventArgs) Handles Blat5.Click

        Me.Enabled = False

        Lat5.Show()

    End Sub

    Private Sub Blat6_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat6.Click

        Me.Enabled = False

        Latihan6.Show()

    End Sub

    Private Sub Blat7_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat7.Click

        Me.Enabled = False

        latihan7.Show()

    End Sub

    Private Sub Blat8_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat8.Click

        Me.Enabled = False

        latihan8.Show()

    End Sub

    Private Sub Blat9_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat9.Click

        Me.Enabled = False

        latihan9.Show()

    End Sub

    Private Sub Blat10_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Blat10.Click

        Me.Enabled = False

        Frm_lat10.Show()

    End Sub

    Private Sub Blat11_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat11.Click

        Me.Enabled = False

        Formlatihan11.Show()

    End Sub

    Private Sub Blat12_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat12.Click

        Me.Enabled = False

        Formlat12.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 Object, ByVal e As System.EventArgs) Handles Blat14.Click

        Me.Enabled = False

        frmlat14.Show()

    End Sub

    Private Sub Blat15_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat15.Click

        Me.Enabled = False

        Formlat_15.Show()

    End Sub

    Private Sub Blat16_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Blat16.Click

        Me.Enabled = False

        Formlat16.Show()

    End Sub

    Private Sub B17_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles B17.Click

        Me.Enabled = False

        Formlat_17.Show()

    End Sub

End Class

SEMOGA BERMANFAAT BAGI KALIAN SEMUA

KETAHUILAH BAHWA DALAM HAL INI TIDAK LUPUT DARI SALAH , MAKA SARAN DAN KRITIK SANGAT SAYA BUTUHKAN