[RESOLVED] form load and unload with timer

[janu]

please need help .. I have form1 and form2 ..

is there any way that as soon as form1 is launched form 2 will also be launched above the form1 and stay a while and unload itself..

[Nightwalker83]

How long do you want form2 to remain open for?

Edit:

You could try one of the methods here.

[janu]

How long do you want form2 to remain open for?

Edit:

You could try one of the methods here.

i want to put a progressbar like loading items on form2 .. when it reaches 100% then form2 should be closed.

[seenu_1st]

try something like this

Private Sub Form_Load()
Timer1.Interval = 1000
Timer1.Enabled = True
With ProgressBar1
    .Min = 0
    .Max = 10
    .Value = 0
    .Visible = True
End With
End Sub
Private Sub Timer1_Timer()
    If ProgressBar1.Value < 10 Then
        ProgressBar1.Value = ProgressBar1.Value + 1
    Else
        ProgressBar1.Value = 0
        ProgressBar1.Visible = False
        Unload Me
        Timer1.Enabled = False
    End If
End Sub

[janu]

thanks .. I actually solved my problem by this code

Option Explicit
Dim cnt As Integer
Private Sub Form_Load()
Picture2.Height = Picture1.Height
Picture2.BackColor = vbBlue
Picture2.Width = 0
tm.Enabled = True
tm.Interval = 1
End Sub

Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1
Label1.Caption = (cnt) & "      %  "
If cnt > 100 Then
Picture2.Width = Picture1.Width
cnt = 0
Unload Me

Picture2.Width = Picture1.Width
tm.Enabled = False
Unload Me
Else
Picture2.Width = (cnt / 100) * Picture1.Width
End If
End Sub

In this code label1 is used to show the progress count .. how to add label2 which will run different item name .. like loading different items

[seenu_1st]

do u need to add a label at runtime? or u already had label2 in the form?

[janu]

do u need to add a label at runtime? or u already had label2 in the form?

no there is no label2 on the form ... i want to show in label2 like product1, product2 and so on like progress count is changing 1-100

[seenu_1st]

if i understand corectly may be this is u need

Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1
Label1.Caption = cnt & "      %  "
Label2.Caption = "Product " & cnt
If cnt > 100 Then
Picture2.Width = Picture1.Width
cnt = 0
Unload Me

[janu]

if i understand corectly may be this is u need

Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1
Label1.Caption = cnt & "      %  "
Label2.Caption = "Product " & cnt
If cnt > 100 Then
Picture2.Width = Picture1.Width
cnt = 0
Unload Me

thanks for your help .. brother I actually do not want to show count with product ,, like you have coded .. I want while running progressbar label2 should display product name one by one .. like bread, water, tea etc...

[seenu_1st]

where from u wil get that product names?

[janu]

where from u wil get that product names?

like you put this code of line

Label2.Caption = "Product " & cnt

if instead of product name of products will change one by one .. i actually want to show that these products are loading on form1

[seenu_1st]

use Array() function to list products, try something like this

PrdAr = Array("Bread", "Cake", "Biscuit") 'add more
Label2.Caption = PrdAr(cnt)

remember array starting count is 0, means 0 = Bread, 1 = Cake ....

[Nightwalker83]

Don't forget to mark the thread "Resolved".

[janu]

use Array() function to list products, try something like this

PrdAr = Array("Bread", "Cake", "Biscuit") 'add more
Label2.Caption = PrdAr(cnt)

remember array starting count is 0, means 0 = Bread, 1 = Cake ....

thanks brother i did it this way

Dim PrdAr as *******
PrdAr = Array("Bread", "Cake", "Biscuit") 'add more
Label2.Caption = PrdAr(cnt)

but I get compiler error: Expected array on Label2.Caption = PrdAr(cnt)

[seenu_1st]

declare it as variant

Dim PrdAr As Variant

or

Dim PrdAr

[janu]

declare it as variant

Dim PrdAr As Variant

or

Dim PrdAr

Run-time error '9':
Subscript out of range

[seenu_1st]

ur cnt value getting more than ur array value, if u set 10 items in array it means 0-9 only, so ur cnt value shuld be with in that limit.

