Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выбор одного из двух / 15 сообщений из 15, страница 1 из 1
09.06.2009, 14:53
    #36033357
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Извените что спрашую такие вещи, но нет времени искать в литературе.
Напишите код, для следуещего действия.
При нажатии кнопки, появляется запрос с выбором "кореспондент" или "организацыя - кореспондент" и порезультату выбора, выполняется один или другой фрагмент програмного кода.
Заранее спасибо.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:09
    #36033428
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
AlexDoom,
Проще некуда ;-)
Код: plaintext
1.
2.
3.
4.
IF MESSAGEBOX('кореспондент-OK'+CHR( 13 )+'организацыя - кореспондент-NO', 4 )= 6 
?'кореспондент'
else
?'организацыя - кореспондент'
endif
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:15
    #36033447
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Tohan_ORA,
Спасибо
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:25
    #36033487
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
AlexDoom,

Кнопку в дизайнере на форму кинуть и в событии click этой кнопки записать туда вышеприведённый код.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:32
    #36033509
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Да это я знаю, просто не знал деталей месиджбокса.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:44
    #36033547
GermanGM
GermanGM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
AlexDoom, если устроит MESSAGEBOX(), то OK, хотя разумнее предоставлять пользователю выбор при помощи менюшки. Быстро и без расчетов ввод контекстного меню можно выполнить следующим образом:

Помещаете на форму кнопку;
В событие Click пишете следующий код:
Код: plaintext
wait wind str(mrow())+str(mcol())
Запускаете форму;
Щелкаете левой кнопкой мыши по верхнему левому углу кнопки: Записываете появившиеся на экране значения координат mrow() и mcol() (пусть, скажем, это 2 и 100. Это нужно для того, чтобы POPUP появлялась в нужном месте при нажатии кнопки с помощью ENTER)

Открываете форму в режиме редактирования. В Событии Click вышеприведенный код заменяете на

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
define popup tmp from  2 , 100  color scheme  4  margin shortcut
define bar  1  of tmp prompt 'Кореспондент'
define bar  2  of tmp prompt 'Организацыя - кореспондент'
on selection popup tmp deactivate popup tmp
activate popup tmp
deactivate popup tmp
rele popup tmp
do case
 case bar()= 1 
 * выбрана  1 -я опция
 case bar()= 2 
 * выбрана  2 -я опция
endcase
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:51
    #36033586
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
GermanGM,
Нет спасибо,но вариант из сообщением мне подходит больше, так как при нажатии кнопки там сначала идёт свой отдельный код и запрос, а потом тока выбор какойотчёт запустить.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 15:54
    #36033596
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Вот тока не подскажете как в месиджбоксе зделать так что бы, писалось "Выбор отчёта", а на кнопках "кореспондент" и "организацыя - кореспондент" соответственно, ато первый пример не очень смотрится для пользователя.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 16:05
    #36033639
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
AlexDoomВот тока не подскажете как в месиджбоксе зделать так что бы, писалось "Выбор отчёта", а на кнопках "кореспондент" и "организацыя - кореспондент" соответственно, ато первый пример не очень смотрится для пользователя.

Вариант AlexDoom более предпочтительный, а чтобы решить вашу проблему поместите код предложенный AlexDoom в собственную функцию в форме которая и будет толкаться после прохода основного кода.
Код: plaintext
1.
2.
3.
...
основной код
..
thisform.myfunction()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 16:12
    #36033661
GermanGM
GermanGM
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
AlexDoom, изменить стандартные надписи в кнопках MESSAGEBOX() нельзя. Создайте модальную форму с двумя кнопками, имитирующую MESSAGEBOX().
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 16:18
    #36033680
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Всё понял, да вот тока не разу не размещал функцию на форме, не могу найти как добавить функцию в форму
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 16:31
    #36033735
Dag
Dag
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Меню Form->New Method
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 17:02
    #36033834
Tohan_ORA
Tohan_ORA
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Tohan_ORA
Вариант AlexDoom
Очепятался ... :-)
Вариант GermanGM.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 17:09
    #36033865
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Всем спасибо, всё работает!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2009, 17:10
    #36033866
AlexDoom
AlexDoom
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Выбор одного из двух
Tohan_ORA,
)) Ничего я понял )
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выбор одного из двух / 15 сообщений из 15, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
созд. / загр.: 449ms
Закрыть
start [/forum/topic.php?fid=41&mobile=1&tid=1586342]:
 0ms
get settings:
 10ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 34ms
get topic data:
 11ms
get forum data:
 3ms
get page messages:
 49ms
get tp. blocked users:
 1ms
others: 322ms
total:  449ms
x
x
Закрыть


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