Форум программистов, компьютерный форум, киберфорум
Наши страницы
Lotus Notes/Domino: Программирование
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.96/73: Рейтинг темы: голосов - 73, средняя оценка - 4.96
Mydyvys
0 / 0 / 0
Регистрация: 04.12.2004
Сообщений: 3,329
1

Progress Bar

16.06.2005, 14:42. Просмотров 13101. Ответов 2
Метки нет (Все метки)

Вот. Нашел способ как сделать прогресс бар. Думаю будет интересно.


Код
-declarations section-

Const NPB_TWOLINE% = 1 1 is for the big "in yts window" progress bar and 32 is for the small blue line at the bottom of the screen

-- Procedures in nnotesws.dll
Declare Function NEMProgressBegin Lib "nnotesws.dll" ( Byval wFlags As Integer ) As Long
Declare Sub NEMProgressEnd Lib "nnotesws.dll" ( Byval hwnd 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 )

-sample code for a button-

Sub Click(Source As Button)
Dim hwnd As Long
Dim i As Long
Dim j As Long

Create the progress bar
hwnd = NEMProgressBegin( NPB_TWOLINE )

Set the bar range - the default is 100
NEMProgressSetBarRange hwnd, 200

Display text on the dialog.
NemProgressSetText hwnd, "Calculating ...", "Start"

For i = 0 To 200
For j = 0 To 5000
artificial delay for the example !!
Next j
Update the bar position
NEMProgressSetBarPos hwnd, i
Update the text at twenty five percent
If i = 50 Then
NEMProgressSetText hwnd, "Calculating ....", "25%"
End If
Update the text at fifty percent
If i = 100 Then
NEMProgressSetText hwnd, "Calculating .....", "50 %"
End If
Update the text at seventy five percent
If i = 150 Then
NEMProgressSetText hwnd, "Calculating ......", "75 %"
End If
Next
Destroy the dialog when were done
NEMProgressEnd hwnd

End Sub
Делал не я и копирайта не знаю.
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
16.06.2005, 14:42
Ответы с готовыми решениями:

Action bar ломаются кнопки при скрытии дизайна
Собственно, скрываешь дизайн, и в дизайнере видно в ошибках на выборочных...

Можно ли переделать Progress bar в Track bar?
Можно ли переделать Progress bar в Track bar? От прогресбара нужно всего лишь,...

progress bar
Вообщем суть в этом у меня есть 3 формы в первой форме заполняются эдит1...

Progress bar?
Доброе время суток! Подскажите, пожалуйста, что лучше использовать?...

Progress Bar
Допустим, нужно сделать так чтобы после нажатия на кнопку, прогресс бар начинал...

2
Domymo6
0 / 0 / 0
Регистрация: 07.05.2005
Сообщений: 743
16.06.2005, 17:01 2
Код
16.09.1999 on 15:25 What does thys LotusScript do: Displays Notes Progress Bar.
(Declarations)
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 )

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 were done
NEMProgressEnd hwnd
End Sub
Этот красивее он статусбаре бежит
0
Mydyvys
0 / 0 / 0
Регистрация: 04.12.2004
Сообщений: 3,329
16.06.2005, 18:00 3
<!--QuoteBegin-Domino6+17:06:2005, 15:48 -->
<span class="vbquote">(Domino6 @ 17:06:2005, 15:48 )</span><!--QuoteEBegin-->Этот красивее он статусбаре бежит
[snapback]21264" rel="nofollow" target="_blank[/snapback]?[/quote]
Пробовал уже. У меня не бежит.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
16.06.2005, 18:00

progress bar
Написала код для простенького web браузера вот код brouser.h #ifndef...

Progress bar
Я собственно совсем новичок в программировании, так что не ругайтесь строго....

Progress Bar
Подскажите как сделать чтоб например я создал Progress Bar и один Button. И...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru