Смена изображений на управляемой форме

Форум Программирование Общие вопросы программирования (Dev)

1. rasulkipkeev 10.07.20 14:20 Сейчас в теме

Добрый день. Как сделать при нажатии кнопку на управляемой форме менялась изображение.

НайденныеФайлы = НайтиФайлы(Пусть,Объект.Код+"*.jpg"); 	

Сч = 0
	
Если НайденныеФайлы.Количество() > 0 Тогда 

	Если Сч < 0 Тогда 
		Сч = НайденныеФайлы.Количество();
	ИначеЕсли Сч > НайденныеФайлы.Количество()-1 Тогда 
		Сч = 0;
	КонецЕсли;

	Сч = Сч + 1;

	АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(НайденныеФайлы[Сч].ПолноеИмя, Новый УникальныйИдентификатор); 
 	Картинка= АдресВоВременномХранилище;		
КонецЕсли;

Показать

По теме из базы знаний

Ответы

Подписаться на ответы Инфостарт бот

Свернуть все

2. Doreng 27 10.07.20 14:37 Сейчас в теме

(1)

&НаСервере
Процедура ПолучитьКартинку()
	ОбъектЭлемента = РеквизитФормыВЗначение("Объект");
	Фото =  ПоместитьВоВременноеХранилище(ОбъектЭлемента.Фото.Получить(), 
												   УникальныйИдентификатор); //Получаем из хранилища значений
	
	КонецПроцедуры

Показать

Я делал так - на форме реквизит типа "Строка" , Тип Элемента формы - поле картинки

3. rasulkipkeev 10.07.20 16:59 Сейчас в теме

(2)я так делал, при открытии формы работает, потом по нажатию кнопки показать следующую фотографию не работает

4. Doreng 27 10.07.20 17:07 Сейчас в теме

(3)Правильно, потому как работает "ПриСозданииНаСервере" , грузите картинки и управляйте их видимостью

5. rasulkipkeev 10.07.20 17:09 Сейчас в теме

Заработался)), вот так работает

&НаСервере
&НаСервере
Процедура СледующееФотоНаСервере()
	
	НайденныеФайлы = НайтиФайлы("//family/foto/",Объект.Код+"*.jpg"); 	
	Если НайденныеФайлы.Количество() > 0 Тогда   
		Сч = Сч + 1;
		Если Сч < 0 Тогда 
			Сч = НайденныеФайлы.Количество();
		ИначеЕсли Сч > НайденныеФайлы.Количество()-1 Тогда 
			Сч = 0;
		КонецЕсли;
		КартинкаАдрес = Новый Картинка(НайденныеФайлы[Сч].ПолноеИмя);   
		АдресВоВременномХранилище = ПоместитьВоВременноеХранилище(КартинкаАдрес, Новый УникальныйИдентификатор); 		
		Картинка = АдресВоВременномХранилище; 		
	КонецЕсли;
	
КонецПроцедуры

Показать

Оставьте свое сообщение

E-mail: