ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как создать цикл по всем объектам формы?
14 сообщений из 14, страница 1 из 1
Как создать цикл по всем объектам формы?
    #39246676
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
На форме есть кнопка(ФТ), которая формирует текстовый файл
Код: c#
1.
2.
3.
4.
5.
    SET CONSOLE OFF
    SET TEXTMERGE ON
    SET TEXTMERGE TO im_file
        \\ итак далее
thisform.refresh


и этот текстовик сбрасывается на сайт, вроде всё нормально, но если перейдёшь в браузер(или ещё куда) и вернёшься в фокс, то все кнопки и лэйблы пропадают(кроме гридов), не пропадают только те кнопки, которые были нажаты после нажатия кнопки ФТ и до перехода в браузер, ну если нащупать кнопку то она также появится... Поэтому хотелось бы сделать рефреш всех объектов формы(кроме грида), вроде все объекты хранятся в каком то массиве... но вот точно не помню...
...
Рейтинг: 0 / 0
31.05.2016, 08:34
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246681
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
В файл лучше писать через fopen()/fwrite() или StrToFile()

Обход контролов на форме
Код: sql
1.
2.
3.
for each loCtrl in thisform.controls
 ? loCtrl.name
endfor
...
Рейтинг: 0 / 0
31.05.2016, 08:40
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246689
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
спасибо...
...
Рейтинг: 0 / 0
31.05.2016, 08:51
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246698
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
Запись в файл можно и через fopen, и set device to fle, и set alternate, и set TEXTMERGE.. интересно проследить историю появления этих команд, чем было вызвано добавление этих команд, и в каких случаях какими командами лучше воспользоваться..., т.к. "дело вкуса" и "никакой разницы"... это всё таки не конкретно...:-)
...
Рейтинг: 0 / 0
31.05.2016, 08:57
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246705
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
Сделал, всё равно кнопки пропали... попробую переписать fwrite, долго переписывать...
for each loCtrl in thisform.controls
loCtrl.refresh
endfor
...
Рейтинг: 0 / 0
31.05.2016, 09:01
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246719
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
q1w1e1set device to fle, и set alternate, и set TEXTMERGE.. интересно проследить историю появления этих команд, чем было вызвано добавление этих команд, и в каких случаях какими командами лучше воспользоваться..., т.к. "дело вкуса" и "никакой разницы"... это всё таки не конкретно...:-)
Это наследие FoxPro DOS.
Некоторые подобные команды дублируют вывод в окно формы, в итоге, когда текста больше чем на одну форму, контролы начинают "уезжать" за пределы окна, т.е. вывод текста идет на форму, не влазит и все содержимое формы сдвигается вверх. В общем коряво реализовано, поэтому лучше не пользоваться.
У TEXTMERGE есть доп.параметр NOSHOW чтобы подавить вывод на экран. Может он поможет.
...
Рейтинг: 0 / 0
31.05.2016, 09:10
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246729
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
спасибо..
...
Рейтинг: 0 / 0
31.05.2016, 09:20
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39246902
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
В общем вопрос чуть-чуть конкретизировался... пропадает изображение кнопок и лэйблов(если перешёл в другую задачу), после формирования POST запроса...
XMLHTTP.Open("POST", и т.д. может кто знает как это обходится..., рефреш каждого объекта не помогает...(если только выйти и снова загрузить форму...)
...
Рейтинг: 0 / 0
31.05.2016, 11:23
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247090
правильный проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проходящий.
Гость
q1w1e1В общем вопрос чуть-чуть конкретизировался... пропадает изображение кнопок и лэйблов(если перешёл в другую задачу), после формирования POST запроса...
XMLHTTP.Open("POST", и т.д. может кто знает как это обходится..., рефреш каждого объекта не помогает...(если только выйти и снова загрузить форму...)Интересно, как ты его так формируешь, что портится форма? Не поделишься?
...
Рейтинг: 0 / 0
31.05.2016, 13:04
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247099
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
не вопрос..:-)))
 

XMLHTTP = CREATEOBJECT("Msxml2.XMLHTTP")
IF ISNULL(XMLHTTP)
=MESSAGEBOX('Невозможно создать объект Microsoft.XMLHTTP',16,'Обратитесь к разработчику')
RETURN
ENDIF

CLEAR

rt_content = ""
rt_content = rt_content + "--" + rt_boundary и т.д.

XMLHTTP.Open("POST", " http://example.com", .F.)
XMLHTTP.SetRequestHeader("Content-Type", "multipart/form-data; boundary=" + rt_boundary)
XMLHTTP.send(rt_content)
XMLHTTP.ResponseText
XMLHTTP.statustext
RELEASE XMLHTTP
...
Рейтинг: 0 / 0
31.05.2016, 13:10
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247118
правильный проходящий.
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
правильный проходящий.
Гость
q1w1e1,
прелестно. Но я не наблюдаю никакого влияния этого кода на форму.
Похоже, что-то порылось в rt_content = rt_content + "--" + rt_boundary и т.д.
...
Рейтинг: 0 / 0
31.05.2016, 13:19
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247121
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
q1w1e1В общем вопрос чуть-чуть конкретизировался... пропадает изображение кнопок и лэйблов(если перешёл в другую задачу), после формирования POST запроса...
XMLHTTP.Open("POST", и т.д. может кто знает как это обходится..., рефреш каждого объекта не помогает...(если только выйти и снова загрузить форму...)
А если свернуть/развернуть форму?

Странно все это, XMLHTTP не использовал, но не должен он никак влиять на отображение формы. Может там еще какой-то код отрабатывает и дело вовсе не в XMLHTTP?
...
Рейтинг: 0 / 0
31.05.2016, 13:20
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247708
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
спасибо, проблему решил, рефреш кнопок заменил на сетфокус..
...
Рейтинг: 0 / 0
01.06.2016, 07:37
| Ответить | Цитировать | Написать  
Как создать цикл по всем объектам формы?
    #39247712
q1w1e1
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
q1w1e1
Участник
rt_boundary = "7deea2c701f2"
CR_LF = CHR(13)+CHR(10)
rt_content = ""
rt_content = rt_content + "--" + rt_boundary + CR_LF
и т.д.
...
Рейтинг: 0 / 0
01.06.2016, 07:49
| Ответить | Цитировать | Написать  
14 сообщений из 14, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Как создать цикл по всем объектам формы?
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=41&msg=39246719&tid=1582102]:
 0ms
get settings:
 11ms
get forum list:
 14ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 55ms
get tp. blocked users:
 1ms
others: 268ms
total:  405ms
созд. / загр.: 405ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]