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
|
