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

Кнопку в дизайнере на форму кинуть и в событии click этой кнопки записать туда вышеприведённый код.
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033509
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Да это я знаю, просто не знал деталей месиджбокса.
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033547
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
Выбор одного из двух
    #36033586
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
GermanGM,
Нет спасибо,но вариант из сообщением мне подходит больше, так как при нажатии кнопки там сначала идёт свой отдельный код и запрос, а потом тока выбор какойотчёт запустить.
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033596
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Вот тока не подскажете как в месиджбоксе зделать так что бы, писалось "Выбор отчёта", а на кнопках "кореспондент" и "организацыя - кореспондент" соответственно, ато первый пример не очень смотрится для пользователя.
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033639
Tohan_ORA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
AlexDoomВот тока не подскажете как в месиджбоксе зделать так что бы, писалось "Выбор отчёта", а на кнопках "кореспондент" и "организацыя - кореспондент" соответственно, ато первый пример не очень смотрится для пользователя.

Вариант AlexDoom более предпочтительный, а чтобы решить вашу проблему поместите код предложенный AlexDoom в собственную функцию в форме которая и будет толкаться после прохода основного кода.
Код: plaintext
1.
2.
3.
...
основной код
..
thisform.myfunction()
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033661
GermanGM
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
AlexDoom, изменить стандартные надписи в кнопках MESSAGEBOX() нельзя. Создайте модальную форму с двумя кнопками, имитирующую MESSAGEBOX().
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033680
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всё понял, да вот тока не разу не размещал функцию на форме, не могу найти как добавить функцию в форму
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033735
Dag
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Меню Form->New Method
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033834
Tohan_ORA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Tohan_ORA
Вариант AlexDoom
Очепятался ... :-)
Вариант GermanGM.
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033865
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Всем спасибо, всё работает!
...
Рейтинг: 0 / 0
Выбор одного из двух
    #36033866
AlexDoom
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Tohan_ORA,
)) Ничего я понял )
...
Рейтинг: 0 / 0
15 сообщений из 15, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Выбор одного из двух
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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