報告函式庫內所定義使用者錯誤

  1. 定義使用者錯誤。
    此時,不僅需定義訊息,也務必定義標籤。

  2. 建立使用者錯誤報告用函數。

    Function RaiseError(errLabel$ As String)
       Integer errNum
    
       errNum = UserErrorNumber(errLabel$)    ' Get user error number from label
       If errNum <> -1 Then
          Error errNum
       EndIf
    Fend
    

    如需UserErrorNumber、Error的相關資訊,請參閱以下手冊。

    「SPEL+語言參考」

  3. 實施錯誤處理。
    函式庫用專案的程式碼內錯誤處理呼叫上述使用者錯誤報告用函數。

    Function SomeInternalLibraryFunction
       ' Error occurs so throw an error
       RaiseError("MyLib_Err_SomeError")
    Fend
    
  4. 依照下述步驟建立函式庫。

    建立函式庫

  5. 使用函式庫時,將上述步驟建立的函式庫登錄至專案後,從使用者錯誤結尾開始,依次登錄至空閒的錯誤編號。

    與建立函式庫時的錯誤編號不同, 在函式庫側依據使用者錯誤標籤報告錯誤,因此顯示正確訊息。