10 000 ms* Ladebalken

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von Mad Andy.

    10 000 ms* Ladebalken

    Hallo an alle,

    ich weiß, dass das Thema Ladebalken schon ein paar mal gepostet wurde, doch ich fand einfach keine Antwort auf meine Frage, deßhalb probiere ich es so:

    Ich möchte in einem Fenster einen Ladebalken anzeigen, der alllerdings nichts läd, sondern in 10 000 ms* voll ist, da ich per Timerfunktion verschiedene Texte in einem Label anzeigen lasse. So sieht es im prinzip aus, als läd das Programm. Weiß jemand den Code für so einen "Schein"ladebalken.
    ________________________________
    *ms = Milisekunden

    Dieser Beitrag wurde bereits 9 mal editiert, zuletzt von „progmanager“ ()

    Hi!

    Hier mal ein Beispielcode via Timer

    Visual Basic-Quellcode

    1. '2 Controls: Einen Timer (timLoad) und eine Progressbar (pgbLoad)
    2. 'Timer: Enabled = false, Interval ist egal
    3. 'Progressbar: Positionieren, min = 0, value und max ist egal
    5. Private Sub Form_Load()
    6. pgbLoad.Max = pgbLoad.Width \ 15 'für jedes Pixel einen Fortschrittswert
    7. pgbLoad.Value = 0
    8. timLoad.Interval = 10000 \ pgbLoad.Max 'Gesamtzeit / Punktezahl = Teilzeit
    9. End Sub
    11. Private Sub Form_Activate()
    12. 'wird ausgelöst, sobald das Fenster in den Fordergrund kommt (also nach Form_Load
    13. 'dadurch werden zuverlässig ALLE Einzelschritte angezeigt ;)
    14. timLoad.Enabled = true
    15. End Sub
    17. Private Sub timLoad_Timer()
    18. If pgbLoad.Value = pgbLoad.Max 'absichtlich VOR dem Erhöhen, dadurch wird der volle Balken einen Interval lang angezeigt
    19. timLoad.Enabled = false
    20. Form2.Show
    21. Unload Me
    22. Exit Sub
    23. End If
    25. pgbLoad.Value = pgbLoad.Value + 1
    26. End Sub
    PS: \ ist im Gegensatz zu / eine Ganzzahldivision. Dabei wird der Rest verworfen und somit kommt es keiner Inkompatiblität zwischen den Ganzzahlen und den Gleitkommazahlen.

    Mit Timer ists am Besten, da diese Methode das System wenig belastet und das Programm zu keinem Zeitpunkt zum hängen bringt ;)


    mfG Andy

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Mad Andy“ ()

Facebook
Telefonspende