A função MsgBox existe no Visual Basic 6.0 e Visual Basic.NET . Em ambas as versões , ele fornece uma maneira simples para o programador para exibir uma mensagem de texto e incluir opções específicas para resposta do usuário. Essas opções incluem botões que dizem " OK" ou "Sim", "Cancelar ", " AbortRetryIgnore ", bem como ícones de avisos ou informações. O MsgBox também pode exibir um link para um arquivo de ajuda. Formulário Exemplo
Escrever um programa muito curto Visual Basic demonstra o uso da função MsgBox. O exemplo aqui mostra como o programador pode causar uma variedade de acções a ocorrer , dependendo da resposta de um utilizador . Invocando o MsgBox pode lidar com erros críticos , simplesmente alertar o usuário sobre algo, ou deixar a pessoa decidir se quer continue.To ver isso em ação , abra o software Visual Basic 6.0 ou Visual Basic.NET . No Visual Basic , crie um novo programa, clicando em "Arquivo ". Selecione "Novo projecto" a partir da lista e um " Standard EXE " da lista de modelos para baixo. Em Visual Basic.NET ou Visual Basic 2008 Express Edition, criar um novo projeto da mesma maneira , mas escolha a opção " Windows Forms Application " Criar um botão de comando e três rótulos no formulário , clicando e arrastando essas ferramentas da caixa de ferramentas . Clique em cada etiqueta na caixa de Propriedades no certo ao usar o modo Design e exclua o texto Legenda. Apenas para fazer o exemplo do usuário um pouco mais amigável , alterar a legenda botão de comando na lista de propriedades para "Show Me ". O formulário deverá ser parecido com a imagem aqui.
Código Exemplo
Visual Basic 6 , clique em " Exibir" no menu e escolha a opção " Código" no menu suspenso lista. Digite os seguintes comandos exatamente como mostrado abaixo. No Visual Basic.NET , pressionando " F7 " fará com que a exibição de código . NOTA : A interface do Visual Basic insere automaticamente o controle sobre algumas dessas linhas que não são exibidos corretamente neste artigo. Não se preocupe com isso. A imagem incluída mostra o caminho a codificação será exibido no software.
Private Sub Command1_Click () Dim Msg , Style, Title, ResponseMsg = " Você quer continuar?" Style = vbAbortRetryIgnore + vbCritical + vbDefaultButton2 ' definir buttons.Title = Response " MsgBox demonstração " = MsgBox ( Msg , Style, Title) Se resposta = vbAbort ThenLabel1.Caption = "Você não deveria ter feito isso!" ElseIf resposta = vbRetry ThenLabel2.Caption = "Repetir tudo que você quer , nada vai dar certo " ! " Realizar algum action.Else : Label3.Caption =" Essa é a resposta certa! " MsgBox (" Pressione qualquer tecla para terminar esta ") Se vbOK ThenEndEnd IfEnd IfEnd Sub
Pressionando " F5 " em qualquer versão será executado o programa e demonstrar a MsgBox como criado . Dependendo das necessidades da aplicação , em vez de ter mensagens aparecem , o programa pode ter ocorrer ações como a abertura de novas janelas , provocando procedimentos de correção de erro, encerrar o programa ou uma série de coisas que são possíveis dentro do programa.