<< 前へ        次へ >>

ID : 110

Resume

機能

エラー処理ルーチンを終了し、指定した行から実行が再開されます。

構文

Resume 処理

指定項目

処理
指定しない場合：エラーの起こった行を実行します。
"Next"を指定した場合：エラーの起こった次の行を実行します。
<ラベル>を指定した場合：<ラベル>で指定した行を実行します。

解説

エラー処理ルーチンを終了し、処理で指定した行から実行が再開されます。

エラー処理ルーチン以外では使用できません。

On Errorステートメントと組み合わせて"On Error Resume Next"と使うことができます。"On Error"参照

関連項目

On Error、 エラー処理の例

注意事項

-

用例

'!TITLE "デンソーロボットプログラム"
Sub Sample_Resume

  On Error GoTo LABEL1

  Dim aaa As Integer
  Dim bbb As Integer

  aaa = 0

  ' 0除算によるエラー発生のためLABEL1へ移動
  bbb = 10 / aaa

  ' メッセージ出力ウィンドウに10を表示
  PrintDbg bbb

  Exit Sub

LABEL1:

  aaa = aaa + 1

  Resume

End Sub

ID : 110

<< 前へ        次へ >>