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 :
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
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
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
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:
Cara simpan macam mana Bang?
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 ..
buatin tutor menu bar 3 samping gan...
Cara di jadikan file exe nya bagaimana bang?
buatin tutor menu bar 3 samping gan...
Post a Comment