Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

VBA-Begriff: Declare-Anweisung (Beispiel)

In diesem Beispiel wird die Verwendung der Declare-Anweisung auf Modulebene eines Standardmoduls gezeigt, um einen Verweis auf eine externe Prozedur in einer Dynamic Link Library (DLL) oder Macintosh-Code-Ressource zu deklarieren. Sie können Declare-Anweisungen in Klassenmodulen angeben, wenn die Declare-Anweisungen das Attribut Private haben.

' Code für Microsoft Windows (16-Bit):
Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
' Signal1 ist ein Alias für den Prozedurnamen.
Declare Sub MessageBeep Lib "User" Alias "Signal1"(ByVal N As Integer)
' Laufende Nummer in Alias-Abschnitt zum Aufruf von GetWinFlags
' verwenden.
Declare Function GetWinFlags Lib "Kernel" Alias "#132"() As Long

' Geben Sie in 32-Bit Microsoft Windows-Systemen nicht die Bibliothek 
' USER.DLL an, sondern USER32.DLL. Mit bedingter Kompilierung können 
' Sie Code schreiben, der sowohl unter Win32 als auch unter Win16 
' ausgeführt werden kann.
#If Win32 Then
    Declare Sub MessageBeep Lib "User32" (ByVal N As Long)
#Else
    Declare Sub MessageBeep Lib "User" (ByVal N As Integer)
#End If

' Auf dem Macintosh:
Declare Sub MessageAlert Lib "Hd1:Warnung1" Alias "Warnung1" (ByVal N _
As Integer)
' Code-Ressource in Alias-Abschnitt verwenden.
Declare Sub MessageAlert Lib "Hd1:Warnung1" Alias "XTST$Warnung1" _
(ByVal N As Integer)

' Wenn der Typbezeichner der Code-Ressource nur 3 Zeichen hat, müssen
' Sie ein Leerzeichen an der Stelle stehen lassen, an der das letzte
' Zeichen normalerweise stehen würde.
Declare Sub MessageAlert Lib "Hd1:EineWarnung" Alias "COD _
$EineWarnung" (ByVal N As Integer)