Form Loading ( ENG )


Loading Form is an application form before the opening of this school of information systems will be raised. I made ​​it with some components that do not include standard components from VB 6. Therefore I give you all the download link for this loading can create the form.
1.       aicAlphaImage to display PNG images. Downloadit here.
2.       ARProgressBar to make cool progress bar.Download it here.


Then below this is the arrangement of each kompenen that will be used in this form. All these settings can you change your taste respectively.
Object
Properties
Setting
Form
Name
FrmLoading

BorderStyle
0-None

BackColor
&H00FFC0C0&

StartUpPosition
2-CenterScreen

ShowInTaskBar
1-True
aicAlphaImage
Name
aicAlphaImage1

ScaleMethod
1-aiStretch

Picture
As you wish
ARProgressBar
Name
Bar

Border
1-Simple

EndColor
&H0000C000&

IniColor
&H0080FF80&

UseGradient
True
Timer
Name
Timer1

Interval
30

And here is design of loading form


Images form when running



And the following is a source code form loading

Private Sub Form_Activate()
FadeIn1 Me
End Sub

Private Sub Form_Load()
Me.Caption = "Loading..."
Bar.Value = 0
Me.Height = Me.aicAlphaImage1.Height
Me.Width = Me.aicAlphaImage1.Width
Me.Timer1.Enabled = True
FadeIn2 Me
End Sub

Private Sub Timer1_Timer()

If Bar.Value = 100 Then
    Timer1.Enabled = False
    Unload Me
    FrmLogin.Show
ElseIf Bar.Value = 50 Then
    Bar.CaptionForeColor = vbWhite
    Bar.Value = Val(Bar.Value) + 1
Else
    Bar.Value = Val(Bar.Value) + 1
End If
End Sub

Watch and Learn

Comments

Popular posts from this blog

Flowchart Penjualan Grosir / Eceran

Flowchart Proses Pembelian Barang