Приветствую.
Возникла проблемка с прогрессиндикатором.
При работе в W7 Офис 2010 периодически в заголовке прогрессиндикатора появляется надпись (не отвечает), и прогрессиндикатор исчезает с экрана. Поднять получается только щелкнув по файлу в панели задач. Обнаружить какую либо систему не удается. Может 10 раз сработать нормально, затем начать работать с ошибкой, затем снова нормально.
Если прогрессиндикатор запускать после загрузки текстовых файлов - проблемы не возникает.
При работе в ХР и 2007 офисе проблемы не возникает, не зависимо от места запуска.
Для справки - размеры txt 50 и 15 Mb, обновление экрана отключено.
Пытался и Repaint вставить, и убить/запустить форму... Не помогает.
Где собака зарылась?
Возникла проблемка с прогрессиндикатором.
| Код |
|---|
' запускаем прогрессбар
pi.Show
pi.StartNewAct 0, Timer
' считываем и закрываем
With CreateObject("scripting.filesystemobject")
With .OpenTextFile(filename, 1, True)
ReadTXTfile = .ReadAll
.Close
End With
On Error Resume Next
With .OpenTextFile(filenameexclus, 1, False)
If Err Then
Err.Clear
If msgAll__2 <> vbYes Then
If MsgBox("Файл не выбран." & vbLf & "Продолжить работу?", vbYesNo + vbInformation, "") = vbNo Then GoTo Exit_
End If
End If
exclusTxt = .ReadAll
.Close
End With
On Error GoTo 0
End With |
При работе в W7 Офис 2010 периодически в заголовке прогрессиндикатора появляется надпись (не отвечает), и прогрессиндикатор исчезает с экрана. Поднять получается только щелкнув по файлу в панели задач. Обнаружить какую либо систему не удается. Может 10 раз сработать нормально, затем начать работать с ошибкой, затем снова нормально.
Если прогрессиндикатор запускать после загрузки текстовых файлов - проблемы не возникает.
При работе в ХР и 2007 офисе проблемы не возникает, не зависимо от места запуска.
Для справки - размеры txt 50 и 15 Mb, обновление экрана отключено.
Пытался и Repaint вставить, и убить/запустить форму... Не помогает.
Где собака зарылась?
