Hi

Code :

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32

Public Class BroichTab     Public TaOrt, TaName As String     Public Basis As String = " C:\ "     Public TaVz As String = "" & Basis & "" & TaOrt & "" & TaName & ""     Public Löschen As String     Public Function CreatTab(ByVal TaOrt, ByVal TaName, ByVal Löschen)         If My.Computer.FileSystem.DirectoryExists("" & Basis & "" & TaOrt & "") = False Then             My.Computer.FileSystem.CreateDirectory("" & Basis & "" & TaOrt & "")         End If         If My.Computer.FileSystem.DirectoryExists("" & TaVz & "") = False Then             My.Computer.FileSystem.CreateDirectory("" & TaVz & "")             My.Computer.FileSystem.WriteAllText("" & TaVz & "\" & TaName & ".ini", "Kopf", True)             My.Computer.FileSystem.WriteAllText("" & TaVz & "\Kopf.ini", "ID", True)             CreatTab = 1         Else             CreatTab = 0         End If     End Function     Public Function DeleteTab(ByVal TaOrt, ByVal TaName, ByVal Löschen)         If My.Computer.FileSystem.DirectoryExists("" & Basis & "" & TaOrt & "") = False Then             'My.Computer.FileSystem.CreateDirectory("" & Basis & "" & TaOrt & "")         End If         If My.Computer.FileSystem.DirectoryExists("" & TaVz & "") = True Then             My.Computer.FileSystem.DeleteDirectory("" & TaVz & "", FileIO.DeleteDirectoryOption.DeleteAllContents)             'My.Computer.FileSystem.WriteAllText("" & TaVz & "\" & TaName & "", "", True)             DeleteTab = 1         Else             DeleteTab = 1         End If     End Function End Class

Also ich hab eine neue Klasse hinzugefügt, dann diesen Quelltext und nun dachte ich könnte ich im nächsten Modul broichtab.creattab(x,y,z) wählen aber denkste.

Die Intellisense erkennt die eigene Klasse bietet aber nicht die Auswahl der selbst erstellten Funktionen für meine Klasse.

Was mach ich den da nur falsch?

Also zu deinem Code folgendes:

1) Verwende Properties anstatt öffentlicher Member
2) Verwende keine Umlaute im Sourcecode
3) Leerzeilen zwischen den Funktionen/Methoden

Und zu deinem Fehler:
Hast du deine Klasse instanziert?

So in etwa

Code :

1 2	Dim myObject as New BroichTab() myObject.DeleteTab(.....)

Hi

Besten danke hatte vergessen die Klasse zu instanzieren.

Rene

Bitte erfolgreich beantwortete Threads als abgeschlossen markieren. Danke.