Ja, auch mit Visual Basic ist es möglich DLL's zu erstellen.
Oft werde ich danach gefragt,
deshalb hier eine kurze Anleitung:
Die folgende DLL soll uns das Windows-Verzeichnis ausgeben.
Schritt 1
Erstellen Sie zunächst ein neues Active X DLL Projekt
Schritt 2
Das automatisch erzeugte Klassenmodul Class1 benennen
Sie um zu
WINSYSDIR
Schritt 3
Ändern Sie ggf. die Eigenschaften des Projektes,
beispielsweise, um der DLL einen Copyright hinzuzufügen.
Besonders wichtig ist das Umbenennen des
Projektes,
da es sonst zu einem Konflikt kommen kann,
wenn die DLL in ein gleichnamiges Projekt
eingebunden wird.
Vergeben Sie beispielsweise den
Projektnamen Meine_DLL
Schritt 4
Fügen Sie folgenden Code in das Klassenmodul WINSYSDIR
ein:
Private Declare Function GetWindowsDirectory Lib "KERNEL32" _
Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _
ByVal nSize As Long) As Long
Public Function WinDir() As String
Dim sDirBuf As String * 255
StrLen = GetWindowsDirectory(sDirBuf, 255)
WinDir = Left$(sDirBuf, StrLen)
End Function
Schritt 5
Kompilieren
Sie das Projekt als DLL
Schritt
6
Erstellen
Sie ein neues Projekt.
Binden Sie die erstellte DLL über "Verweise" ein
("Projekt" - "Verweise")
Schritt 7
So rufen Sie die Funktion aus der DLL auf:
Sub Form_Load()
Dim Verzeichnis As New WINSYSDIR
MsgBox Verzeichnis.WinDir
End Sub
|
