VBScript - caixas de diálogo

O que é uma caixa de diálogo?

O VBScript permite que os desenvolvedores interajam com o usuário de maneira eficaz. Pode ser uma caixa de mensagem para exibir uma mensagem a um usuário ou uma caixa de entrada com a qual o usuário pode inserir os valores.

Função VBScript MsgBox

A função MsgBox exibe uma caixa de mensagem e espera que o usuário clique em um botão e, em seguida, uma ação é executada com base no botão clicado pelo usuário.

Sintaxe

MsgBox(prompt[,buttons][,title][,helpfile,context])

Descrição do Parâmetro

Prompt- Um parâmetro obrigatório. Um String que é exibido como uma mensagem na caixa de diálogo. O comprimento máximo do prompt é de aproximadamente 1.024 caracteres. Se a mensagem se estender para mais de uma linha, então podemos separar as linhas usando um caractere de retorno de carro (Chr (13)) ou um caractere de alimentação de linha (Chr (10)) entre cada linha.
buttons- Um parâmetro opcional. Uma expressão numérica que especifica o tipo de botões a serem exibidos, o estilo do ícone a ser usado, a identidade do botão padrão e a modalidade da caixa de mensagem. Se deixado em branco, o valor padrão para os botões é 0.
Title- Um parâmetro opcional. Uma expressão String exibida na barra de título da caixa de diálogo. Se o título for deixado em branco, o nome do aplicativo será colocado na barra de título.
helpfile- Um parâmetro opcional. Uma expressão String que identifica o arquivo de Ajuda a ser usado para fornecer ajuda contextual para a caixa de diálogo.
context- Um parâmetro opcional. Uma expressão numérica que identifica o número do contexto da Ajuda atribuído pelo autor da Ajuda ao tópico da Ajuda apropriado. Se o contexto for fornecido, o arquivo de ajuda também deve ser fornecido.

o Buttons parâmetro pode assumir qualquer um dos seguintes valores -

0 vbOKOnly Exibe apenas o botão OK.
1 vbOKCancel Exibe os botões OK e Cancelar.
2 vbAbortRetryIgnore Exibe os botões Abortar, Repetir e Ignorar.
3 vbYesNoCancel Exibe os botões Sim, Não e Cancelar.
4 vbYesNo Exibe os botões Sim e Não.
5 vbRetryCancel Exibe os botões Repetir e Cancelar.
16 vbCritical Exibe o ícone de mensagem crítica.
32 vbQuestion Exibe o ícone de Consulta de Aviso.
48 vbExclamation Exibe o ícone de mensagem de aviso.
64 vbInformation Exibe o ícone de Mensagem de Informação.
0 vbDefaultButton1 O primeiro botão é o padrão.
256 vbDefaultButton2 O segundo botão é o padrão.
512 vbDefaultButton3 O terceiro botão é o padrão.
768 vbDefaultButton4 O quarto botão é o padrão.
0 vbApplicationModal Modal de aplicativo. O aplicativo atual não funcionará até que o usuário responda à caixa de mensagem.
4096 vbSystemModal Sistema modal. Todos os aplicativos não funcionarão até que o usuário responda à caixa de mensagem.

Os valores acima são divididos logicamente em quatro grupos: O primeiro grupo (0 a 5) indica os botões a serem exibidos na caixa de mensagem. O segundo grupo (16, 32, 48, 64) descreve o estilo do ícone a ser exibido, o terceiro grupo (0, 256, 512, 768) indica qual botão deve ser o padrão e o quarto grupo (0, 4096 ) determina a modalidade da caixa de mensagem.

Valores Retornados

A função MsgBox pode retornar um dos seguintes valores -

1 - vbOK - OK foi clicado
2 - vbCancel - Cancelar foi clicado
3 - vbAbort - Abort foi clicado
4 - vbRetry - Foi clicado novamente
5 - vbIgnore - Ignorar foi clicado
6 - vb Sim - Sim foi clicado
7 - vbNo - Não foi clicado

Exemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         'Message Box with just prompt message
         MsgBox("Welcome")    
           
         'Message Box with title, yes no and cancel Butttons 
         a = MsgBox("Do you like blue color?",3,"Choose options")
         ' Assume that you press No Button	
         document.write("The Value of a is " & a)
         
      </script>
   </body>
</html>

Quando o script acima é executado, a caixa de mensagem é exibida e, se você pressionar Nenhum botão, o valor de a será 7.

The Value of a is 7

Função VBScript InputBox

A função InputBox ajuda o usuário a obter os valores do usuário. Após inserir os valores, se o usuário clicar no botão OK ou pressionar ENTER no teclado, a função InputBox retornará o texto na caixa de texto. Se o usuário clicar no botão Cancelar, a função retornará uma string vazia ("").

Sintaxe

InputBox(prompt[,title][,default][,xpos][,ypos][,helpfile,context])

Descrição do Parâmetro

Prompt- Um parâmetro obrigatório. Um String que é exibido como uma mensagem na caixa de diálogo. O comprimento máximo do prompt é de aproximadamente 1.024 caracteres. Se a mensagem se estender para mais de uma linha, então podemos separar as linhas usando um caractere de retorno de carro (Chr (13)) ou um caractere de alimentação de linha (Chr (10)) entre cada linha.
Title- Um parâmetro opcional. Uma expressão String exibida na barra de título da caixa de diálogo. Se o título for deixado em branco, o nome do aplicativo será colocado na barra de título.
Default- Um parâmetro opcional. Um texto padrão na caixa de texto que o usuário gostaria que fosse exibido.
XPos- Um parâmetro opcional. A posição do eixo X que representa a distância do prompt do lado esquerdo da tela horizontalmente. Se deixado em branco, a caixa de entrada é centralizada horizontalmente.
YPos- Um parâmetro opcional. A posição do eixo Y que representa a distância do prompt do lado esquerdo da tela verticalmente. Se for deixado em branco, a caixa de entrada será centralizada verticalmente.
helpfile- Um parâmetro opcional. Uma expressão String que identifica o arquivo de Ajuda a ser usado para fornecer Ajuda contextual para a caixa de diálogo.
context- Um parâmetro opcional. Uma expressão numérica que identifica o número do contexto da Ajuda atribuído pelo autor da Ajuda ao tópico da Ajuda apropriado. Se o contexto for fornecido, o arquivo de ajuda também deve ser fornecido.

Exemplo

<!DOCTYPE html>
<html>
   <body>
      <script language = "vbscript" type = "text/vbscript">
         ' Input Box with only Prompt
         InputBox("Enter a number")    
        
         ' Input Box with a Title
         a = InputBox("Enter a Number","Enter Value")
         msgbox a
        
         ' Input Box with a Prompt,Title and Default value
         a = InputBox("Enter a Number","Enter Value",123)
         msgbox a
        
         ' Input Box with a Prompt,Title,Default and XPos
         a = InputBox("Enter your name","Enter Value",123,700)
         msgbox a
        
         ' Input Box with a Prompt,Title and Default and YPos
         a = InputBox("Enter your name","Enter Value",123,,500)
         msgbox a
         
      </script>
   </body>
</html>

Quando o script acima é executado, a caixa de entrada é exibida e exibe o valor inserido pelo usuário.