Гость
Войти | Профиль | Очистить
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Не выполняется строка кода / 7 сообщений из 7, страница 1 из 1
23.12.2014, 14:46
    #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:49
    #38840639
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не выполняется строка кода
точку останова поставьте и псмотрите
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
23.12.2014, 15:00
    #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:01
    #38840665
Konst_One
Konst_One
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Не выполняется строка кода
Код: vbnet
1.
If Err.Number = 62 Then



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

Konst_One
Shocker.Pro

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

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

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


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