Ok tak
"Mikkel Bundgaard" <mikkelbu@teliamail.dk> skrev i en meddelelse
news:9spepk$dl7$1@sunsite.dk...
> Jan Damkjær Dahl <jdd@worldonline.dk> wrote in message
> news:r7WH7.319$Bs1.76102@news000.worldonline.dk...
> >
> > hejsa
> >
> > hvordan får man en ProgressBar til at følge en lykke
> >
> > Hvor kan man evt. finde nogle eksempler
> >
> >
> > --
> > mvh.
> > Jan Damkjær Dahl
> Hej Jan
>
> Jeg tror ikke, at en progressbar er specielt lykkelig
. Men
> her er et simpelt eksempel fra Access VBA, som du burde
> kunne bruge. cmdStartLoop er den knap, der starter
> selve _løkken_ og acxProgressBar er progressbaren.
>
> Option Explicit
> '***************** Code Start *******************
> Private Declare Sub sapiSleep Lib "kernel32" _
> Alias "Sleep" _
> (ByVal dwMilliseconds As Long)
>
> Sub sSleep(lngMilliSec As Long)
> If lngMilliSec > 0 Then
> Call sapiSleep(lngMilliSec)
> End If
> End Sub
>
> Private Sub cmdStartLoop_Click()
> Dim i As Long
> For i = 0 To 100
> sSleep (100)
> acxProgressBar.Value = i
> Next i
> End Sub
>
> --
> Mikkel Bundgaard
> IT University of Copenhagen
>
http://officehelp.gone.dk
> ICQ# 116946261
> Se SpaceCommunicator - en peer-to-peer chat-applikation i Java
>
>