Find Code:
All Words
Any of the Words
Exact Phrase
Home
:
Code
:
Forums
:
Submit
:
Mailing List
:
About
:
Contact
Code
All
VB.NET
ASP.NET
C#
VB Classic
ASP Classic
Snippets
Popular
Resources
Submit Code
Forums
Articles
Tips
Links
Books
Contest
Link to us
SplashScreen with ProgressBar
Author:
lvmontiel
E-mail:
Click to e-mail author
Submitted:
6/18/2010
Version:
VB6
Compatibility:
VB6
Category:
Forms
Views:
23697
Create a new project (Form1 as default) and then add a second Form (Form2), rename with "frmSplash". In the Project Properties set Startup Object: frmSplash. On frmSplash put 1 ProgressBar. The Timer1 on the frmSplash, set: Enabled=True, Interval=100. The ProgressBar1 on the frmSplash set: Max=100, Min=0. The Label1 on the Form1, set: Caption="Hello World..!" Then Click on the Form to Exit
Declarations:
'none
Code:
'--------------------------------------------------------------- 'Code: Form1.frm ' Private Sub Form_Click() Unload Me End Sub '---------------------------------------------------------------- 'Code: frmSplash.frm ' Private Sub Timer1_Timer() Static i As Integer ProgressBar1.Value = Val(ProgressBar1.Value) + 10 If ProgressBar1.Value = 100 Then Timer1.Enabled = False Unload Me Form1.Show End If End Sub '----------------------------------------------------------------
Home
|
Forums
|
Submit
|
Books
|
Mailing List
|
Advertising
|
About
|
Contact
© 2024 A1VBCode. All rights reserved.
Legal disclaimer & terms of use
Privacy statement