Results 1 to 3 of 3

Thread: [RESOLVED] Label not working

  1. #1

    Thread Starter
    Member
    Join Date
    Mar 2007
    Posts
    49

    Resolved [RESOLVED] Label not working

    Hi everyone!

    I'm just wondering how come the Label (lblStatus) within my UserForm1, which shows the status of my program, isn't working. Is my computer too fast or do I need to add some code to be able to show the status of my program? Many thanks!

    e.g.

    Code:
    UserForm1.lblStatus.Caption = "Checking Actual Date Finished..."
        CheckActFinish  'Subroutine
        UserForm1.ProgressBar1.Value = 100 / (vali - 2)
        
        UserForm1.lblStatus.Caption = "Checking Negative Fix Time..."
        CheckNegativeFixTime   'Subroutine
        UserForm1.ProgressBar1.Value = 100 / (vali - 3)
        
        UserForm1.lblStatus.Caption = "Checking Negative RF.."
        CheckNegativeRF   'Subroutine
        UserForm1.ProgressBar1.Value = 100 / (vali - 4)
    Cheers,
    Radic

  2. #2
    Addicted Member
    Join Date
    Aug 2007
    Location
    India
    Posts
    141

    Re: Label not working

    I am not too Sure but you can try this

    UserForm1.lblStatus.Caption = "Checking Actual Date Finished..."
    DoEvents
    CheckActFinish 'Subroutine
    UserForm1.ProgressBar1.Value = 100 / (vali - 2)

    UserForm1.lblStatus.Caption = "Checking Negative Fix Time..."
    DoEvents
    CheckNegativeFixTime 'Subroutine
    UserForm1.ProgressBar1.Value = 100 / (vali - 3)

    UserForm1.lblStatus.Caption = "Checking Negative RF.."
    DoEvents
    CheckNegativeRF 'Subroutine
    UserForm1.ProgressBar1.Value = 100 / (vali - 4)
    Do Good. Be Good. The World is yours.

  3. #3

    Thread Starter
    Member
    Join Date
    Mar 2007
    Posts
    49

    Re: Label not working

    Hey, it worked so well!!! Thanks so much!!! Cheers!!!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width