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

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

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

Войти
Новости: Здесь можно поблагодарить участников форума Улыбка
 
   Начало   Помощь Поиск Войти Регистрация    задать вопрос  
Страниц: 1   Вниз
  Печать  
Автор Тема: как проверить, выбрано ли значение listbox  (Прочитано 260 раз)
0 Пользователей и 1 Гость смотрят эту тему.
Сергей74
Новичок
*
Offline Offline

Сообщений: 2


« Стартовое сообщение: 20 Ноябрь 2020, 12:59 »

 Здравствуйте. Подскажите, пожалуйста как проверить, выбрано ли значение в листбоксе.
Есть форма. Кнопка должна разблокироваться, если заполнено поле ввода и выбрано значение в листбоксе. Листбокс привязан к базе.
Если сначала выбрать листбокс, а затем поле ввода все работает. Если наоборот выдает ошибку. Как должно выглядеть второе условие?
Цитата:
sub buttontest1 'тестовая подпрограмма
Dim oForm, oForms, oButton, oField,oList

oForms=ThisComponent.getDrawPage().getForms()
oForm=oForms.getByName("MainForm")
oField=oForm.getByName("Текстовое поле 1")
oButton=oForm.getByName("Кнопка 1")
oList=oForm.getByName("txtprod")


if oField.text>"" then

If Not IsNull(oList.SelectedItems(0)) And Not IsEmpty(oList.SelectedItems(0)) Then


oButton.Enabled=true
endif
endif

end sub

* test2011.odb (13.22 Кб - загружено 5 раз.)
Записан
rami
Гуру
*******
Offline Offline

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


iMac, LibreOffice и Apache OpenOffice


« Ответ #1: 20 Ноябрь 2020, 20:16 »

Пробуйте так:
Код:
Sub buttontest1 'тестовая подпрограмма
Dim oForm, oForms, oButton, oField,oList

oForms = ThisComponent.getDrawPage().getForms()
oForm = oForms.getByName("MainForm")
oField = oForm.getByName("Текстовое поле 1")
oButton = oForm.getByName("Кнопка 1")
oList = oForm.getByName("txtprod")

If oField.Text <> "" And Not IsEmpty(oList.SelectedValue) Then
        oButton.Enabled = true
EndIf

End Sub
Записан

eeigor
Ubuntu 18.04 LTS • LO 7.0.2.2
Форумчанин
***
Offline Offline

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



« Ответ #2: 20 Ноябрь 2020, 20:23 »

oButton.Enabled = true
oButton.Enabled = (oField.Text <> "" And Not IsEmpty(oList.SelectedValue))

rami, маленькое добавление для обратного случая
Записан
rami
Гуру
*******
Offline Offline

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


iMac, LibreOffice и Apache OpenOffice


« Ответ #3: 20 Ноябрь 2020, 20:42 »

Хорошее добавление, может быть пригодится.
Записан

Сергей74
Новичок
*
Offline Offline

Сообщений: 2


« Ответ #4: 21 Ноябрь 2020, 10:49 »

 Спасибо. Все работает.
Записан
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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