Progress bar

[Summer.05]

Практически нет вопросов по созданию прогресс-бара.
Есть вопрос о том, КАК связать его с выполняемой работой. Например: загрузка базы; поиск данных по базе.
Какими параметрами эта функция определяется?

[GSerg]

Почти нет вопросов про label. КАК связать его с выполняемой работой. Например: отображение текста, введённого пользователем; поиск данных по базе.
Какими параметрами эта функция определяется?


Ручками задаётся value, как же ещё.

[Summer.05]

Оччччень убедительно, но непонятно...
Ясно, что "Ручками задаётся value".

Знал бы КАК, не спрашивал. Может, какой-то примерчик можно было бы показать?

[VVitafresh]

Код: Выделить всё

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Private Sub Command1_Click()
    Dim i
    For i = 1 To 100
        Sleep 100
        ProgressBar1.Value = i
    Next
End Sub


[GB826]

Да помница в программном детстве тоже тормозил свои проги, чтобы увидеть как процентики бегут, эх ...

Summer.05
Поиск по БД или загрузка данных вряд ли обработка... Прогресс баром получится... А вот заполнение таблиц в проге уже из рекордсета пожалста, или выгрузка в БД...

[Summer.05]

GB826
Ты правильно сказал насчет программного детства: причины те же...
Пример, приведенный выше, идеальный, но как привязать к моей потребности: скажем, мне надо загрузить 17 файлов.
Чтобы загрузка каждого файла давала сдвиг в прогресс баре.
Ну, в общем, как во всех прогах по копированию файлов..
Спасибо всем, кто отозвался.

[Viper]

что сложного то? Процент загруженных файлов к общему числу задавать в Value. При желании можно учесть и объем файлов

[Summer.05]

Понял, спасибо, буду стараться!

[Summer.05]

Прошу не ругаться, но вновь возвращаюсь к этой теме.
Понятно практически все, кроме одного:
КАК сделать, чтобы процесс:

Private Sub Form_Load() 'ввод формы
strPath = App.Path & "/" & "/" & "DB/ped.mdb" ' Изменение путей базы данных
LoadKeyboardLayout "00000419", KLF_ACTIVATE 'вызов русского языка в форму
With Adodc1 ' поиск в базе данных
.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Persist Security Info=False;Data Source=" & strPath & _
"; Mode=Read|Write"
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.CommandType = adCmdText
.RecordSource = "SELECT * FROM DB order by Name"
.Refresh
End With
Text1.Text = DataGrid1.ApproxCount
End Sub

сопровождался изменение прогресс-бара?
Получается пока, что они работают раздельно: сначала select, потом прогресс-бар, или наоборот. Надо бы: совместная их работа, когда прогресс-бар показывает процесс Select

Честно перерыл весь форум. То ли там нет, то ли я такой...
Благодарен за отклики!

[alibek]

Не сделаешь ты так.

[GSerg]

Честно перерыл весь форум. То ли там нет, то ли я такой...

Несомненно, ты такой.

http://bbs.vbstreets.ru/viewtopic.php?t=27510
http://bbs.vbstreets.ru/viewtopic.php?t=28298
http://bbs.vbstreets.ru/viewtopic.php?t=28298
http://bbs.vbstreets.ru/viewtopic.php?t=24699
http://bbs.vbstreets.ru/viewtopic.php?t=23725
Надоело копировать.

[Summer.05]

Увы мне, но, видимо, с тобой следует согласиться....

[Summer.05]

alibek
Чувствую, что не сделаю. Давно пытаюсь.
А вообще это возможно?
Что я делаю не так? Прошу хотя бы совета: как это можно сделать. Понимаю, что ручками, - я имею в виду логику и синтаксис...

[EUGY]

Что я делаю не так?

Выкинуть adodc1.
Я использовал (приблизительно для такой-же задачи) функции из odbc32.dll - SQLFetch,SQLGetData и.т.д.

А то ведь у тебя получается, что пока контрол ADODC не подключится к базе и не вернет весь рекордсет, программа будет висеть.

[Summer.05]

EUGY
Да, это дейстивтельно так. Спасибо!