VBA Tips - Use Caixas de Mensagens melhores com botões e ícones adicionais - Enhance Message Boxes with additional Buttons and Icons

A função MsgBox contém um argumento opcional, Buttons, que nos permite colocar botões adicionais, além de ícones nas nossas caixas de mensagens, especificando um valor VbMsgBoxStyle

Para obter uma lista de valores VbMsgBoxStyle, consulte o Object Browser VBA.

Aqui está um exemplo de como colocar botões adicionais e ícones nas suas caixas de mensagens:

Public Sub CustomMessageBoxes()

    ' Purpose: Demonstrates how to work with custom message boxes.

    Dim iResponse As Integer
    
    MsgBox Prompt:="Abort/Retry/Ignore (Ignore Default)", _
        Buttons:=vbAbortRetryIgnore + vbDefaultButton3

    MsgBox Prompt:="Critical", Buttons:=vbCritical

    MsgBox Prompt:="Exclamation", Buttons:=vbExclamation

    MsgBox Prompt:="Information", Buttons:=vbInformation

    MsgBox Prompt:="OK/Cancel", Buttons:=vbOKCancel

    MsgBox Prompt:="Question", Buttons:=vbQuestion

    MsgBox Prompt:="Retry/Cancel", Buttons:=vbRetryCancel

    MsgBox Prompt:="Yes/No", Buttons:=vbYesNo

    MsgBox Prompt:="Yes/No with Information", _
        Buttons:=vbYesNo + vbInformation

    MsgBox Prompt:="Yes/No with Critical and Help", _
        Buttons:=vbYesNo + vbCritical + vbMsgBoxHelpButton

    ' Determina cada botão selecionado pelo usuário.
    Let iResponse = MsgBox(Prompt:="Click Yes or No.", _
        Buttons:=vbYesNo + vbCritical)

    Select Case iResponse
        Case vbYes
            MsgBox Prompt:="You clicked Yes."
        Case vbNo
            MsgBox Prompt:="You clicked No."
    End Select

End Sub


Tags: VBA, Tips, enhance, message, boxes, additional, buttons, Icons, caixa de mensagens, ícones, botões, VBA Object Browser, VbMsgBoxStyle, VbMsgBoxStyle



Nenhum comentário:

Postar um comentário

diHITT - Notícias