Program Splash Screen Dengan VB.Net

Splash Screen merupakan suatu kondisi dimana Image (gambar) atau kata kata (kalimat) yang muncul pada saat sebuah program atau aplikasi dalam proses berjalan (loading). Splash Screen akan segera hilang sebelum program / aplikasi utama berjalan.

Disini penulis akan membuat program sederhana mengenai Splash Screen menggunakan Visual Basic dot Net dengan menggunakan sistem operasi windows 7. Setelah membuka proyek baru pada VB.Net, kita memerlukan komponen-komponen antara lain timer, progressbar, picturebox dan 3 label. Untuk memulai proyek baru ini kita harus mengaktifkan Microsoft Visual Studio.Net 2007.

1. Untuk memulai proyek baru, klik file < New < Proyek

Akan keluar new project, pada project types dipilih windows dan templates diplih windows forms application. Untuk name kita beri nama  splash sedangkan location dimana kita tempatkan sesuai foldernya.

2.  Setting untuk properties form seperti dibawah ini

Formborderstyle	Fixed 3D
Text	dikosongkan
Name	F_splash
Start Posistion	CenterScreen
ShowInTaskbar	False
ControlBox	False
Size	Diatur Sesuai keinginan ( Optional )

3. Setting untuk properties progressbar

Name	Pgb
Maximum	200

4.   Setting untuk Properties Timer

Name	tmr
Interval	150
enabled	true

5. Setting untuk properties label 1

name	Lbl_1
text	Selamat

6. Setting untuk properties label 2

Name	Lbl_2
Text	Datang

7. Setting untuk properties picturebox

SizeMode	StretcImage
Image	Pilih gambar sesuai foldernya

8. Tambahkan form baru, Klik kanan pada Splash_screen di Solution Explorer kemudian klik add     dan kemudian klik windows form, kemudian name diisi F_utama.

9. Klik 2 x Pada timer , isikan coding seperti dibawah :

10. Setelah itu Program kita running dengan menekan F5

11. Kode Keseluruhan

1.            Code keseluruhannya

Public Class F_Splash

    Private Sub tmr_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles tmr.Tick

        Dim f_utama As New F_utama

        tmr.Enabled = True

        pgb.Value += 10

        If pgb.Value = 200 Then

            tmr.Dispose()

            Me.Visible = False

            f_utama = New F_utama

            f_utama.Show()

        End If

    End Sub

End Class

Selamat Mencoba..