как проверить, выбрано ли значение listbox

Автор Сергей74, 20 ноября 2020, 12:59

0 Пользователи и 1 гость просматривают эту тему.

Сергей74

 Здравствуйте. Подскажите, пожалуйста как проверить, выбрано ли значение в листбоксе.
Есть форма. Кнопка должна разблокироваться, если заполнено поле ввода и выбрано значение в листбоксе. Листбокс привязан к базе.
Если сначала выбрать листбокс, а затем поле ввода все работает. Если наоборот выдает ошибку. Как должно выглядеть второе условие?
Цитировать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

rami

Пробуйте так:
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

Цитата: rami от 20 ноября 2020, 20:16oButton.Enabled = true
oButton.Enabled = (oField.Text <> "" And Not IsEmpty(oList.SelectedValue))

rami, маленькое добавление для обратного случая
Ubuntu 18.04 LTS • LibreOffice 7.5.1.2 Community

rami

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

Сергей74