Início
Convidad 28/2/2012, 22:29A função Confirmar tem o objetivo de diminuir o trabalho de digitação de parâmetros em CaixasDeMensagem (MsgBox) de confirmação.
Ela é uma MsgBox previamente parametrizada, e vc pode personalizar e criar variações.
Faz uma pergunta ao usuário e retorna True se a resposta for Sim, e False se a resposta for Não.
Cole o código abaixo num módulo global usado para funções ou num novo módulo.
Public Function Confirmar(sMensagem As String) As Boolean
Dim intResp As Integer
intResp = MsgBox(sMensagem, vbYesNo + vbQuestion, "Confirmação")
If intResp = vbYes Then
Confirmar = True
Else
Confirmar = False
End If
End Function
Usando a função:
If Confirmar("Mensagem ao usuário") Then
ou
If Not Confirmar("Mensagem ao usuário") Then
