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
�
|
