ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про massagebox
3 сообщений из 3, страница 1 из 1
Про massagebox
    #37564526
Orken
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Orken
Участник
Люди в VisualBasic
PrivateSubCommand_Click()
If MsgBox("Вы уверены?",vbYesNo,"","",0)=vbNo Then
Action=vbDataActionCancel
ExitSub
Else
End & выход из форума
End if
End
End Sub


FoxPro MESSAGEBOX(cMessageText [, nDialogBoxType [, cTitleBarText]])

нашел и все что к чему зделайте плз помогите
...
Рейтинг: 0 / 0
08.12.2011, 10:26
| Ответить | Цитировать | Написать  
Про massagebox
    #37564528
Dima T
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Dima T
Участник
HELP: MessageBox()
...
Рейтинг: 0 / 0
08.12.2011, 10:28
| Ответить | Цитировать | Написать  
Про massagebox
    #37564620
Orken
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Orken
Участник
eMessageTitle = 'My Application'
eMessageText = 'Âû õîòèòå âûòè?'
nDialogType = 4 + 32 + 256
* 4 = Yes and No buttons
* 16 = Stop sign icon
* 256 = Second button is default
nAnswer = MESSAGEBOX(eMessageText, nDialogType, eMessageTitle)
DO CASE
CASE nAnswer = 6
THISFORM.RELEASE
CASE nAnswer = 7
WAIT WINDOW 'You chose No'
ENDCASE



нашел и еще кто ищет
...
Рейтинг: 0 / 0
08.12.2011, 11:10
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про massagebox
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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