Cara Membuat Splash Screen Sederhana - Ok langsung saja lihat langkah-langkahnya di bawah.
1. Buka Visual Basic 6 dan pilih Standart EXE.
2. Klik Project > Add From > pilih Splash Screen > Open
3. Hapus semua code dan button yang sudah ada
4. Masukan Components Miscrosoft Winsock Control 6.0 & Microsoft Windows Common Controls 6 (SP6) > OK.
5. Setelah di masukan, sekarang masukan beberapa komonen :
- 1 ProgressBar
- 1 Timmer
- 1 Label
Atur Propertinya Seperti Ini :
- Progressbar : Appearance = 0 - ccflat, Scroling = 1
- Timer : Interval = 50
- Label : Caption = Atur sesuai kebutuhan
Kira - kira akan menjadi seperti ini :
6. Selanjutnya Klik Project > Click Project1 Properties > General > pada Startup Object ganti ke frmSplash.
7. Kodenya :
Option Explicit
Dim efek As Integer
Private Sub Timer1_Timer()
On Error Resume Next
efek = efek + 5
ProgressBar1.Value = ProgressBar1.Value + 400 / 400
If efek > 500 Then
Timer1.Enabled = False
Screen.MousePointer = vbNormal
Me.WindowState = 0
Do
Me.Left = Me.Left + 20
Me.Move Me.Left, Me.Top
DoEvents
Loop Until Me.Left > Screen.Width
Load Form1
Form1.Show
Unload Me
End If
End Sub8. Selesai
Note *
Saya sarankan untuk memakai Visual Basic 6 yang Full [ Download VB6 Full ]
Subscribe to:
Post Comments (Atom)
0 Komentar
Jika ada yang kurang dimengerti silahkan kirimkan komentar Anda
Gunakanlah kata - kata yang sopan ツ