ProgressBar1, kossen få den til å fungere

[NightMaree]

Kossen får eg ProgressBar til å fungere?

Får den ikke til å 'loade'

[Jonas]

Her er et eksempel:

    ProgressBar1.Max = 100
   ProgressBar1.Min = 0
   
   Dim i
   For i = 0 To 100
       ProgressBar1.Value = i
       MsgBox ""
   Next i

[NightMaree]

ok. funka de.

Men kossen får eg den te å loada seint, uten å måtta bruka msgbox...

[Jonas]

Loade sent

 

Hva er det godt for?

 

Uansett, lim inn koden og skriv "Sleep 100":

Private Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Endret 17. mars 2005 av Jonas

[NightMaree]

Sån at den ikke loade 100% på 1 sekund. Sån at de gjerna går 5-10 sekunder..

 

Takk, de fungerte fint nå

Endret 17. mars 2005 av NightMaree

[930A0029225AA4C28B8EF095B679285EAAE27078]

eller en timer?

 

Private Sub Timer1_Timer()

if ProgressBar1.value < ProgressBar1.max then ProgressBar1.value = ProgressBar1.value + 1

else: Timer1.Enabled = false: msgbox "Ferdig med loading"

End Sub

[Jaffe]

Hva skal du med en progressbar som ikke viser progressen av noe?

[aadnk]

Hva skal du med en progressbar som ikke viser progressen av noe?

Kan hende skal han innlemme en fremdriftsviser for en oppstartsform, en forsinkelse, slik av eventuelle brukere skal se formen.

 

Men jeg husker faktisk at jeg i mine første vb-dager testet ut ProgessBar-kontrollen omtrent som vist her, slik at det kanskje er dette han forsøker på?

[Jonas]

Splash-screen f0r teh w1n!!1

 

Jeg lagde også slike da jeg begynte. Måtte jo har med et copyright-merke

[Blaster2k]

Jeg er heller ikke så stø med progressbarer, hvordan kan jeg få en prograssbar til å vise fremgangen mens en rekke kommandoer kjører? skjønner dere hva jeg mener?

[Jonas]

ProgressBar1.Max = 4

'Noen koder

ProgressBar1.Value = ProgressBar1.Value + 1

'Noen koder

ProgressBar1.Value = ProgressBar1.Value + 1

'Noen koder

ProgressBar1.Value = ProgressBar1.Value + 1

Skjønner du prinsippet? Du velger altså en max-verdi, og etter hver rekke med kommandoer øker du verdien med èn.

[GeirGrusom]

for eksempel

 

Dim iFile As Integer
Dim fileBuf() As Byte
Dim oneByte As Byte
Dim indexer As Long
iFile = FreeFile
Open "C:\Windows\System32\cmd.exe" For Binary Access Read As #iFile
 ReDim fileBuf(LOF(iFile))
 ProgressBar1.Maximum = LOF(iFile)
 Do Until Eof(iFile)
   Get #iFile, , oneByte
   fileBuf(indexer) = oneByte
   indexer = indexer + 1
   ProgressBar1.Value = indexer ' Sett progressbar value
   DoEvents
 Loop
Close #iFile

[Blaster2k]

hehe, det var slik jeg fryktet at det virket. Men takker og bukker

[GeirGrusom]

Det som er noe skit er at ProgressBar.Value er 16-bit, så max maximum er 32767 og min minimum er -32768