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

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

22 Май 2022, 13:18 *
Добро пожаловать, Гость. Пожалуйста, войдите или зарегистрируйтесь.
Вам не пришло письмо с кодом активации?

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

Сообщений: 49


« Стартовое сообщение: 13 Май 2022, 08:22 »

Здравствуйте! Мне удалось написать довольно неплохую БД, но вот один вопрос разрешить пока не смог:
Есть элемент Формы "Список", в который забиты какие-то данные. Так же на форме есть поля для заполнения. После ввода всех значений и подтверждения нажатием кнопки, все поля очищаются, а список, по моему замыслу, тоже должен показать пустое значение, как при запуске Формы. Пока что найти способ это сделать мне не удалось. Может вы подскажете, как это осуществить?
« Последнее редактирование: 13 Май 2022, 08:47 от Ириминаге » Записан

Он верил в Мир и Здравый Смысл,
В себя, в людей, в любовь, в науку!
Но кто-то Кафку положил,
В его протянутую руку...
sokol92
Опытный пользователь
***
Offline Offline

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


WWW
« Ответ #1: 13 Май 2022, 14:54 »

За содержимое ListBox отвечает свойство StringItemList его модели.
Пример (для диалога Dialog1, содержащего элемент управления ListBox1):
Код:
Sub TestListBox
  Dim oDialog, oListbox
  oDialog=CreateUnoDialog(DialogLibraries.GetByName("Standard").GetByName("Dialog1"))
  oListBox=oDialog.getControl("ListBox1")
  oListBox.Model.StringItemList=Array("1", "2")
  oDialog.Execute    ' две строки
 
  oListBox.Model.StringItemList=Array()
  oDialog.Execute    ' нет строк
End Sub
Записан

Владимир.
Ириминаге
Всем бобра!
Участник
**
Offline Offline

Сообщений: 49


« Ответ #2: 13 Май 2022, 15:09 »

Спасибо за ответ! Если я правильно понял, второй раз передается пустой массив? Это не то, что мне нужно.. Список на Форме имеет данные через SQL-запрос на уровне самой Формы. Все поля ввода после подтверждения очищаются для удобства, плюс при подтверждении делается проверка на заполненность полей. Списки, по моему замыслу, должны вернуться к начальному состоянию: данные в них есть, однако ни один элемент не выбран. На одной из последних форм, это даже сработало через Form.reload(), а вот на предыдущих что-то не хочет. И я пока не понимаю почему.
Записан

Он верил в Мир и Здравый Смысл,
В себя, в людей, в любовь, в науку!
Но кто-то Кафку положил,
В его протянутую руку...
sokol92
Опытный пользователь
***
Offline Offline

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


WWW
« Ответ #3: 13 Май 2022, 15:33 »

список, по моему замыслу, тоже должен показать пустое значение
Эту фразу можно интерпретировать по разному.  Улыбка

Код:
Sub TestListBox2
  Dim oDialog, oListbox, i
  oDialog=CreateUnoDialog(DialogLibraries.GetByName("Standard").GetByName("Dialog1"))
  oListBox=oDialog.getControl("ListBox1")
  With oListBox.Model
    .StringItemList=Array("1", "2", "3")
    .MultiSelection=True
  End With    
  oDialog.SetTitle "Выделите строку (строки)"
  oDialog.Execute    
  
  ' Сбрасываем отмеченные строки
  With oListBox  
    For Each i In .getSelectedItemsPos()
        .selectItemPos i, False
    Next i
  End With  
  oDialog.SetTitle "Нет выделенных строк?"
  oDialog.Execute    
End Sub
« Последнее редактирование: 13 Май 2022, 15:35 от sokol92 » Записан

Владимир.
Ириминаге
Всем бобра!
Участник
**
Offline Offline

Сообщений: 49


« Ответ #4: 13 Май 2022, 15:55 »

Вспоминая Коклюшкина: "Не хочу чтоб меня поняли правильно...."

Спасибо! Похоже, это то, что надо! Буду экспериментировать!
Записан

Он верил в Мир и Здравый Смысл,
В себя, в людей, в любовь, в науку!
Но кто-то Кафку положил,
В его протянутую руку...
Страниц: 1   Вверх
  Печать  
 
Перейти в:  

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