Kamis, 01 April 2010
Cara membuat splash screen
Untuk membuat form splash screen caranya cukup mudah. Langkah-langkahnya sebagai berikut:
1. Tambahkan form baru dengan mengklik add form
2. kemudian pilih jenis form "splash screen", kemudian open.
3. maka akan muncul form baru
4. pada form tersebut anda sisa mengedit label-labelnya, kemudian pada listingnya anda ketikkan seperti di bawah ini :
Private Sub Form_Load()
Timer1.Interval = 100
Timer1.Enabled = True
bar.Value = 0
End Sub
Private Sub Timer1_Timer()
bar.Value = bar.Value + 2
lblbar.Caption = "Loading......." & bar.Value & " %"
If bar.Value >= 2 And bar.Value <= 9 Then
lblbar.Caption = "Please wait....." & bar.Value & " %"
ElseIf bar.Value >= 10 And bar.Value <= 14 Then
lblbar.Caption = "Configuring Master barang....." & bar.Value & " %"
ElseIf bar.Value >= 15 And bar.Value <= 19 Then
lblbar.Caption = "Configuring Master staff....." & bar.Value & " %"
ElseIf bar.Value >= 20 And bar.Value <= 24 Then
lblbar.Caption = "Configuring Master supplier....." & bar.Value & " %"
ElseIf bar.Value >= 25 And bar.Value <= 29 Then
lblbar.Caption = "Configuring Transaksi penjualan....." & bar.Value & " %"
ElseIf bar.Value >= 30 And bar.Value <= 34 Then
lblbar.Caption = "Configuring Transaksi pembelian....." & bar.Value & " %"
ElseIf bar.Value >= 35 And bar.Value <= 39 Then
lblbar.Caption = "Configuring Transaksi Return jual....." & bar.Value & " %"
ElseIf bar.Value >= 40 And bar.Value <= 44 Then
lblbar.Caption = "Configuring Transaksi Return beli....." & bar.Value & " %"
ElseIf bar.Value >= 45 And bar.Value <= 49 Then
lblbar.Caption = "Configuring Transaksi penyesuaian....." & bar.Value & " %"
ElseIf bar.Value >= 50 And bar.Value <= 54 Then
lblbar.Caption = "Configuring Rebate....." & bar.Value & " %"
ElseIf bar.Value >= 55 And bar.Value <= 59 Then
lblbar.Caption = "Configuring Cashflow....." & bar.Value & " %"
ElseIf bar.Value >= 60 And bar.Value <= 64 Then
lblbar.Caption = "Configuring Setting Profile....." & bar.Value & " %"
ElseIf bar.Value >= 65 And bar.Value <= 69 Then
lblbar.Caption = "Configuring Security....." & bar.Value & " %"
ElseIf bar.Value >= 70 And bar.Value <= 74 Then
lblbar.Caption = "Set Application....." & bar.Value & " %"
ElseIf bar.Value >= 75 And bar.Value <= 90 Then
lblbar.Caption = "Please wait....." & bar.Value & " %"
End If
If bar.Value = 100 Then
If Timer1.Interval > 0 Then
Unload Me
menu.Show
menu.Enabled = False
login.Show
End If
End If
End Sub
Edit sesuai penamaan label anda. dan pada bagian "menu.show" anda bisa ganti sesuai form yang anda ingin munculkan!
Selamat mencoba!
Langganan:
Postingan (Atom)