Cara Membuat Slide Antar Form dengan Efek

Pada artikek kali ini saya akan berbagi kode vb6 yaitu bagaimana cara berpindah antar form dari satu form ke form yang lain dengan efek slide seperti sebuah persentasi.

1. Buka Form vb6 Standar EXE

2. Tambahkan 3 Form yaitu Form1, Form2 dan Form3

3. Masing-masing Form tambahkan 1 CommanButton

Pada Form1 Commandbutton1 Caption= ">"

Pada Form2 Commandbutton2 Caption= ">"

Pada Form3 Commandbutton3 Caption= "<"

Desain Form

 

4. Tambahkan 1 buah Module, lalu ketik kode dibawah ini di kotak Module1 :

' Module1.bas

Option Explicit

Public Sub SlideIn(ByVal frm As Form)

    Dim i As Integer

    Dim stepSize As Integer

    

    stepSize = 100 ' Atur sesuai kebutuhan

    

    For i = 0 To frm.Width Step stepSize

        frm.Left = -frm.Width + i

        DoEvents

    Next i

End Sub

Public Sub SlideOut(ByVal frm As Form)

    Dim i As Integer

    Dim stepSize As Integer

    

    stepSize = 100 ' Atur sesuai kebutuhan

    

    For i = frm.Left To -frm.Width Step -stepSize

        frm.Left = i

        DoEvents

    Next i

End Sub

5. Kembali ke Form, lalu isi kode dibawah ini pada bagian commandbutton masing masing Form

Private Sub Command1_Click() 'FORM1

SlideOut Me

Form2.Show

SlideIn Form2

End Sub

Private Sub Command1_Click()  'FORM2

SlideOut Me

    Form3.Show

    SlideIn Form3

End Sub

Private Sub Command1_Click() 'FORM3

SlideOut Me

Form1.Show

SlideIn Form1

End Sub

Kemudian atur tinggi dan lebar form sesuai selera, misalnya disini saya menggunakan lebar form Width 12315 dan tinggi Height 5820 yang berada di proprertis dan masing masing form harus sama tinggi dan lebarnya.

Form siap du Running

Demikian trik kali ini tentang cara membuat slide antar form dengan efek di vb6.

Semoga artikel ini bermanfaat buat kita semua,Amin.

Selamat mencoba semoga berhasil

Related Post: Form