ReSQL.ru
     
powered by simpleCommunicator - 2.0.53     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / ProgressBar и окончание выполнения
14 сообщений из 14, страница 1 из 1
ProgressBar и окончание выполнения
    #39368339
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Всем доброго дня. Мой вопрос прозвучит странно, но помогите разобраться.

Есть на форме Progressbar1, и кнопка Button1. При нажатии кнопки делаю цикл для примера от 1 до 10 (с засыпанием, чтобы было наглядно виднее), и по окончанию цикла Progressbar1 надо сделать невидимым. Вот код на кнопку:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 10
        ProgressBar1.Value = 0
        For i = 1 To 10
            ProgressBar1.Value = i
            Threading.Thread.Sleep(200)
        Next
        Application.DoEvents()
        Threading.Thread.Sleep(1000)
        ProgressBar1.Visible = False
    End Sub



Проблема в том, что полоса визуально не доходит до конца, и Progressbar1 становится невидимым раньше.
Сразу говорю - потоки и всякие backgroundworker не предлагать. Помогите разобраться ИМЕННО В ЭТОМ КОДЕ. Всем заранее спасибо.
...
Рейтинг: 0 / 0
16.12.2016, 10:11
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368438
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
Настенька,

Application.DoEvents()

нужно вызвать внутри цикла
...
Рейтинг: 0 / 0
16.12.2016, 11:39
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368450
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Поставила для гарантии 3 DoEvents - а воз и ныне там. Вот код:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 10
        ProgressBar1.Value = 0
        For i = 1 To 10
            Application.DoEvents()
            ProgressBar1.Value = i
            Application.DoEvents()
            Threading.Thread.Sleep(200)
            Application.DoEvents()
        Next
        Application.DoEvents()
        Threading.Thread.Sleep(1000)
        ProgressBar1.Visible = False
    End Sub



Результат тот же. Попробуйте у себя это и скажите результат.
...
Рейтинг: 0 / 0
16.12.2016, 11:45
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368472
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
Код: c#
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
        private async void button1_Click(object sender, EventArgs e)
        {
            ProgressBar1.Minimum = 0;
            ProgressBar1.Maximum = 10;
            ProgressBar1.Value = 0;
            for (var i = 0; i < 11; i++)
            {
                Application.DoEvents();
                ProgressBar1.Value = i;
                await Task.Delay(200);
            }
            await Task.Delay(2000);
            ProgressBar1.Visible = false;
        }



у меня вот так работает, какой у вас FW?
...
Рейтинг: 0 / 0
16.12.2016, 12:02
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368479
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
FW 4.0. И ваш код тоже не работает.
Какой FW поставить - чтобы заработало?

