日本国产亚洲-日本国产一区-日本国产一区二区三区-日本韩国欧美一区-日本韩国欧美在线-日本韩国欧美在线观看

當前位置:雨林木風下載站 > 技術開發教程 > 詳細頁面

編程獲得系統出錯信息提示

編程獲得系統出錯信息提示

更新時間:2022-05-14 文章作者:未知 信息來源:網絡 閱讀次數:

     很多編程愛好者在VB的API編程中經常遇到API調用中的錯誤代碼(Error Code,在API調用中
遇到錯誤時使用GetLastError函數可以得到)。但是很多的時候錯誤代碼并沒有多大用處,因為
你并不知道代碼所代表的含義。而實際上,在Windows中為每個錯誤碼提供了一個錯誤提示,而
且適應不同的語言版本(既如果你使用中文版Windows,提示也是中文的)。只要通過API編程就
可以獲得詳細的錯誤提示。
    下面通過程序來介紹,運行下面的程序,首先要在Form中加入一個ListBox和CommandButton
在將下面的代碼加入到form的代碼窗口中。
Private Declare Function FormatMessage Lib "kernel32" _
        Alias "FormatMessageA" (ByVal dwFlags As Long, _
        lpSource As Any, ByVal dwMessageId As Long, _
        ByVal dwLanguageId As Long, ByVal lpBuffer _
        As String, ByVal nSize As Long, Arguments As _
        Long) As Long
Private Declare Function GetLastError Lib "kernel32" _
        () As Long
Private Declare Function CloseHandle Lib "kernel32" _
        (ByVal hObject As Long) As Long

Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200

Private Sub Command1_Click()
    Dim ErrID As Long
    Dim astr As String
    Dim bstr As String
    Dim l As Long
     
    astr = String$(256, 20)
    '獲得具體的錯誤信息
    For ErrID = 0 To 8191
        l = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM Or _
            FORMAT_MESSAGE_IGNORE_INSERTS, 0&, ErrID, 0&, _
            astr, Len(astr), ByVal 0)
        If l Then
            bstr = Left$(astr, InStr(astr, Chr(10)) - 2)
            '將錯誤信息加入列表框
            List1.AddItem Str(ErrID) + "   " + bstr
        End If
    Next ErrID
End Sub
    運行程序,點擊Command1,錯誤代碼和向對應的錯誤提示信息就全部列在ListBox中了。
    以上程序在Win95,VB5.0下運行通過。

溫馨提示:喜歡本站的話,請收藏一下本站!

本類教程下載

系統下載排行

主站蜘蛛池模板: 欧美日韩视频在线观看高清免费网站 | 一级成人毛片免费观看欧美 | 日韩视频在线一区 | 2022国产福利在线观看 | 日本乱人伦毛片 | 四虎最新入口 | 欧美乱大交xxxxx按摩v | 男人精品一线视频在线观看 | 99精品视频看国产啪视频 | 天天干视频网 | 伊伊色| 国产成人精品视频午夜 | 综合色久七七综合七七蜜芽 | 国产精品久久久久国产精品 | 一级毛片日韩a欧美最爱 | 欧美乱仑| 手机看片国产精品 | 日本一本一道久久香蕉免费 | 高清国产欧美一v精品 | 久久综合综合久久97色 | 日韩欧美一区二区精品久久 | 狠狠色伊人亚洲综合网站l 狠狠色综合网站 | 日本中文字幕在线看 | 欧美 日韩 国产 成人 在线观看 | 国产嫩草影院 | 国产精品12p | 欧美久久天天综合香蕉伊 | 日本黄色福利视频 | 免费精品视频在线 | 夜夜夜爽爽爽久久久 | www四虎影院| 精品国产欧美一区二区三区成人 | 久久99精品视免费看 | 91精品国产91久久久久青草 | 久久青青草原精品影院 | 日韩欧美亚洲国产高清在线 | 欧美成人另类人妖 | 精品午夜寂寞影院在线观看 | 手机免费久久久久影院 | 欧美亚洲国产精品久久 | 久久乐最新免费观看地址 |