TopPicLogo TopPicText

MsgBox - Различные сообщения пользователю

Сообщение критическое (1 кнопка)

Dim Msg As String, Style As Integer, Title As String, Response As Integer
    Msg = "Перегрев процессора у пользователя !!!" & vbCrLf & _
    "Немедленно выключайте компьютер и отдохните 30 минут!"
    Style = vbOKOnly + vbCritical + vbDefaultButton1 
    Title = "Внимание!"
    Response = MsgBox(Msg, Style, Title)
        If Response = vbOK Then
            Application.Quit
        End If

Или проще:

    If Dir(Me!txtSRSFile) = "" Then
        MsgBox "Файл исходных данных не обнаружен!", vbCritical, "Нет файла!"
        Me!txtSRSFile.SetFocus
        Exit Sub
    End If



Вопрос (Yes - No)

'Запрос поддтверждения удаления записи при ответе НЕТ - остановка
    If MsgBox("Действительно удалить ???", _
        vbYesNo + vbCritical + vbDefaultButton1, _
        "Удаление данных") = vbNo Then Exit Sub
'Удаление ....


Сообщение предупреждающие (OK-Cancel)

Dim intResponse As Integer 'Принимает ответ пользователя

'Вывод предупреждения - OK и ОТМЕНА

    intResponse = MsgBox("Вы действительно собираетесь?", _
        vbOKCancel + vbExclamation + vbDefaultButton2, "Предупреждение")

'Обработка ответа пользователя

    Select Case intResponse
        Case vbOK
            MsgBox "Была нажата кнопка OK", vbInformation, "Ответ Пользователя"
            '… Инструкции

        Case vbCancel
            MsgBox "Была нажата кнопка ОТМЕНА", vbInformation, "Ответ Пользователя"
            '… Инструкции

    End Select

Запрос данных от Пользователя:
Выводит окно для ввода данных пользователем, со значением по умолчанию "N/D" (нет данных)

Dim val As Variant
Dim Message  As String, Title  As String, Default As String
    Message = "Ввведите Любое Значение"
    Title = "Запрос данных"
    Default = "N/D" 'Значение по умолчанию
    val = InputBox(Message, Title, Default)
    MsgBox "Пользователь ввел: " & val

Назад ToTop
L.E. 05.07.2015
Рейтинг@Mail.ru