Правильно я понимаю (с C# на Vb.net), await Task.Delay(200) = Threading.Thread.Sleep(200)?
...
Рейтинг: 0 / 0
16.12.2016, 12:09
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368489
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
НастенькаFW 4.0. И ваш код тоже не работает.
Какой FW поставить - чтобы заработало?

Правильно я понимаю (с C# на Vb.net), await Task.Delay(200) = Threading.Thread.Sleep(200)?
неправильно понимаете
Thread.Sleep() приостанавливает текущий поток, в вашем случае это Main Tread (UI поток), потому у вас и не обновляется форма, так как потом отвечающий за её обновление спит в этот момент.
А Task.Delay() создает Task который выполняется в отдельном потоке, а await ожидает его завершения, при этом UI поток не блокируется.
Вообще использовать Thread.Sleep() для таких задач не самая лучшая идея.
...
Рейтинг: 0 / 0
16.12.2016, 12:17
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368526
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Погуглила, пишут, что аналог C# delay - это sleep.
Тогда вообще ничего не понимаю.

Как вот эту строку await Task.Delay(200); правильно написать на Vb???
...
Рейтинг: 0 / 0
16.12.2016, 12:41
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368763
Фотография ЕвгенийВ
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ЕвгенийВ
Участник
НастенькаПогуглила, пишут, что аналог C# delay - это sleep.
Тогда вообще ничего не понимаю.

Как вот эту строку await Task.Delay(200); правильно написать на Vb???
На 4,0 никак.
...
Рейтинг: 0 / 0
16.12.2016, 15:53
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39368980
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Настенька,

На 4.5 можно использовать Async/Await. В вашем случае (на Win7 как минимум) код в таком виде, как он есть, логически не будет работать правильно. После присваивания значения ProgressBar нужно время, чтобы элемент отрисовал анимацию заполнения. Sleep напрочь блокирует поток, а DoEvents лишь даёт возможность сообщению "отрисоваться" дойти до назначения, до контрола, а время на отрисовку уже не будет, происходит выход из цикла и сокрытие контрола с экрана. Нужна задержка, например такая:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	ProgressBar1.Minimum = 0
	ProgressBar1.Maximum = 10
	ProgressBar1.Value = 0

	For I = 1 To 11
		If ProgressBar1.Value < ProgressBar1.Maximum Then
			ProgressBar1.Value = I
			ProgressBar1.Invalidate()

			Threading.Thread.Sleep(200)
		Else
			Dim tm As Long = Now.Ticks + 5000000 '0.5 сек
			While tm > Now.Ticks
				Application.DoEvents()
			End While

			ProgressBar1.Visible = False
		End If
	Next
End Sub
...
Рейтинг: 0 / 0
16.12.2016, 19:42
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39369057
Roman Mejtes
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Roman Mejtes
Участник
в 4.0 есть TPL и таски используйте их
...
Рейтинг: 0 / 0
16.12.2016, 23:10
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39369164
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cat2
Модератор форума
Настенька
Код: vbnet
1.
2.
3.
4.
ProgressBar1.Refresh()

Threading.Thread.Sleep(1000)
ProgressBar1.Visible = False
...
Рейтинг: 0 / 0
17.12.2016, 10:30
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39369166
Фотография Cat2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Cat2
Модератор форума
VSVLADНастенька,

На 4.5 можно использовать Async/Await. В вашем случае (на Win7 как минимум) код в таком виде, как он есть, логически не будет работать правильно. После присваивания значения ProgressBar нужно время, чтобы элемент отрисовал анимацию заполнения. Sleep напрочь блокирует поток, а DoEvents лишь даёт возможность сообщению "отрисоваться" дойти до назначения, до контрола, а время на отрисовку уже не будет, происходит выход из цикла и сокрытие контрола с экрана. Нужна задержка, например такая:

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
	ProgressBar1.Minimum = 0
	ProgressBar1.Maximum = 10
	ProgressBar1.Value = 0

	For I = 1 To 11
		If ProgressBar1.Value < ProgressBar1.Maximum Then
			ProgressBar1.Value = I
			ProgressBar1.Invalidate()

			Threading.Thread.Sleep(200)
		Else
			Dim tm As Long = Now.Ticks + 5000000 '0.5 сек
			While tm > Now.Ticks
				Application.DoEvents()
			End While

			ProgressBar1.Visible = False
		End If
	Next
End Sub


Избыточно. У ТС не перерисовывается только завершение
...
Рейтинг: 0 / 0
17.12.2016, 10:34
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39369557
Фотография VSVLAD
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
VSVLAD
Участник
Cat2VSVLAD...Избыточно. У ТС не перерисовывается только завершение
По крайней мере работает, через ProgressBar1.Refresh() ведёт себя также, концовка не перерисовывается
...
Рейтинг: 0 / 0
18.12.2016, 13:53
| Ответить | Цитировать | Написать  
ProgressBar и окончание выполнения
    #39369762
Настенька
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Настенька
Участник
Cat2, переделала вот так, теперь все работает супер. Огромное спасибо.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
ProgressBar1.Minimum = 0
        ProgressBar1.Maximum = 10
        ProgressBar1.Value = 0
        ProgressBar1.Visible = True
        For I = 1 To 10
            ProgressBar1.Value = I
            Threading.Thread.Sleep(200)
        Next
        Dim tm As Long = Now.Ticks + 5000000 '0.5 сек
        While tm > Now.Ticks
            Application.DoEvents()
        End While
        ProgressBar1.Visible = False
...
Рейтинг: 0 / 0
19.12.2016, 05:24
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / WinForms, .Net Framework [игнор отключен] [закрыт для гостей] / ProgressBar и окончание выполнения
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=20&gotonew=1&tid=1400141]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 46ms
get topic data:
 12ms
get first new msg:
 7ms
get forum data:
 3ms
get page messages:
 52ms
get tp. blocked users:
 1ms
others: 269ms
total:  423ms
созд. / загр.: 423ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]