Dalam membuat program aplikasi, disamping dibutuhkan kinerja, durabilitas, akurasi yang optimal dan mudah digunakan, juga dibutuhkan tampilan yang menarik agar tidak bosan dalam menggunakan aplikasi tersebut. Splash Screen merupakan tampilan pembuka dibuat dalam beberapa aplikasi yang biasanya menampilkan nama aplikasi, versi ke berapa? dan lain sebagainya. Baiklah pada artikel ini, saya mencoba membuat contoh kecil program yang menggunakan Splash Screen, berikut langkah-langkahnya buka Microsoft Visual Studio anda.
Buat sebuah project dengan nama SplashScreen, kemudian pilih ok. Desain form1 dengan memasukkan beberapa objek seperti PictureBox, Panel, Label, dan Timer, aturlah properties dari setiap objek seperti tabel dibawah ini
No
|
Nama Objek
|
Properties
|
Nilai
|
1
|
Form1
|
FormBorderStyle
|
Sizable
|
StartPosition
|
CenterScreen
|
||
BackColor
|
ActiveCaption
|
||
2
|
Panel1
|
BackColor
|
ControlLightLigh
|
3
|
PictureBox1
|
SizeMode
|
StretchImage
|
BorderStyle
|
FixedSingle
|
||
4
|
PictureBox2
|
SizeMode
|
StretchImage
|
BorderStyle
|
FixedSingle
|
||
5
|
Label1
|
Text
|
Aplikasi Pertama
|
Font
|
Onyx, 36pt
|
||
ForeColor
|
GradientActiveCaption
|
||
6
|
Label2
|
Text
|
___________________
|
7
|
Label3
|
Text
|
Copyright 2013-2020
|
Font
|
Microsoft Sans Serif,
11.25pt
|
||
8
|
Label4
|
Text
|
Please Wait…
|
Font
|
Microsoft Sans Serif,
11.25pt
|
||
9
|
Timer1
|
Enabled
|
FALSE
|
Interval
|
5000
|
||
10
|
Timer2
|
Enabled
|
FALSE
|
Interval
|
2000
|
||
11
|
Timer3
|
Enabled
|
FALSE
|
Interval
|
2000
|
Untuk PictureBox1 masukkan sebuah gambar sebagai background.
Kemudian pada sizemode pilih StretchImage
Hasil akhir dari desain form Splash Screen yang dibuat tadi.
Kemudian ketikkan koding dibawah ini
Public Class Form1
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
Dim i As Integer
For i = 0 To 35
If i = 35 Then
Me.Hide()
Timer1.Enabled = False
MDIParent1.ShowDialog()
Me.Close()
End If
Next
End Sub
Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
Dim i As Integer
For i = 0 To 10
If i = 10 Then
Label4.Text = "Configurating System…"
Timer3.Enabled = True
Timer2.Enabled = False
End If
Next
End Sub
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
Dim i As Integer
For i = 0 To 25
If i = 25 Then
Label4.Text = "Configurating System Was Completed…"
Timer3.Enabled = False
End If
Next
End Sub
End Class
Jika sudah selesai sekarang jalankan aplikasi Splash Screen yang dibuat tadi dengan menekan tombol F5, dan bila benar langkah-langkah yang dilakukan maka tampilannya sebagai berikut.
Untuk hasil program dapat didownload disini : http://www.4shared.com/rar/tdsjyECV/SplashScreen.html
Semoga bermaanfaat.
Pemrograman
,
Tutorial
,
Visual Basic .Net
Semoga bermaanfaat.
Tidak ada komentar:
Posting Komentar