Win32API调用错误号与信息

最新推荐文章于 2024-05-10 16:14:15 发布

原创最新推荐文章于 2024-05-10 16:14:15 发布 · 1.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#api #integer #string #function #structure #exception

应用类代码专栏收录该内容

35 篇文章

订阅专栏

本文详细探讨了在使用Win32 API过程中遇到的错误代码，如何通过错误号解析获取具体信息，包括整型错误码、字符串转换、函数调用异常以及结构体在API交互中的作用。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Author:水如烟

Namespace LzmTW.uSystem.uWindows.Win32API
     Public Class Win32ErrHelper

         Public Shared ReadOnly Property Message( ByVal errNum As Integer ) As String
             Get
                 If errNum = 0 Then Return " 操作成功完成 "

                 Return GetString(errNum)
             End Get
         End Property

         Private Shared Function GetString( ByVal errNum As Integer ) As String
             Dim collectionIndex As Integer
            collectionIndex = errNum / 1000

             Dim msg As String
             Select Case collectionIndex
                 Case 0
                    msg = ErrCollection00.GetString(errNum)
                 Case 1
                    msg = ErrCollection01.GetString(errNum)
                 Case 2
                    msg = ErrCollection02.GetString(errNum)
                 Case 3
                    msg = ErrCollection03.GetString(errNum)
                 Case 4
                    msg = ErrCollection04.GetString(errNum)
                 Case 5
                    msg = ErrCollection05.GetString(errNum)
                 Case 6
                    msg = ErrCollection06.GetString(errNum)
                 Case 7
                    msg = ErrCollection07.GetString(errNum)
                 Case 8
                    msg = ErrCollection08.GetString(errNum)
                 Case 9
                    msg = ErrCollection09.GetString(errNum)
                 Case 10
                    msg = ErrCollection10.GetString(errNum)
                 Case Else
                    msg = " 错误序号超出范围！ "
             End Select

             Return msg
         End Function

         Public Shared Function Current() As ErrMessage
             Dim msg As New ErrMessage
             With msg
                .ErrNum = System.Runtime.InteropServices.Marshal.GetLastWin32Error
                .Message = Message(.ErrNum)
             End With
             Return msg
         End Function

         Public Shared Sub ThrowExceptionIfExists()
             Dim msg As ErrMessage = Current()
             If msg.ErrNum = 0 Then Return

             Throw New Exception(msg.ToString)
         End Sub

         Public Structure ErrMessage
             Public ErrNum As Integer
             Public Message As String

             Public Overrides Function ToString() As String
                 Return String .Format( " {0} 错误号:{1} " , Message, ErrNum)
             End Function
         End Structure
     End Class
End Namespace