Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

Форум поддержки пользователей. LibreOffice, Apache OpenOffice, OpenOffice.org

16 Февраль 2019, 12:31 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Часто задаваемые вопросы по LibreOffice и Apache OpenOffice.org
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Как получить имена всех элементов диалога?  (Прочитано 1574 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Dr_Lecter
Участник
**
Offline Offline

Пол: Мужской
Расположение: г.Нжневартовск (ХМАО-Югра)
Сообщений: 49


« Стартовое сообщение: 25 Февраль 2016, 18:31 »

Есть нарисованный диалог с большим количеством разных элементов.
Необходимо получить их названия, чтобы не копировать по одному из диалога в модуль для объявления объектных переменных.

Согласно Питоньяку можно получить список всех элементов диалога как массив XControl методом getControls()
Получаю, и даже через UBound вижу что получил в одномерный массив 64 элемента.
Но вот вывести на печать массив никак не могу.

Пытался это сделать таким кодом:
 
Код:
Dim ControlsArray()
Dim sControls AS String
Dim i AS Integer

ControlsArray() = oEchoCGStudyDlg.getControls()
For i = LBound(ControlsArray(),1) to UBound(ControlsArray(),1)
sControls = sControls & ControlsArray(i) & Chr(10)
Next i

Msgbox sControls

Получаю сообщение "неверное значение свойств"
Записан
JohnSUN
Капитана в тот день называли на "ты"
Гуру
*******
Offline Offline

Пол: Мужской
Расположение: Киев
Сообщений: 2 705


Помогаю людям и компьютерам понимать друг друга


WWW
« Ответ #1: 25 Февраль 2016, 18:45 »

Имеется в виду что-то вроде этого?
Код:
ControlsArray = oEchoCGStudyDlg.getModel().getElementNames()
Записан

Владислав Орлов aka JohnSUN
Благодарить-не зазорно.
Подарить благо создателям офиса, нашему ресурсу, мне
Dr_Lecter
Участник
**
Offline Offline

Пол: Мужской
Расположение: г.Нжневартовск (ХМАО-Югра)
Сообщений: 49


« Ответ #2: 25 Февраль 2016, 19:27 »

Именно!

Огромное спасибо!!!! Всё хорошо
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2009, Simple Machines Valid XHTML 1.0! Valid CSS!