Прогресс бар? Возможен ли в лотусе?

alexstudent

Well-Known Member
13.09.2009
107
0
30
Саратов
#1
Добрый День! Можно ли в лотусе сделать прогресс бар, как к примеру при простой установке программы в винде (полоска с процентами или без) при обработке документов в лотусе?? Пользователь хочет явно видеть как долго осталось до завершения процесса!

P.S. чтобы полоска была в центре экрана!
 

Omh

Well-Known Member
Lotus team
04.07.2007
2 210
1
37
Латвиджа, Рига
#2
<!--shcode--><pre><code class='vb'>Const NPB_ONELINE = 0
Const NPB_TWOLINE = 1

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

Class clsProgressBar
handle As Long

Sub New(NPB As Integer, Range As Long)
Me.handle = NEMProgressBegin(NPB)
Call NEMProgressSetBarRange(Me.handle, Range)
End Sub

Sub Delete
If Me.handle <> 0 Then Call NEMProgressEnd(Me.handle)
End Sub

Sub Update(Progress As Long, Title As String, Details As String)
If Me.handle <> 0 Then
Call NEMProgressSetBarPos(Me.handle, Progress)
Call NemProgressSetText(Me.handle, Title, Details)
End If
End Sub

Sub UpdateRange(Range As Long)
If Me.handle <> 0 Then Call NEMProgressSetBarRange(Me.handle, Range)
End Sub
End Class[/CODE]

У тебя перебор со значами препинания, особено в конце предложения!!!!!!!!
P.S. Не очень прикольно читать!!!!!!!!
 
K

Klido

Гость
#3
это стандартная лотусиная?
а есть и обычная - на openntf точно есть...
 

nvyush

Well-Known Member
Lotus team
22.04.2009
2 317
0
48
Подмосковье
#5
Где взял, не помню:

This is how you do it for 1 progressbar:

Create 2 computed-for-display text fields next to eachother (no space in between).
Set the font for the fields to ”Webdings”. In this font, the letter ”g” represents a little block. You see where we are heading to?
Give the first field a brighter font color (like the green I used) and the second field some gray or something.
You also need 2 datafields giving the value and the maximum value, say we call them ”Score” and ”MaxScore”. The values of these fields will function as a source for the progress bar.
The first field gets this value:
@Repeat("g";@Round(Score/MaxScore*20))
The second field gets this value:
@Repeat("g";20-@Round(Score/MaxScore*20))
That’s it!
The numbers ”20″ in the code are the different steps that are possible, adjust according to your needs.
You can do some styling by changing the font size, the colors, font properties, or even the used symbol.
 
N

nadezdaMP

Гость
#7
вопрос: как сделать прогресс бар в почте пользователя,
можно ли в верхнем левом углу нарисовать такую полоску, которая бы показывала, сколько места использовано в базе?
(мне для 7 версии и ниже...)) )
 

morpheus

скриптописец
07.08.2006
3 915
1
34
Украина, Киев
#9