• Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

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

  • Автор темы alexstudent
  • Дата начала
A

alexstudent

Добрый День! Можно ли в лотусе сделать прогресс бар, как к примеру при простой установке программы в винде (полоска с процентами или без) при обработке документов в лотусе?? Пользователь хочет явно видеть как долго осталось до завершения процесса!

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

Omh

<!--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

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

xKlonx



Добавлено: link removed
 
N

nvyush

Где взял, не помню:

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 версии и ниже...)) )
 
T

TIA

Тамже, на есть. Через вычисляемые ресурсы. Даже код есть.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!