Progressbar i vbscript

Hej bendji!
Jeg ved hvordan du laver det i VB, ved ikke helt om det kan bruges som VB Script?

Hygge!

Webcrawler

\'Progressbar:


Private Sub Command1_Click()
    Dim Counter As Integer
    Dim Workarea(200) As String \'(200=hurtig, 1000=langsom)
    ProgressBar1.Min = LBound(Workarea)
    ProgressBar1.Max = UBound(Workarea)
    ProgressBar1.Visible = True
\'Set the Progress\'s Value to Min.
    ProgressBar1.Value = ProgressBar1.Min
\'Loop through the array.
    For Counter = LBound(Workarea) To UBound(Workarea)
        \'Set initial values for each item in the array.
        Workarea(Counter) = \"Initial value\" & Counter
        ProgressBar1.Value = Counter
Next Counter
    ProgressBar1.Visible = True
    ProgressBar1.Value = ProgressBar1.Min
End Sub

da spørgsmålet er stillet i visual basic afdelingen - og du skriver msgbox - så er det vel i Visual Basic det skal laves og ikke VBScript?

Well -webcrawler- er godt på vej....... men det du skal gøre er i menuen>Project>Components>find den der hedder Microsoft Windows Common Controls 6.0 (eller 5.0 eller whatever.... alt efter hvilken servicepack du har installeret) - sæt et flueben i den - og tryk OK

du får nu nogle nye komponenter i din Toolbox, som du kan arbejde med. Hvis du finder progressbar - og sætter een på din form og laver en knap - og indsætter det kode, som -webcrawler- har postet ovenfor med nogle små modifikationer - så skulle du være kørende.....

Private Sub Command1_Click()
Dim Counter As Integer
    Dim Workarea(500) As String \'500 var antallet af brugere i skulle oprette
    ProgressBar1.Min = LBound(Workarea)
    ProgressBar1.Max = UBound(Workarea)
    ProgressBar1.Visible = True
\'Set the Progress\'s Value to Min.
    ProgressBar1.Value = ProgressBar1.Min
\'Loop through the array.
    For Counter = LBound(Workarea) To UBound(Workarea)
        \'Set initial values for each item in the array.
        Workarea(Counter) = \"Initial value\" & Counter
        ProgressBar1.Value = Counter
        \'HER DEN KODE DER OPRETTER EN BRUGER!
        \'ELLER KALD AF DEN SUB/FUNCTION, DER GØR DET
Next Counter
    ProgressBar1.Visible = True
    ProgressBar1.Value = ProgressBar1.Min
End Sub


Så skulle du være godt på vej..... for der hvor koden til oprettelse af brugeren skal udføres vil programmet \"stoppe op mens det udfører koden\" og først gå videre med progressbar-koden, når den næste brugeren ER oprettet. Og så fremdeles indtil alle 500 brugere er oprettet - så vil progress-baren farves langsomt indtil samtlige er oprettet og progressbaren er helt færdigkørt (farvet)

/nuno

hvis du så tilmed skifter dette

    ProgressBar1.Visible = True
    ProgressBar1.Value = ProgressBar1.Min
End Sub


ud med


    ProgressBar1.Visible = False
End Sub


så vil progressbaren \"blive usynlig\" så snart koden er færdigudført

/nuno

er det en progressbar på en htmlside du søger - så sig lige til....

/nuno