Hallo!
Mein Problem:
Ich habe 3 Functionen
Was habe ich falsch gemacht
Mein Code:
Mein Problem:
Ich habe 3 Functionen
- ArrayHin: Fügt Eintrage ein
- ArrayEntf: Entfernt entsprechenden Eintrag
- ArrayKon: gibt alle vorhanden einträge im Array aus
An unhandled exception of type 'System.NullReferenceException' occurred in AssistentXpert2.exe
Additional information: Object reference not set to an instance of an obje
Was habe ich falsch gemacht
Mein Code:
Code:
Module Seperat
'Array mit 2 Dimensionen
Public FArray(100, 1) As String
Public Function ArrayHin(ByVal FName As String, ByVal FTyp As String) As String
Dim x, y As Integer
'x = Zeilen; pro Zeile ein feld
x = 0
'y = Spalte; spalte 0 Name der Variable und 1 Typ des feldes
y = 0
'Füllen des Arrays
Do
If Seperat.FArray(x, y) = "" Then
Seperat.FArray(x, y) = FName
Seperat.FArray(x, y + 1) = FTyp
FName = ""
FTyp = ""
Else
x = x + 1
y = 0
End If
Loop While FName <> "" And FTyp <> ""
End Function
Public Function ArrayEntf(ByVal FName As String) As String
Dim x As Integer
If FName = "" Then
MsgBox("Es wurde kein Name des Feldes übergeben", MsgBoxStyle.Exclamation, "Felhlermeldung 8")
End If
x = Seperat.FArray.IndexOf(Seperat.FArray, FName)
Seperat.FArray.Clear(FArray, x, 2)
End Function
'Zu kontrolle ob das Array gefüllt worden ist
Public Function ArrayKon() As String
Dim i, an, en As Integer
For i = an To en
MsgBox("Name: " & Seperat.FArray(i, 0) & "Typ: " & Seperat.FArray(i, 1))
Next
End Function
End Module