Saudações!
É chato ter que definir todos aqueles parâmetros qdo usamos caixas de mensagem.
Uma ideia pra pular a burocracia é usar algo como isto:
Em um módulo novo ou de funções:
' título da MsgBox (ou para uso onde quiser)
Global Const NomeAplic = "NomeDaSuaAplicação"
Public Function Info(strMensagem As String)
MsgBox strMensagem, vbExclamation, NomeAplic
End Function
Depois fica mais fácil: Info "Digite a mensagem entre aspas"
Dá pra fazer n variações!
Abraço!
É chato ter que definir todos aqueles parâmetros qdo usamos caixas de mensagem.
Uma ideia pra pular a burocracia é usar algo como isto:
Em um módulo novo ou de funções:
' título da MsgBox (ou para uso onde quiser)
Global Const NomeAplic = "NomeDaSuaAplicação"
Public Function Info(strMensagem As String)
MsgBox strMensagem, vbExclamation, NomeAplic
End Function
Depois fica mais fácil: Info "Digite a mensagem entre aspas"
Dá pra fazer n variações!
Abraço!
Última edição por norbs em 7/12/2011, 21:59, editado 1 vez(es)