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

| Blog Office VBA | Blog Excel | Blog Access |

+ de 100.000 VISITAS

Acesse: http://goo.gl/0v6AO   

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