Skip to content Skip to sidebar Skip to footer

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 for "Cara Menghubungkan Antar Form yang Satu dengan Form yang Lain (Multi Form) di VB6"

Vincent 28 September 2018 at 09:57 Delete Comment
Cara simpan macam mana Bang?
Bori Izak Karatem 30 September 2018 at 05:12 Delete Comment
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 26 August 2020 at 06:07 Delete Comment
buatin tutor menu bar 3 samping gan...
gtau 23 March 2021 at 16:40 Delete Comment
Cara di jadikan file exe nya bagaimana bang?
Hakim Nurubay 23 March 2021 at 17:30 Delete Comment
buatin tutor menu bar 3 samping gan...