スクリプトコントロールのエラーオブジェクトの使用方法

文書番号: 184742

機械翻訳版の免責を確認する

英語と日本語を並べて表示する

すべて展開する | すべて折りたたむ

概要

ここでは、スクリプトについて説明コントロールエラーオブジェクトのプロパティと用途を説明するサンプルコードが用意されています。

先頭へ戻る | フィードバック

詳細

スクリプトコントロールエラーオブジェクトをホストに豊富な情報を提供します。アプリケーションスクリプトエラーについて説明します。次のプロパティします。サポートされています。

   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.

* Text プロパティ実行時エラーの場合は、何も表示されませんが、データを保持コンパイルエラーが発生します。

** VBScript の Source プロパティをいずれかの Microsoft VBScript です。コンパイルエラーまたは Microsoft VBScript 実行時エラー。場合は、別スクリプト言語を使用する場合は、ソースが異なる場合があります。

*** HelpFile と HelpContext プロパティユーザー以外は空白になっています。エラーが発生します。

重要: Microsoft プログラミング例としてを提供するだけ、明示または黙示の保証もないしますが、あります。市場性およびへの適合性の黙示の保証、特定の目的。この資料に精通していること前提としています、プログラミング言語を使用していると作成に使用するツールとプロシージャをデバッグします。

ステップバイステップの例

Visual Basic では、(デフォルトでは Form1 が作成されます)、新しいプロジェクトを作成します。
プロジェクト] メニューの [コンポーネント] をクリックし、[Microsoft] を選択スクリプトコントロール 1.0」チェックボックス。
スクリプトコントロール (ScriptControl1)、テキストボックス (テキスト 1) を追加し、Form1 にコマンドボタン (Command1)。複数行プロパティを設定、テキストボックスには TRUE です。使いやすくするため、テキストのサイズを変更して、60 文字の 5 行に対応しています。

次のコードを 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

Form1 を実行し、[イミディエイト] ウィンドウを開きます。

次のスクリプトは、テキストボックスに入力します。

      Sub Test
        MsgBox == "Hello World"
        Err.Raise 555, "Test", "Custom Error", "test.hlp", 5
      End Sub

コマンドボタンをクリックします。その結果、次のエラーが表示されます(実際のバージョンによって異なる場合がありますデバッグウィンドウスクリプトコントロール) を使用しています。
```
      Number:       1002
      Source:       Microsoft VBScript compilation error
      Desc:         Syntax error
      Line: 2       Column: 16
      Text:         MsgBox == "Hello World"
      Help File:

      Help Context:  0

						
```
削除する、MsgBox 行を = し、コマンドボタンをもう一度クリックします。
メッセージボックスが表示され、「555 カスタムエラー」のエラー、します。[デバッグ] ウィンドウ以下のとおりです。
```
      Number:       555
      Source:       Test
      Desc:         Custom Error
      Line: 3       Column: 8
      Text:
      Help File:    test.hlp
      Help Context: 5

						
```
注: 列の番号かどうかによって異なる場合があります、カットアンドペーストコードまたは手動でなしの先頭のスペースをすべて入力します。

先頭へ戻る | フィードバック

プロパティ

文書番号: 184742 - 最終更新日: 2011年7月6日 - リビジョン: 5.0

kbhowto kbscript kbvbp kbgrpdsvb kbmt KB184742 KbMtja

機械翻訳の免責

重要: このサポート技術情報 (以下「KB」) は、翻訳者による翻訳の代わりに、マイクロソフト機械翻訳システムによって翻訳されたものです。マイクロソフトは、お客様に、マイクロソフトが提供している全ての KB を日本語でご利用いただけるように、翻訳者による翻訳 KB に加え機械翻訳 KB も提供しています。しかしながら、機械翻訳の品質は翻訳者による翻訳ほど十分ではありません。誤訳や、文法、言葉使い、その他、たとえば日本語を母国語としない方が日本語を話すときに間違えるようなミスを含んでいる可能性があります。マイクロソフトは、機械翻訳の品質、及び KB の内容の誤訳やお客様が KB を利用されたことによって生じた直接または間接的な問題や損害については、いかなる責任も負わないものとします。マイクロソフトは、機械翻訳システムの改善を継続的に行っています。

英語版 KB：184742

(http://support.microsoft.com/kb/184742/en-us/ )

Microsoft Knowledge Base の免責: Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。

先頭へ戻る | フィードバック