Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про massagebox / 3 сообщений из 3, страница 1 из 1
08.12.2011, 10:26
    #37564526
Orken
Orken
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про massagebox
Люди в 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:28
    #37564528
Dima T
Dima T
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про massagebox
HELP: MessageBox()
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.12.2011, 11:10
    #37564620
Orken
Orken
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Про massagebox
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
| Ответить | Цитировать | Написать  
Форумы / FoxPro, Visual FoxPro [игнор отключен] [закрыт для гостей] / Про massagebox / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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