Cara membuat intro gambar pada VB6

Bismillah...

Pada tips berikut ini, kita akan membahas tentang bagaimana cara membuat intro gambar pada vb6. Mungkin ada yang belum tau apa itu intro gambar, atau bahasa saya yang kurang tepat mungkin. Yang jelas, pembahasan kita sekarang adalah bagaimana cara membuat program dimana waktu kita menjalankan aplikasi yang sudah kita buat akan tampil gambar pembukaan sebagai pendahuluan pada program kita kemudian akan masuk ke program intinya, tergantung interval yang kita berikan pada timer.

Adapun cara membuatnya yaitu:

• Buka aplikasi VB anda dan copy program dibawah ini ke dalam modul anda.

Option Explicit

'************************************************************************

  Sub CenterForm(TheForm As Form)

'************************************************************************

    With TheForm

        .Top = (Screen.Height - .Height) / 2

        .Left = (Screen.Width - .Width) / 2

    End With

  End Sub

• Kemudian masukkan sebuah gambar dan sebuah timer pada form anda seperti dibawah ini:

Gambar 1. Contoh Pada form pertama

• Kemudian tambah satu bauh form lagi untuk menguji apakah form pertama dapat berkomunikasi dengan form yang kedua.
• Masukkan sebuah commandbutton pada form yang kedua.

Gambar 2. Comtoh pada form yang kedua

• Kemudian pada form yang pertama masukkan program sebagai berikut

Option Explicit

Private Sub Form_Load()

    CenterForm Me

End Sub

Private Sub Timer1_Timer()

    Form1.Hide

    Form2.Show

End Sub

• Dan pada form kedua anda cukup memasukkan program berikut

Private Sub Command1_Click()

    Form2.Hide

    Form1.Show

End Sub

• Setelah selesai jalankan program anda, dan jangan lupa atur interval timer anda menjadi 3000 atau sesuai dengan kebutuhan anda.

Download source Code Lengkap Disini

Happy programming,,,!!!