Fehler bei Öffnen von Form1

  • VB.NET

Es gibt 5 Antworten in diesem Thema. Der letzte Beitrag () ist von Jan25ish.

    Fehler bei Öffnen von Form1

    Hallo,
    Ich schreibe gerade einen Dateimanager und hab ihn schon fast fertig. Aber plötzlich kommt beim Debuggen diese Fehlermeldung:

    Zusätzliche Informationen: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Der Objektverweis wurde nicht auf eine Objektinstanz festgelegt..

    Ich habe keine Ahnung wo der Fehler herkommt und was ich dagegen tun kann :(. Das einzige was ich seit dem letzten funktioniertem Debug geändert habe, ist dass ich einen Timer hinzugefügt habe, der prüft ob eine Neue Datei in den Ordner eingefügt wird in dem ich gerade im Datei Manager bin und dann die Listview im Manager aktualisiert. Hier ist der Code:

    VB.NET-Quellcode

    1. Dim anzahlderdateien As Integer = IO.Directory.GetFiles(pfad).Length
    2. If anzahlderdateien = Listview1.Items.Count = False Then
    3. Aktualisieren()
    4. End If

    Jan25ish schrieb:

    VB.NET-Quellcode

    1. If anzahlderdateien = Listview1.Items.Count = False Then
    mach das so:

    VB.NET-Quellcode

    1. If anzahlderdateien <> Listview1.Items.Count Then
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Den Timer habe ich gelöscht aber trotzdem kommt die Meldung noch. Der Ordner enthält fünf Dateien.
    Hier ist der Sourcecode:

    VB.NET-Quellcode

    1. Public Class Form1
    3. Dim array As String = ""
    4. Dim menge As Integer = ListView1.Items.Count
    6. Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    7. My.Settings.Reload()
    8. TextBox1.Text = My.Settings.Verzeichnis
    9. FolderBrowserDialog1.SelectedPath = My.Settings.Verzeichnis
    11. If My.Settings.Verzeichnis = "" = False Then
    12. Auflisten()
    13. End If
    15. If My.Settings.Ordner_verstecken = True Then
    16. Shell("attrib +h " & My.Settings.Verzeichnis)
    17. Else
    18. Shell("attrib -h " & My.Settings.Verzeichnis)
    19. End If
    20. End Sub
    22. Private Sub Form1_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
    23. End
    24. End Sub
    26. Private Sub ÖffnenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ÖffnenToolStripMenuItem.Click
    27. FolderBrowserDialog1.ShowDialog()
    28. ListView1.Items.Clear()
    30. Auflisten()
    31. End Sub
    33. Private Sub OptionenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OptionenToolStripMenuItem.Click
    34. Optionen.ShowDialog()
    35. End Sub
    37. Private Sub Auflisten()
    38. Try
    39. My.Settings.Verzeichnis = FolderBrowserDialog1.SelectedPath
    40. My.Settings.Save()
    41. My.Settings.Reload()
    42. TextBox1.Text = My.Settings.Verzeichnis
    44. Dim wert As Integer = 0
    45. Dim i As String = ""
    46. Dim anzahl As Array = IO.Directory.GetFiles(FolderBrowserDialog1.SelectedPath)
    47. For Each i In IO.Directory.GetFiles(My.Settings.Verzeichnis)
    48. array = array & "#" & i
    49. ListView1.Items.Add(i.Split("%")(2))
    51. 'Dim pfad As String = array.Split("#")(wert + 1) ' & array.Split("#")(wert).Split("%")(0)
    52. 'Dim infos As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(pfad) '"C:\Users\Kids\Videos\Supernatural\%Folge 1%Normalität als Exil%Staffel 6%.wmv")
    53. 'ListView1.Items(wert).SubItems.Add(i.Split("%")(3))
    54. 'ListView1.Items(wert).SubItems.Add(i.Split("%")(1))
    55. 'ListView1.Items(wert).SubItems.Add(infos.Extension)
    56. 'ListView1.Items(wert).SubItems.Add(Format(infos.Length / 1048576, "000") & " MB")
    57. 'wert += 1
    58. Next
    60. 'Dim wert As Integer = 0
    61. 'For Each i In IO.Directory.GetFiles(My.Settings.Verzeichnis)
    62. ' Dim pfad As String = array.Split("#")(wert + 1) ' & array.Split("#")(wert).Split("%")(0)
    63. ' Dim infos As IO.FileInfo = My.Computer.FileSystem.GetFileInfo(pfad) '"C:\Users\Kids\Videos\Supernatural\%Folge 1%Normalität als Exil%Staffel 6%.wmv")
    64. ' ListView1.Items(wert).SubItems.Add(i.Split("%")(3))
    65. ' ListView1.Items(wert).SubItems.Add(i.Split("%")(1))
    66. ' ListView1.Items(wert).SubItems.Add(infos.Extension)
    67. ' ListView1.Items(wert).SubItems.Add(Format(infos.Length / 1048576, "000") & " MB")
    68. ' wert += 1
    69. 'Next
    71. Catch ex As Exception
    73. End Try
    74. End Sub
    76. Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
    77. If MessageBox.Show("Möchten Sie die Datei wirklich löschen?", "", MessageBoxButtons.YesNo) = MsgBoxResult.Yes Then
    78. My.Computer.FileSystem.DeleteFile(TextBox1.Text & "\" & ListView1.FocusedItem.Text)
    79. ListView1.Items.Remove(ListView1.FocusedItem)
    80. End If
    81. End Sub
    83. Private Sub ListView1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListView1.SelectedIndexChanged
    84. If ListView1.SelectedItems.Count > 0 Then
    85. LöschenToolStripMenuItem.Enabled = True
    86. AbspielenToolStripMenuItem.Enabled = True
    87. AufFestplatteSpeichernToolStripMenuItem.Enabled = True
    88. Else
    89. LöschenToolStripMenuItem.Enabled = False
    90. AbspielenToolStripMenuItem.Enabled = False
    91. AufFestplatteSpeichernToolStripMenuItem.Enabled = False
    92. End If
    93. End Sub
    95. Private Sub AbspielenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AbspielenToolStripMenuItem.Click
    96. Process.Start(TextBox1.Text & "\" & ListView1.FocusedItem.Text)
    97. End Sub
    99. Private Sub AufFestplatteSpeichernToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AufFestplatteSpeichernToolStripMenuItem.Click
    100. Dim ofilter As String = ""
    102. If ListView1.FocusedItem.Text.Contains(".avi") Then
    103. ofilter = "Avi Dateien (*.avi)|*.avi"
    104. Else
    105. If ListView1.FocusedItem.Text.Contains(".wmv") Then
    106. ofilter = "Windows Media Video Dateien (*.wmv)|*.wmv"
    107. Else
    108. If ListView1.FocusedItem.Text.Contains(".mov") Then
    109. ofilter = "Mov Dateien (*.mov)|*.mov"
    110. Else
    111. ofilter = "Alle Dateien (*.*)|*.*"
    112. End If
    113. End If
    114. End If
    116. With SaveFileDialog1
    117. .Filter = ofilter
    118. .InitialDirectory = "Desktop"
    119. .Title = "speichern unter..."
    120. .FileName = ListView1.FocusedItem.Text
    121. .ShowDialog()
    122. End With
    123. End Sub
    125. Private Sub TextBox1_KeyDown(sender As Object, e As KeyEventArgs) Handles TextBox1.KeyDown
    126. If e.KeyData = Keys.Enter = True Then
    127. If My.Computer.FileSystem.DirectoryExists(TextBox1.Text) Then
    128. My.Settings.Verzeichnis = TextBox1.Text
    129. FolderBrowserDialog1.SelectedPath = TextBox1.Text
    130. My.Settings.Save()
    131. My.Settings.Reload()
    132. ListView1.Items.Clear()
    133. ListView1.Focus()
    134. Auflisten()
    135. Else
    136. MsgBox("Das Verzeichnis existiert nicht.", MsgBoxStyle.Critical)
    137. TextBox1.Text = My.Settings.Verzeichnis
    138. ListView1.Focus()
    139. End If
    140. End If
    141. End Sub
    143. Private Sub TextBox1_GotFocus(sender As Object, e As EventArgs) Handles TextBox1.GotFocus
    144. TextBox1.BackColor = Color.White
    145. End Sub
    147. Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
    148. If TextBox1.Focused = True Then
    149. TextBox1.BackColor = Color.White
    150. Else
    151. TextBox1.BackColor = SystemColors.Control
    152. TextBox1.Text = My.Settings.Verzeichnis
    153. End If
    154. End Sub
    155. End Class

    Das hier kann nicht gehen:

    VB.NET-Quellcode

    1. Dim menge As Integer = ListView1.Items.Count

    Mach die Zuweisung weg und setzte den Wert ggf. in Form_Load, ist aber eig. unnötig, denn es muss ja 0 sein, da du noch nichts hinzugefügt hast.
    Mfg
    Vincent

Facebook