• На форуме с 10 августа 2007г.
  • Сообщений: 63
  • Спасибо: 0

Тема: Скопировать состояние формы

Есть форма, на форме расположено две рамки с кучей переключателей и текст. полей на каждой. Переключатели и поля одинаковы в каждой рамке.
Задача:
- скопировать состояние преключателей, полей с рамки А в рамку Б.
- вернуть состояние переключателей и полей в рамке А в некое состояние default.
Руками переписывать состояние для каждого переключателя очень ломает, есть ли средство?

  • На форуме с 18 января 2008г.
  • Сообщений: 12
  • Спасибо: 0

Re: Скопировать состояние формы

Средство есть!
Перебрать все обьъекты формы и записать нужные свойства в реестр, или  в файл.
Один раз напишешь две функции (Запись и чтение) и всю жизнь пользоваться будешь: я сделал, таперь жить без этого не могу. Очень часто возникает такая задача.
Пример:
function ( frm as Form)
   Dim J as int
   For J = 0 To frm.Controls.Count-1
        If TypeName(frm.Controls.Item(J))= "TextBox" Then
                SaveSetting App.Name, frm.Name + "." + frm.Controls.Item(J).Name + ".Text", frm.Controls.Item(J).Text
        ElseIf TypeName(frm.Controls.Item(J))= "ComboBox" Then
..........................................................................
   next J
end function

  • LeonidSN
  • Активный участник
  • На форуме с 30 мая 2005г.
  • Сообщений: 1,480
  • Спасибо: 5

Re: Скопировать состояние формы

А если попробовать:
File->Print->FormAsText->Print to File?