Takenoff Labs » エラー処理のコードでプロシージャ名を表示する方法

[Notes/Domino] エラー処理のコードでプロシージャ名を表示する方法

エラーが発生した場合、どのプロシージャのどの行でエラーが発生しているかが解れば、ずいぶんとトラブルシューティングが楽になるかと思います。が、エラー処理コードで、「どの行で」エラーが発生したかを表示するのは簡単でも、「どのプロシージャで」を表示する方法は、あまり知られていないかもしれません（けっこうプロシージャ名を直書きしているコードを見かけるので）。

このような場合、GetThreadInfo を使用すると簡単にプロシージャ名を表示できます。

（例）

Sub Initialize
	Dim a As Integer, b As Integer
	
	On Error Goto ERR_CASE
	
	a = 1
	b = 0
	Msgbox Cstr(a/b)
	Exit Sub
	
ERR_CASE:
	Msgbox "エラーが発生しました。" & Chr(10) & Chr(10) & _
	"プロプロシージャ：" & Chr(9) & Getthreadinfo(1) & Chr(10) & _
	"エラー行番号：" & Chr(9) & Erl & Chr(10) & _
	"エラー内容：" & Chr(9) & Error$, 16, "エラー"
	Exit Sub
End Sub

上記コードを実行すると、以下のように表示されます。