ProgressBAr in der Statuszeile ( grafisch)

[eknori]

Heute mal eine kleine Spielerei mit der Notes API.  
Jeder kennt den Fortschrittsbalken, der sich bei der Replizierung oder dem Kopieren in den Vordergrund drängt.  

Hier mal eine Variante in der Statuszeile  


Const NPB_STATUSBAR% = 32
Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd As Long )
Declare Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer ) As Long
Declare Sub NEMProgressSetBarPos Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwPos As Long)
Declare Sub NEMProgressSetBarRange Lib "nnotesws.dll" ( Byval hwnd As Long, Byval dwMax As Long )
Declare Sub NEMProgressSetText Lib "nnotesws.dll" ( Byval hwnd As Long, Byval pcszLine1 As String, Byval pcszLine2 As String )

Und in den Buttton CLICK kommt dies :

Sub Click(Source As Button)
     Dim hwnd As Long
     Dim i As Long
     Dim j As Long
'Create the progress bar
     hwnd = NEMProgressBegin( NPB_STATUSBAR )
'Set the bar range - the default is 100
     NEMProgressSetBarRange hwnd, 100
     For i = 0 To 100
'Simple delay for the example!!
           For j = 0 To 5000
           Next
'Update the bar position
           NEMProgressSetBarPos hwnd, i
     Next
'Destroy the dialog when we're done
     NEMProgressEnd hwnd
End Sub

[Axel]

Hi,

ich hab bei mir eine Klasse für einen Fortschrittsbalken gefunden. Diese läßt sich leicht in eigene DBs einbinden.

Bei der Instanzierung der Klasse kann man festlegen ob er als Fenster oder in der Statuszeile angezeigt werden soll.

Ich habe die Demo-DB bereits an Arne geschickt, damit er sie in den Download-Bereich stellt.

Axel

[eknori]

Danke

[Axel]

Hi,

hier ist der Link dazu:

http://www.atnotes.de/download/ProgessBar.zip

Axel

[maxg]

ob wohl noch irgendjemand diese Datenbank hat und sie mir zur Verfügung stellen kann?

Danke,
max

[eknori]

müsste das hier sein

http://www.free.dominoserver.de/computer/noteslibrary.nsf/d2d59a3d7fc73a2bc1256a6900638352/7d61bc18dc73ccddc1256ca8005110b7/$FILE/ProgessBar.zip

Ulrich

[meichhorner]

Da schwirren schon länger einige Varianten in Web herum

Ich habe die DB auch schon seit längerem hier, aber von wo ich sie downgeloadet habe keine Ahnung

Übrigens gibt es da Probleme unter Notes 6 ist auch schon auf Notes Net diskutiert worden.

http://www-10.lotus.com/ldd/nd6forum.nsf/0/03accfc9c005c7db85256e51005a9dc0?OpenDocument

Cu
Martin