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

Тема в разделе "Lotus - Программирование", создана пользователем alexstudent, 7 дек 2009.

  1. alexstudent

    alexstudent Well-Known Member

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

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

    Omh Lotus team
    Lotus team

    Регистрация:
    4 июл 2007
    Сообщения:
    2.210
    Симпатии:
    0
    <!--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. Не очень прикольно читать!!!!!!!!
     
  3. Klido

    Klido Гость

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

    xKlonx Lotus team
    Lotus team

    Регистрация:
    10 сен 2009
    Сообщения:
    412
    Симпатии:
    0
  5. nvyush

    nvyush Lotus team
    Lotus team

    Регистрация:
    22 апр 2009
    Сообщения:
    2.317
    Симпатии:
    0
    Где взял, не помню:

     
  6. turumbay

    Регистрация:
    13 мар 2009
    Сообщения:
    625
    Симпатии:
    2
  7. nadezdaMP

    nadezdaMP Гость

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

    TIA :-)
    Lotus team

    Регистрация:
    15 май 2009
    Сообщения:
    790
    Симпатии:
    0
    Тамже, на http://www.bizzybee.be есть. Через вычисляемые ресурсы. Даже код есть.
     
  9. morpheus

    morpheus скриптописец

    Регистрация:
    7 авг 2006
    Сообщения:
    3.927
    Симпатии:
    0
    http://codeby.net/forum/threads/23475.html
     
  10. nadezdaMP

    nadezdaMP Гость

    спасибо!!
     
Загрузка...

Поделиться этой страницей