Обработка группы элементов диалога

[siti]

Подскажите как можно массово опросить или изменить значения однотипных элементов диалога. Например есть 12 элементов с именами CheckBox1...CheckBox12.
Можно ли разом изменить или опросить их статус в цикле или еще как то?

[eeigor]

Да. Вы можете в цикле по всем элементам управления проверить тип элемента управления (oControl.ClassId). Или задать им метку (текст) в свойстве  "Дополнительная информация" – прямо в окне диалога – и при обходе проверить значение свойства oControl.Model.Tag. Можно анализировать и имя, но оно, как правило, должно быть осмысленным.

При этом надо помнить, что checkbox принимает не логические значения, а: 0, 1 и 2. Присвоить ему True (-1) не получится.

[sokol92]

Диалогам посвящена глава 18 Книги А.Питоньяка OOME_4_0.odt.
Для обхода элементов управления можно использовать следующую схему (см. также комментарии к макросу):

Код Выделить Развернуть

Sub TestControls
  Dim oDoc, oDlgDesc, oDialog, oControl, s As String
  oDoc=GlobalScope      ' диалог в библиотеке приложения (My Macros)
  ' oDoc=ThisComponent  ' диалог встроен в документ
  oDlgDesc=oDoc.DialogLibraries.GetByName("Standard").GetByName("Dialog1")
  oDialog=CreateUnoDialog(oDlgDesc)
 
  For Each oControl In oDialog.Controls
    ' mri oControl   ' можно исследовать элемент управления с помощью Mri
    s=s & Chr(10) & oControl.Model.Name
  Next oControl
 
  Msgbox s,,"Dialog controls"
End Sub


[siti]

При этом надо помнить, что checkbox принимает не логические значения, а: 0, 1 и 2. Присвоить ему True (-1) не получится.

А почему тогда работает следующее
   If Dlg.getControl("ChB11").State = false Then

[sokol92]

Атрибут State имеет тип Short (соответствует Integer в Basic).

Код Выделить Развернуть

Msgbox CInt(False)

выдает 0.