[CENTER]
Willkommen zu Meinen 3 Tutorial 
[/CENTER]
[CENTER]Heute möchte Ich euch zeigen wie Mann Text in die dll
[/CENTER]
[CENTER]Laden tut, und wie Mann denn Text dann in der Form abfangen kann
[/CENTER]
- Dll Schreiben
- Exe Schreiben
Vorteile:
http://msdn.microsoft.com/de-de/library/dtba4t8b(VS.80).aspx
1.
Als erstes Startet ihr ein Neues AktiveX-Dll Projekt (Sieht Mann im 1 AktiveX-Dll Tutorial)
Jetzt macht ihr unter dem „Projekt Explorer“ Rechtsklick auf „Projekt1 (Projekt1)“
Und dann auf „Eigenschaften von Projekt1“, dort gebt ihr unter
Projektname „MathFuncDll“ ein!
Sonst würde es Später zu einen Namens Konflikt kommen, und das wollen wir ja nicht 
So das ClassModule (Class1) Benennen wir um in „Math“, und in das ClassModule schreiben wir
Visual Basic: [code]
Public Function Laden(ByVal Path As String) As String
Dim Input_data As String 'eine Variable erstellen
Open Path For Input As #1 'Hier Öffnen wir den phad den wir von der form übergeben bekommen.
Input_data = "" 'Hier Leeren wir die variable
While Not EOF(1) 'Wenn du noch nicht am ende der Datei bist dann lade weiter
Line Input #1, Input_data 'Jede reihe der textdatei in Input_data Schreiben
Laden = Input_data & vbCrLf 'Hier sagen wir Laden = Input_data ist
Wend 'das weis jeder (Hoffentlich )
Close #1 'hier schließen wir das was wir oben geöffnet haben
End Function[/code]
So jetzt nur noch die Datei auf den Desktop als „MathFuncDll.dll“ Abspeichern und schon können wir mit der Exe weiter machen.
2. So nun kommen wir zu der Exe, Erstellt also ein Standard Exe und folgenden Sachen Also erstes erstellt mal ein Textfeld & 1 Button
Die Eigenschaften von der Textbox müssen so aussehen:Multiline = TrueScrollbars = 3 – Beides
Und die Caption von den Button nennt ihr Laden
Fügt noch den Code Hinzu!
Visual Basic: [code]
Option Explicit
Dim Dll As MathFuncDll.Math
Private Sub Command1_Click()
Set Dll = New MathFuncDll.Math
cdl.ShowOpen
If cdl.FileName <> "" Then
Text1.Text = Dll.Laden(cdl.FileName)
End If
End Sub
[/code]
Jetzt müssen wir noch unsere Dll unter verweise Hinzufügen!
Geht dazu oben unter „Projekt“ und dann auf verweise.
Klickt jetzt wieder auf Durchsuchen und sucht euch eure Dll raus Klickt dann auf Öffnen.Aber noch sind wir nicht Fertig , wir müssen schließlich noch das CommondialogAuf die form bringen. Also macht wieder Rechtsklick auf eure Werkzeuge
und Klicken anschließend auf Komponenten
Dann machen wir noch einen Haken bei "Microsoft Common Dialog Control 6.0"
Dann Klicken wir auf Übernehmen, und ziehen das Common Dialog auf unsere Form, und
Benennen das "CommonDialog1" um in "cdl".
So jetzt nur noch das Projekt auf euren Desktop Speichern und Fun haben mit den Dll’s
Tipp: Die Dll muss immer in gleichen Verzeichnis wie die Exe sein, sonst Funktioniert es nicht ^^
Mit freundlichen Grüßen Daniel Igoe
Registrieren
Login
