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

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

26 Октябрь 2020, 07:12 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

Войти
Новости: Вы можете задать вопрос по LibreOffice или Apache OpenOffice без регистрации, используя форму
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: Будьте добры, подскажите по написанию макроса. Имеет  (Прочитано 3218 раз)
0 Пользователей и 1 Гость смотрят эту тему.
ForumOOo (бот)

Offline Offline

Сообщений: 742


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

Компонент: Base
Версия продукта: 5.x
Сборка: LibreOffice 5.0.4
ОС: Любая

Будьте добры, подскажите по написанию макроса.

Имеется флажок и кнопка. И еще две формы.
Идея: чтобы при нажатии кнопки и установленном флажке открывалась одна форма, а при снятом флажке другая.

Сейчас вопрос решен только тем, что создано две кнопки, каждая из которых открывает свое окно. Но это топорный метод.

--
Подпись: MasterLi
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 024


iMac, LibreOffice и Apache OpenOffice


« Ответ #1: 3 Февраль 2016, 23:24 »

Имеется флажок и кнопка. И еще две формы.
Идея: чтобы при нажатии кнопки и установленном флажке открывалась одна форма, а при снятом флажке другая.
Вот, например:

* Кнопка и птичка.odb (27.75 Кб - загружено 19 раз.)
Записан

MasterLi
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 16



« Ответ #2: 4 Февраль 2016, 05:31 »

Да, работает.
Только мудрёно получилось: Label меняется. Можно и без этого.
Записан
MasterLi
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 16



« Ответ #3: 4 Февраль 2016, 09:15 »

Фу-у-ух разобрался ...

Код:
Sub Direction
Dim oForm, oForms, oCheckBox, oButton
oForms=ThisComponent.getDrawPage().getForms()
oForm=oForms.getByName("MainForm")
oCheckBox=oForm.getByName("Госзаказ")
oButton=oForm.getByName("Кнопка_направление")
If oCheckBox.State Then ThisComponent.Parent.FormDocuments.getByName("Направление (госзаказ)").open else ThisComponent.Parent.FormDocuments.getByName("Направление").Open
End Sub
Записан
rami
Гуру
*******
Offline Offline

Пол: Мужской
Сообщений: 3 024


iMac, LibreOffice и Apache OpenOffice


« Ответ #4: 4 Февраль 2016, 09:31 »

Только мудрёно получилось: Label меняется. Можно и без этого.
Вы просили подсказать, так я подсказал...

Ах да, забыл подсказать как отключить макрос от чекбокса Непонимающий , ну это просто заходите в редактирование формы, выделяете чекбокс, жмёте в выпадающем меню на "Элемент управления..." и во вкладке "События" удаляете назначенный макрос.
Записан

MasterLi
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 16



« Ответ #5: 4 Февраль 2016, 09:49 »

Ах да, забыл подсказать как отключить макрос от чекбокса  , ну это просто заходите в редактирование формы, выделяете чекбокс, жмёте в выпадающем меню на "Элемент управления..." и во вкладке "События" удаляете назначенный макрос.

Это ежу понятно Улыбка
Записан
MasterLi
Участник
**
Offline Offline

Пол: Мужской
Сообщений: 16



« Ответ #6: 4 Февраль 2016, 09:51 »

Вы просили подсказать, так я подсказал...
Помогите еще кой в чем:

Две формы.
Обе черпают информацию из одной и той же таблицы.
В первой форме кнопка, открывающая вторую форму.
Что дописать в макрос, чтобы в открывающейся форме показывалась та же запись, что и в данный момент в первой форме ?
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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