Tutorial Cara Membuat Menu Utama Di Visual Basic

Tutorial Cara Membuat Menu Utama Di Visual Basic:

Pada Kategori Visual Basic Sebelumnya Sampul Ilmu Menjelaskan Tentang Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0. Artikel Kali ini adalah lanjutan dari artikel sebelumya dimana kita telah membuat koneksi antara VB dengan Database Ms Accsess
Untuk Artikel Kali ini Sampul Ilmu memberikan sedikit pengetahuan tentang Cara Membuat Menu Utama Di Visual Basic

Langkah Yang Harus Anda Lakukan Adalah :

Buka Project ( Yang dimaksud Disini adalah Project Yang Telah Anda Buat Pada artikel Cara Mengkoneksikan Database Accsess Di Visual Basic 6.0)
Setelah Project Anda Telah terbuka Selanjutnya Aktifkan Form Home Kemudian Pada Properties Ubah Name Menjadi MenuUtama Dan Ubah Caption Menjadi MenuUtama
Selanjutnya Membuat Menu Utama Caranya Clik Kanan Pada Form MenuUtama ( Yang Dimaksud Disini Adalah Form Yang Telah anda ubah namenya menjadi MenuUtama) Kemudian Pilih Menu Editor
Pada Halaman Menu Editor Buatlah Menu File Caranya Pada Caption Ketik &File kemudian Pada Name Ketik file setelah itu Clik Next
LangkahSelanjutnya Adalah membuat Sub Menu Caranya Pada Halaman Menu Editor Clik Tanda Panah Kekanan Maka Akan Muncul Tanda ….. Tepat Dibawah menu &File Kemudian Pada Caption Ketik &Input Data dan Pada Name ketik inpData kemudian clik Next
Selanjutnya membuat garis tepat dibawah Sub menu &Input Data Caranya Pada Caption Ketik “-“ Tanpa Tanda Petik Dan Pada Name Ketik grs Kemudian Clik Next
Untuk Membuat Sub Menu Keluar Caranya Sama Seperti Langkah Diatas Pada Caption ketik &Keluar Dan Pada Name Ketik Keluar Kemudian Clik OK
Sebelum Anda Menjalakan Programnya Terlebih dahulu clik module1 ubah source code Home.show Menjadi MenuUtama. Show Seperti Contoh Dibawah ini

Global db As New ADODB.Connection
Public dbdata As ADODB.Recordset

Sub Connect()
    Set dbdata = New ADODB.Recordset
    Set db = New ADODB.Connection
        db.CursorLocation = adUseClient
        db.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" & App.Path & "\coba.mdb"
End Sub

Sub Main()
Connect
Home.Show --------> Ubah Menjadi MenuUtama. Show
End Sub

Menu utama yang Anda buat telah selesai untuk melihat hasilnya clik Start.

Download Tutorialnya Disini

Mudah-Mudahan Bermanfaat…….

Milan Tomic

Hi. I’m Designer of Blog Magic. I’m CEO/Founder of ThemeXpose. I’m Creative Art Director, Web Designer, UI/UX Designer, Interaction Designer, Industrial Designer, Web Developer, Business Enthusiast, StartUp Enthusiast, Speaker, Writer and Photographer. Inspired to make things looks better.