Visual Basic Forum

igoe · Gast

[CENTER]Willkommen zu Meinen 3 Tutorial Very Happy

[/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 Wink

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 Very Happy

)
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 Wink

, 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
_________________

ZiuX · « Moderator » Anmeldedatum: 02.05.2008 Beiträge: 160

Sehr schön erklärt alles, aber vllt schreibst du noch dazu, was das jetzt für Vorteile hat.

lg mkm
_________________
ziux[ät]jabber.ccc.de
Z1uX.cn

igoe · Gast

Vorteile sind jetzt oben drin Wink

ZiG · Überflieger Anmeldedatum: 16.04.2008 Beiträge: 421

Thx, gut bebildertes tutorial wo ich auch noch wiedermal was lernen kann.

Weiter so, ZiG
_________________

igoe · Gast

Ich Denke ich werde noch einen 3ten teil raus bringen, wo dann so ziemlich alles Erklärt ist.

Mfg