Download source code vb6, source code delphi7, tutorial vb, tutorial delphi, tutorial php

Membuat Splash Screen / Loading screen di Visual Basic

Share on :
Dalam aplikasi VB atau aplikasi lainnya.Biasanya di buat splash screen atau loading screen, sebelum masuk ke tampilan utama.
Disini saya akan sedikit membahas cara pembuatan splash screen, kali ini saya menggunakan Visual Basic dalam mengaplikasikannya.

Langsung ajah, disiapkan projectnya,komponen menggunakan 
timer
image
dan progress bar(opsional)
 
Gbr 1.Untuk menampilkan komponen progressbar



Gbr 1.2 Design form
 
Gbr 1.3 Loading screen atau splash screen (Running)


Listing Form
  1. Option Explicit  
  2.   
  3. Private Const WS_EX_LAYERED = &H80000  
  4. Private Const GWL_EXSTYLE = (-20)  
  5. Private Const LWA_COLORKEY = &H1  
  6. Private Const LWA_ALPHA = &H2  
  7.   
  8. Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As LongByVal nIndex As LongAs Long  
  9. Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As LongByVal nIndex As LongByVal dwNewLong As LongAs Long  
  10. Private Declare Function SetLayeredWindowAttributes Lib "user32" (ByVal hwnd As LongByVal crColor As LongByVal nAlpha As ByteByVal dwFlags As LongAs Long  
  11. Dim RegCtrl As Boolean  
  12.   
  13. Private Sub Form_Load()  
  14. Call SetWindowLong(Me.hwnd, GWL_EXSTYLE, GetWindowLong(Me.hwnd, GWL_EXSTYLE) Or WS_EX_LAYERED)  
  15. Call SetLayeredWindowAttributes(Me.hwnd, RGB(255, 255, 255), 200, LWA_ALPHA Or LWA_COLORKEY)  
  16. End Sub  
  17. Private Sub Timer1_Timer()  
  18. Static j As Integer  
  19. If j < 100 Then j = j + 1 End If PB1.Value = j If PB1.Value = 10 Then Label1.BackColor = vbRed ElseIf PB1.Value = 30 Then Label1.BackColor = vbRed ElseIf PB1.Value = 60 Then Label1.BackColor = vbYellow ElseIf PB1.Value = 90 Then Label1.BackColor = vbGreen Label1.Caption = "GO" End If If PB1.Value = 100 Then Unload Me End Sub  





Sample Project

0 komentar on Membuat Splash Screen / Loading screen di Visual Basic :

Post a Comment and Don't Spam!

Terimakasih Sudah Berkomentar di artikel ini