Hallo
Ich habe gestern eine DLL erstellt mit mehreren Funktionen und Subs. Diese habe ich dann in einer anderen Solution eingebunden(Verweis und Import...) und ich konnte wunderbar auf die Methoden der DLL zugreifen. Heute habe ich die DLL erweitert mit neuen Funktionen und Subs. Leider kann ich auf die neuen Methoden nicht zugreifen. Warum nicht? Ich habs schon mit Projektmappe neu erstellen und Bereinigen bei der DLL wie auch bei der anderen Solution versucht, es geht leider nicht.
Ich habe gestern eine DLL erstellt mit mehreren Funktionen und Subs. Diese habe ich dann in einer anderen Solution eingebunden(Verweis und Import...) und ich konnte wunderbar auf die Methoden der DLL zugreifen. Heute habe ich die DLL erweitert mit neuen Funktionen und Subs. Leider kann ich auf die neuen Methoden nicht zugreifen. Warum nicht? Ich habs schon mit Projektmappe neu erstellen und Bereinigen bei der DLL wie auch bei der anderen Solution versucht, es geht leider nicht.
Quellcode
-
- Imports Allgemein.Allgemein
- Module Module1
- Sub Main()
- Dim myDll As New dtFunctions
- Dim cBla As bla = New bla
- Dim sTest As String = "Arno ist ein Held!!!"
- myDll.checkFolderExist("", False, sTest)
- myDll.log("jetzt geht es")
- myDll.Test()
- myDll.xyz()
- MsgBox(sTest)
- cBla.Kalle()
- 'myDll.arno() FEHLER
- End Sub
- End Module
Quellcode
-
- Imports System.IO
- Namespace Allgemein
- Public Class dtFunctions
- Dim set1 As DataSet = New DataSet("office")
- Dim table1 As DataTable = New DataTable("patients")
- Dim table2 As DataTable = New DataTable("medications")
- Dim bConfigLogging As Boolean = True
- Dim sClassName As String = Me.GetType.FullName
- Public Function neueFunction()
- Dim i As Integer = 99
- Return i
- End Function
- Public Function checkFolderExist(ByVal sFolder As String, ByVal bCreate As Boolean, ByRef sLogTest As String) As Boolean
- Try
- If sFolder.Length = 0 Then
- sLogTest = "Kein Ordername übergeben (checkFolderExist) "
- Return False
- End If
- If Directory.Exists(sFolder) = False Then
- If bCreate Then
- Directory.CreateDirectory(sFolder)
- sLogTest = "Der Ordner " & sFolder & " war nicht vorhanden und ist angelegt worden!"
- Return True
- Else
- sLogTest = "Der Ordner " & sFolder & " ist nicht vorhanden!"
- Return False
- End If
- Else
- sLogTest = "Der Ordner " & sFolder & " ist vorhanden!"
- Return True
- End If
- Catch ex As Exception
- sLogTest = "Fehler (checkFolderExist): " & ex.Message
- Return False
- End Try
- End Function
- Public Function xyz()
- Return ""
- End Function
- Public Function log(ByVal sMessage As String) As String
- If bConfigLogging = False Then
- Return ""
- Exit Function
- End If
- Dim sDateTimeSpezial As String
- sDateTimeSpezial = Year(Now) & "." & Month(Now) & "." & Microsoft.VisualBasic.DateAndTime.Day(Now) & " - " & Hour(Now) & ":" & Minute(Now) & ":" & Second(Now) & " "
- Try
- Dim fsLog As FileStream = New FileStream(System.AppDomain.CurrentDomain.BaseDirectory & "AllgemeinDLL_Log" & "_" & DateTime.Now.Year.ToString() & "_" & DateTime.Now.Month.ToString() & ".log", FileMode.Append, FileAccess.Write, FileShare.Write)
- 'Dim fsLog As FileStream = New FileStream("Logs\\" & "Allgemein" & "_" & DateTime.Now.Year.ToString() & "_" & DateTime.Now.Month.ToString() & "_DataTaker.log", FileMode.Append, FileAccess.Write, FileShare.Write)
- 'fsLog =
- Dim myfsWriter As New BinaryWriter(fsLog)
- myfsWriter.Write(sDateTimeSpezial & sMessage.ToCharArray & vbCrLf)
- myfsWriter.Close()
- fsLog.Close()
- Catch ex As Exception
- Return ""
- End Try
- Return ""
- End Function
- Public Sub Test()
- MsgBox("Test")
- End Sub
- Public Sub arno()
- End Sub
- Public Property pds() As DataSet
- Get
- Return set1
- End Get
- Set(value As DataSet)
- ' Two DataTables.
- table1.Columns.Add("name")
- table1.Columns.Add("id")
- table1.Rows.Add("sam", 1)
- table1.Rows.Add("mark", 2)
- table2.Columns.Add("id")
- table2.Columns.Add("medication")
- table2.Rows.Add(1, "atenolol")
- table2.Rows.Add(2, "amoxicillin")
- ' Create a DataSet. Put both tables in it.
- set1.Tables.Add(table1)
- set1.Tables.Add(table2)
- End Set
- End Property
- End Class
- Public Class bla
- Dim sTest As String = ""
- Public Function checkFolderExist(ByVal sFolder As String, ByVal bCreate As Boolean, ByRef sLogTest As String) As Boolean
- Try
- If sFolder.Length = 0 Then
- sLogTest = "Kein Ordername übergeben (checkFolderExist) "
- Return False
- End If
- If Directory.Exists(sFolder) = False Then
- If bCreate Then
- Directory.CreateDirectory(sFolder)
- sLogTest = "Der Ordner " & sFolder & " war nicht vorhanden und ist angelegt worden!"
- Return True
- Else
- sLogTest = "Der Ordner " & sFolder & " ist nicht vorhanden!"
- Return False
- End If
- Else
- sLogTest = "Der Ordner " & sFolder & " ist vorhanden!"
- Return True
- End If
- Catch ex As Exception
- sLogTest = "Fehler (checkFolderExist): " & ex.Message
- Return False
- End Try
- End Function
- Public Function xxx() As Boolean
- Dim a As Integer = 0
- Return True
- End Function
- Public Sub Kalle()
- MsgBox("Hallo aus Kalle")
- End Sub
- Public Sub neueSub()
- MsgBox("Hallo aus neue Sub")
- End Sub
- End Class
- End Namespace
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „samosnabrueck“ ()