[janu]

ur cnt value getting more than ur array value, if u set 10 items in array it means 0-9 only, so ur cnt value shuld be with in that limit.

can't it be done with another timer Timer2

[janu]

ur cnt value getting more than ur array value, if u set 10 items in array it means 0-9 only, so ur cnt value shuld be with in that limit.

can't it be done with another timer Timer2

[seenu_1st]

post ur complete code, or if posible attach ur project as zip file.

[janu]

ok here is a sample .. I have placed Label2 on form which i intend to show products .. [Loading --- bread then water and so on ]

[seenu_1st]

try like this

Option Explicit
Dim cnt As Integer
Dim PrdAr

Private Sub Form_Load()
PrdAr = Array("Product1", "Product2", "Product3", "Product4", "Product5", _
                "Product6", "Product7", "Product8", "Product9", "Product10")
Picture2.Height = Picture1.Height
Picture2.BackColor = vbBlue
Picture2.Width = 0
tm.Enabled = True
tm.Interval = 1
End Sub

Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1

Label1.Caption = cnt & "      %  "

If cnt Mod 10 = 0 Then
    Label2.Caption = PrdAr(Int(cnt / 10) - 1)
End If

If cnt > 100 Then
    Picture2.Width = Picture1.Width
    cnt = 0
    Unload Me
Else
    Picture2.Width = (cnt / 100) * Picture1.Width
End If
End Sub

[janu]

try like this

Option Explicit
Dim cnt As Integer
Dim PrdAr

Private Sub Form_Load()
PrdAr = Array("Product1", "Product2", "Product3", "Product4", "Product5", _
                "Product6", "Product7", "Product8", "Product9", "Product10")
Picture2.Height = Picture1.Height
Picture2.BackColor = vbBlue
Picture2.Width = 0
tm.Enabled = True
tm.Interval = 1
End Sub

Private Sub tm_Timer()
Picture2.Refresh
Picture1.Refresh
cnt = cnt + 1

Label1.Caption = cnt & "      %  "

If cnt Mod 10 = 0 Then
    Label2.Caption = PrdAr(Int(cnt / 10) - 1)
End If

If cnt > 100 Then
    Picture2.Width = Picture1.Width
    cnt = 0
    Unload Me
Else
    Picture2.Width = (cnt / 100) * Picture1.Width
End If
End Sub

Thanks brother for your help .. it worked fine .. to save the space of the forum by making another thread please help me bit more so that I will make thread resolve..

I have another code where instead of message box I want to show form with label1 for programme used count

code

Private Sub Form_Load()
On Error Resume Next
SaveSetting "hh", "StartupForm", "TimesRun", GetSetting("hh", "StartupForm", "TimesRun", 0) + 1
Timesrun = GetSetting("hh", "StartupForm", "TimesRun")
MsgBox "You have Used this programme " & Timesrun & " times"
End Sub

[seenu_1st]

it's better start a new thread, so many person wil help u, and i wil too

[si_the_geek]

Thanks brother for your help .. it worked fine .. to save the space of the forum by making another thread please help me bit more so that I will make thread resolve..

That does not save any space at all... what it does is save you a tiny amount of effort, while making things more confusing and annoying for all of the people who try to help (whether they have replied or not).

If your original question has been answered, be polite and mark the thread as Resolved (which allows people who help to focus on the things that haven't been answered yet). You may also want to Rate the posts of the people who helped.

If you have another question that is not a direct extension of the question at the top of the thread, create a new thread for it. There are several reasons why nearly everyone does that and you should too, including many that benefit you (such as more chance of other people reading your question, thus more chance of a good answer).

[janu]

it's better start a new thread, so many person wil help u, and i wil too

actually I want to display more than 10 let it be 20 but this code does not allow

If cnt Mod 10 = 0 Then
    Label2.Caption = PrdAr(Int(cnt / 10) - 1)
End If

[seenu_1st]

change to

If cnt Mod 5 = 0 Then
    Label2.Caption = PrdAr(Int(cnt / 5) - 1)
End If

not tested, hope it's corect