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 2008 Klik Start > Program > Microsoft Visual Studio .Net 2007 > Microsoft Visual Studio. Net 2007

Start > Program > Microsoft Visual Studio .Net 2007 > Microsoft Visual Studio. Net 2007

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.

        Setting untuk properties form seperti dibawah ini :

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 ) Setting untuk properties progressbar Name Pgb Maximum 200 Setting untuk Properties Timer Name tmr Interval 150 enabled true Setting untuk properties label 1 name Lbl_1 text Selamat Setting untuk properties label 2 Name Lbl_2 Text Datang Setting untuk properties picturebox SizeMode StretcImage Image Pilih gambar sesuai foldernya Tambahkan form baru, Klik kanan pada Splash_screen di Solution Explorer kemudian klik add dan kemudian klik windows form, kemudian name diisi F_utama. Klik 2 x Pada timer , isikan coding seperti dibawah

Setelah itu Program kita running dengan menekan F5 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