Como usar o objeto de erro de controle de script

Traduções deste artigo Traduções deste artigo
ID do artigo: 184742 - Exibir os produtos aos quais esse artigo se aplica.
Expandir tudo | Recolher tudo

Neste artigo

Sumário

Este artigo descreve o script de controle de propriedades do objeto Error e fornece código de exemplo que ilustra o uso.

Mais Informações

O controle de script objeto Error fornece informações detalhadas para o aplicativo host sobre erros de script. Há suporte para as seguintes propriedades:
   Property         Description
   -----------------------------------------------------------------
   Number           Error number.
   Description      Error message.
   Line             The line number the error occurred on (1 based).
   Column           The column number the error occurred on (0 based).
   Text*            The text of the line that caused the error.
   Source**         What component caused the error.
   HelpFile***      Help file name provided by the error source.
   HelpContext***   Help context provided by the error source.
				

* A propriedade Text é em branco para erros em tempo de execução, mas contém dados para erros de compilação.

** A propriedade Source para o VBScript é Microsoft VBScript compilação erro ou erro de tempo de execução Microsoft VBScript. Se uma linguagem de script diferente é usada, a fonte pode ser diferente.

*** As propriedades HelpFile e HelpContext estão em branco, exceto para erros de usuário elevado.

Importante: Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita, incluindo, mas não se limitando às garantias implícitas de comercialização e/ou adequação a uma finalidade específica. Este artigo presume que você esteja familiarizado com a linguagem de programação demonstrada e as ferramentas usadas para criar e depurar procedimentos.

Exemplo passo a passo

  1. No Visual Basic, crie um novo projeto (Form1 é criado por padrão).
  2. Clique em componentes no menu projeto e selecione a caixa de seleção "Controle de scripts da Microsoft 1.0".
  3. Adicione o controle de script (ScriptControl1), uma caixa de texto (Texto1) e um botão de comando (Command1) ao Form1. Defina a propriedade MultiLine da caixa de texto como TRUE. Para facilitar o uso, altere o tamanho do Texto1 para que ele acomoda 5 linhas com 60 caracteres.
  4. Adicione o seguinte código ao Form1:
          Private Sub Command1_Click()
            On Error Resume Next
            With ScriptControl1
              .Language = "VBScript"
              .AllowUI = True
              .AddCode Text1.Text
              .Run "Test"
            End With
            If Err Then
              MsgBox Err & " " & Error
              ListErrors ScriptControl1
            End If
          End Sub
    
          Private Sub ListErrors(S As ScriptControl)
            With S.Error
              Debug.Print "Number:", .Number
              Debug.Print "Source:", .Source
              Debug.Print "Desc:", .Description
              Debug.Print "Line: " & .Line, "Column: " & .Column
              Debug.Print "Text:", .Text
              Debug.Print "Help File:", .HelpFile
              Debug.Print "Help Context:", .HelpContext
              Debug.Print
            End With
          End Sub
    
    						
  5. Executar Form1 e abra a janela Verificação imediata.
  6. Digite o seguinte script na caixa de texto:
          Sub Test
            MsgBox == "Hello World"
            Err.Raise 555, "Test", "Custom Error", "test.hlp", 5
          End Sub
    
    						
  7. Clique no botão de comando. Como resultado, o erro seguinte aparecerá na janela (a saída real pode variar dependendo da versão do controle de script que você estiver usando):
          Number:       1002
          Source:       Microsoft VBScript compilation error
          Desc:         Syntax error
          Line: 2       Column: 16
          Text:         MsgBox == "Hello World"
          Help File:
    
          Help Context:  0
    
    						
  8. Remover o == da linha MsgBox e clique no botão de comando novamente.
  9. Aparece a MsgBox e, em seguida, o erro "Erro de personalizar 555". A janela Depurar exibirá o seguinte:
          Number:       555
          Source:       Test
          Desc:         Custom Error
          Line: 3       Column: 8
          Text:
          Help File:    test.hlp
          Help Context: 5
    
    						
    Observação: O número da coluna pode variar dependendo se você copiar e colar o código ou digite-o manualmente sem todos os espaços à esquerda.

Referências

Tópico da Ajuda do controle de script: objeto Error

Para obter informações sobre como obter o controle de script, consulte o seguinte artigo na Base de dados de Conhecimento da Microsoft:
184739: INFO: onde obter o controle de script

(c) Microsoft Corporation 1998, todos os direitos reservados. Contribuições de Malcolm Stewart, Microsoft Corporation

Propriedades

ID do artigo: 184742 - Última revisão: terça-feira, 13 de julho de 2004 - Revisão: 3.1
A informação contida neste artigo aplica-se a:
  • Microsoft Visual Basic 5.0 Learning Edition
  • Microsoft Visual Basic 6.0 Learning Edition
  • Microsoft Visual Basic 5.0 Professional Edition
  • Microsoft Visual Basic 6.0 Professional Edition
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 4.0 Standard Edition
  • Microsoft Visual Basic 4.0 Professional Edition
  • Microsoft Visual Basic 4.0 de 32 Bits Enterprise Edition
  • Microsoft Visual Basic for Applications 5.0
Palavras-chave: 
kbmt kbgrpdsvb kbhowto kbscript kbvbp KB184742 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 184742

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com