Cara Menghubungkan Antar Form yang Satu dengan Form yang Lain (Multi Form) di VB6

Pada pertemuan kali saya ingin berbagi trik yaitu bagaimana cara menghubungkan antar  form yang satu dengan form yang lain dalam satu form sehingga memudahkan kita untuk melakukan navigasi layaknya sebuah website atau Blog.

Berikut adalah Cara Menghubungkan Antar Form Satu dengan Form yang Lain dalam Satu Form
1. Buka form VB6 Anda
2. Tambahkan 3 Form Baru :

    1. Form pertama Tambahkan 2 CommandButton :
  •   Form1                     Name: Formke1   Caption "Form Pertama"
  •   CommandButton1   Caption "Home"
  •  CommandButton2   Caption "Next"



  • Kemudian ketik kode dibawah ini di Formke1

Private Sub Command2_Click()
Formke2.Show
Formke1.Hide
End Sub

Private Sub Form_Load()
Command1.Enabled = False
End Sub


     2. Form Kedua Tambahkan 3 CommandButton :
  •   Form2                     Name: Formke2     Caption "Form Kedua"
  •  CommandButton1   Caption "Previous"
  •  CommandButton2   Caption "Home"
  •  CommandButton3   Caption "Next"

  •  Lalu ketik kode dibawah ini di Form ke 2 :

Private Sub Command1_Click()
Formke1.Show
Formke2.Hide
End Sub

Private Sub Command2_Click()
Formke1.Show
Formke2.Hide
End Sub

Private Sub Command3_Click()
Formke3.Show
Formke2.Hide
End Sub


     3. Form Ketiga Tambahkan 3 CommandButton :
  •   Form3                     Name: Formke3    Caption "Form Ketiga"
  •   CommandButton1   Caption "Previous"
  •  CommandButton2   Caption "Home"
  •  CommandButton3   Caption "Next"


  • Lalu ketik kode dibawah ini di Form ketiga :

Private Sub Command1_Click()
Formke2.Show
Formke3.Hide
End Sub

Private Sub Command2_Click()
Formke1.Show
Formke3.Hide
End Sub

Private Sub Command3_Click()
MsgBox "ini Form terakhir"
End Sub


3. Simpan hasil,pekerjaan Anda dan jalankan Program.

Selamat mencoba semoga suksess.......

5 comments:

Vincent said...

Cara simpan macam mana Bang?

Bori Izak Karatem said...

Ini aku ada bro...pake yg sederhana aja bro...
pake komponen Microsoft ADO Data Control 6.0 (OLEDB)
contoh codingnya utk tombol simpan:

Private Sub Command1_Click()
on error resume next
if text1.text = "" or combo1.text = "" then
msgbox "Data belum lengkap"
adodc1.recordset.addnew
adodc1.recordset!Nama = Text1.text
adodc1.recordset!Kelas = Combo1.text
msgbox "Data Tersimpan"
end if
end sub

kira2 seperti itu bro...semoga membantu..
lebih jelasnya lagi searh di om google aja bro... banyak tuh tutorialnya ..

Hakim Nurubay said...

buatin tutor menu bar 3 samping gan...

gtau said...

Cara di jadikan file exe nya bagaimana bang?

Hakim Nurubay said...

buatin tutor menu bar 3 samping gan...