14. november 2001 - 16:24
Der er
6 kommentarer og 1 løsning
Progressbar i skema?
Jeg har en form med en progressbar (eller hvad det nu heder - En \"bjælke\", som tæller fra 0 til 100%). Jeg bruger følgende kode for at \"fylde\" progressbaren : Dim i, j As Integer For i = 0 To 100 For j = 0 To 100000 Next j progress.Value = i Next i Ikke veldig elegant, men det virker. Nu ønsker jeg at få progressbaren til at \"tælles op\" (dvs. ovenstående kode skal udføres), når formen åbnes. Jeg har forsøgt at lægge koden i hændelsen for \"Ved åbning\" for formen. Men dette resulterer i at koden bliver udført før selve formen åbnes. Hvordan får jeg formen til at åbne sig, og derefter fylde progressbaren? - Sådan at man ser at progressbaren bliver \"fyldt\"
Annonceindlæg fra Computerworld
14. november 2001 - 19:40
#1
Try using the forms timer: And another thing! j WAS an integer (max 32767) Private Sub Form_Load() Me.TimerInterval = 1000 End Sub Private Sub Form_Timer() Dim i, j As Long For i = 0 To 100 For j = 0 To 100000 Next j progress.Value = i Next i Me.TimerInterval = 0 End Sub
14. november 2001 - 20:34
#2
Terry >> great code ! It works for me... btw : ( på jysk - forresten) Hvorfor skriver du aldrig på dansk, da du intet problem, har med at læse og forstå vores herlige sprog.. med venlig hilsen martens
14. november 2001 - 20:37
#3
Hej Martens, jeg synes ikke det går hurtigt nok hvis jeg skal være med, og heldigvis kan alle dansker godt forstå vestjyske :o)
14. november 2001 - 20:52
#6
terry >> Sure \"vestjydsk\" is like english, if you go so far west, that your feet gets wet :o)