ReSQL.ru
     
powered by simpleCommunicator - 2.0.52     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется строка кода
7 сообщений из 7, страница 1 из 1
Не выполняется строка кода
    #38840633
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Доброго Вам времени суток
Уважаемые господа.

При наличии Вашего времени прошу Вас подсказать.

Вот код загрузки файла.

Код: vbnet
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
Private Sub buttonreper_Click()

lblinfo.Caption = "ПОДОЖДИТЕ!" + vbCrLf + "идёт подсчет строк файла"
butonput.Enabled = False
buttonreper.Enabled = False

On Error GoTo errempty

unstandart.Caption = iCountLine

MyFile2 = FreeFile 

Open puttxt.Text For Input As #MyFile2
progres.Max = iCountLine

For i = 1 To iCountLine

Line Input #MyFile2, tS
rtb.SelColor = vbBlack
rtb.SelText = tS + vbCrLf

progres.Value = progres.Value + 1
lblalline.Caption = i

Next

Close #MyFile2
lblinfo.Caption = "Загрузка файла" + vbCrLf + "прошла успешно."


errempty:
If Err.Number = 62 Then
lblinfo.Caption = "Загрузка файла" + vbCrLf + "прошла успешно." + vbCrLf + "Имеются пустые строки в конце."
Close #MyFile2
End If

buttonsave.Enabled = True

End Sub



Всё работает кроме вот этой части

Код: vbnet
1.
lblinfo.Caption = "ПОДОЖДИТЕ!" + vbCrLf + "идёт подсчет строк файла"



В чём может быть проблема ?

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
23.12.2014, 14:46
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840639
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
точку останова поставьте и псмотрите
...
Рейтинг: 0 / 0
23.12.2014, 14:49
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840663
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Konst_One

я поставил точку останова перед
Код: vbnet
1.
lblinfo.Caption = "ПОДОЖДИТЕ!" + vbCrLf + "идёт подсчет строк файла"



и ничего.

Однако когда я поставил точку останова у двух строк

Код: vbnet
1.
2.
lblinfo.Caption = "ПОДОЖДИТЕ!" + vbCrLf + "идёт подсчет строк файла"
butonput.Enabled = False



нужная мне строка сработала.

Создаётся впечатление что программа не успевает обработать первую строку.
...
Рейтинг: 0 / 0
23.12.2014, 15:00
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840665
Фотография Konst_One
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Konst_One
Участник
Код: vbnet
1.
If Err.Number = 62 Then



сюда заходит? если да, то после присвоения нового caption поставьте DoEvents
...
Рейтинг: 0 / 0
23.12.2014, 15:01
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840668
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Код: vbnet
1.
2.
lblinfo.Caption = "ПОДОЖДИТЕ!" + vbCrLf + "идёт подсчет строк файла"
lblinfo.Refresh
...
Рейтинг: 0 / 0
23.12.2014, 15:03
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840692
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Namik
Гость
Приветствую Вас.

Konst_One
Shocker.Pro

Благодарю Вас.

Всё работает.

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
23.12.2014, 15:15
| Ответить | Цитировать | Написать  
Не выполняется строка кода
    #38840705
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
На здоровье!
NamikВсё работает.предпочтительнее использовать мой вариант, если он не поможет, тогда DoEvents
...
Рейтинг: 0 / 0
23.12.2014, 15:19
| Ответить | Цитировать | Написать  
7 сообщений из 7, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется строка кода
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38840639&tid=2156085]:
 0ms
get settings:
 8ms
get forum list:
 12ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 33ms
get topic data:
 10ms
get forum data:
 2ms
get page messages:
 47ms
get tp. blocked users:
 1ms
others: 324ms
total:  443ms
созд. / загр.: 443ms
x
x
Закрыть


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