Die Community zu .NET und Classic VB.

Startseite / Tipps / VB 5/6-Tipp 0190: API-Fehlermeldungen ausgeben

VB 5/6-Tipp 0190: API-Fehlermeldungen ausgeben

 von ActiveVB

Schwierigkeitsgrad:

Verwendete API-Aufrufe: FormatMessageA (FormatMessage), RegOpenKeyExA (RegOpenKeyEx)

Download: Download des Beispielprojektes [2,04 KB]

'Dieser Quellcode stammt von http://www.activevb.de
'und kann frei verwendet werden. Für eventuelle Schäden
'wird nicht gehaftet.

'Um Fehler oder Fragen zu klären, nutzen Sie bitte unser Forum.
'Ansonsten viel Spaß und Erfolg mit diesem Source!

'------------- Anfang Projektdatei Project1.vbp -------------
'--------- Anfang Formular "Form1" alias Form1.frm  ---------
' Steuerelement: Schaltfläche "Command1"
' Steuerelement: Beschriftungsfeld "Label1"

Option Explicit

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 RegOpenKeyEx Lib "advapi32.dll" _
        Alias "RegOpenKeyExA" (ByVal hKey As Long, ByVal _
        lpSubKey As String, ByVal ulOptions As Long, _
        ByVal samDesired As Long, phkResult As Long) As Long
        
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000

Private Sub Command1_Click()
  Dim Err&, Result&, Buffer$
  
    'Hier wird ein Fehler erzeugt!
    Err = RegOpenKeyEx(0, 0, 0, 0, 0)
    
    Buffer = Space$(256)
    Result = FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM, 0, Err, _
                           0&, Buffer, Len(Buffer), ByVal 0)
    Label1.Caption = Left$(Buffer, Result)
End Sub
'---------- Ende Formular "Form1" alias Form1.frm  ----------
'-------------- Ende Projektdatei Project1.vbp --------------