Разрабатывается Класс "СтатусБар" где предусмотрена возможность наличия графического элемента "СкроллБар". Требуется визуальное наблюдение процесса. Обычно некий цикл некого действия, например:

// заполнить таблицу значениями из книги
	Sheet = Excel.Sheets.GetValue(1);
	ВсегоСтрок = Sheet.Cells(1, 1).SpecialCells(11).Row;
	СтатусБар.РазмерШкалы = ВсегоСтрок;
	for i = 2 to ВсегоСтрок do
		TzData.NewLine();
		for ii = 1 to ColList.GetListSize() do
			ExcelValue = Sheet.Cells(i, ColList.GetValue(ii).NomColumn).Value;
			if ii = 1 then
				if EmptyValue(ExcelValue) = 1 then
					TzData.DeleteLine();
					break;
				endif;
			endif;
			TzData.SetValue(TzData.LinesCnt(), ColList.GetValue(ii).ID, ExcelValue);
		enddo;
		СтатусБар.УстановитьПрогресс(i);
	enddo;
	СтатусБар.ЗакрытьПрогресс();
 

В этом примере мы обращаемся к книге Excel и всё в порядке, всё красиво и все видим, но если в этом цикле закомментировать само обращение к листу Excel, то, всё, обновления отображения прогресса не происходит. Т.е. если мы поставим скроллбар к заполнению некой таблицы значений или базы данных визуального обновления объекта не происходит и прогресса не видно. Не помогают ни Форма.Обновить(), ни РасширениеФормы.Обновить().

Сам процесс прогресса в классе выгядит следующим образом:

// +++- recop --- 190322 --------------------------------------------------------------
procedure УстановитьПрогресс(Value) export
	var Width,Percent;

	if Value < РазмерШкалы then
		Width = Окр((IVr.ProgressBar.Width * Value) / РазмерШкалы);
		Percent = Окр((100*Value) / РазмерШкалы); 
	else
		Width = IVr.ProgressBar.Width;
		Percent = 100;
	endif;

	IVr.ProgressBar.GflAX.NewBitmap(IVr.ProgressBar.Width, IVr.ProgressBar.Height, ЦветФона);
	IVr.ProgressBar.GflAX.DrawFillRectangle(0, 0, Width, IVr.ProgressBar.Height);
	IVr.ProgressBar.GflAX.TextOut(String(Percent)+"%", Int(IVr.ProgressBar.Width/2-20), 1, ЦветШрифта);
	objProgressBar.ПоказатьКартинку(IVr.ProgressBar.GflAX, "");

endprocedure // УстановитьПрогресс()
 

Может кто подскажет как решить эту проблему?

alyuev писал(а) 25. Марта 2019 :: 13:01:

Что-то не могу запустить:  Ошибка выполнения Microsoft VBScript: Несоответствие типа: 'Wrap.SendMessage'.
Может на Win7 не идет?

В общем, по моим наблюдениям, обращение к форме происходит после завершения работы процедуры в котором это обращение инициализировано. Обновление исключено или не предусмотрено (в рамках 1с77) во время выполнения процедуры (много раз в этом убеждался), т.е. все обращения к форме откладываются на конец выполнения всех операций в процедуре. Обращаясь к "Excel.Application, каким-то образом, сей принцип нарушается. и во-время или сразу после выполнения Sheet.Cells происходит обращение к вызывающей форме.
Я извиняюсь, выше писал что РасширениеФормы.Обновить() не помогает. Очень даже помогает, но форма начинает мелькать так, что становитя темно-серым изображением, но не всегда. Очень-очень редко мелькания пропадают, что говорит о нестабильности метода.

РасширениеФормы.Обновить():


Excel.Application:

Можно попробовать использовать метод ЗапретитьОбновлениеОкна() при загрузке. По окончании загрузки разрешить обновление и обновить форму.
Только осторожней с этим методом.

Что-то я раздувался и решил не читать значение, а записывать в созданный и, ещё, не сохраненный файл. Получилось!

  ...
  Excel=СоздатьОбъект("Excel.Application");
  Excel.DisplayAlerts=0;
  Книга=Excel.WorkBooks.Add();
  Лист=Книга.WorkSheets(1);
  ...
  for ii=1 to Текст.КоличествоСтрок() do
    ...
    Лист.Range("A1").Value=1;
    ...
  enddo;
  ... 
 

Работает! Форма обновляется в цикле при каждом обращении к методу Range(). При этом нет нужды создавать файл пустышку. Эх, не хватило мозгов разработчикам при  создании метода Обновить() при работе с формой.
Единственный недостаток иметь установленный MS Excel.