Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

0 Fehler und es funzt immer noch nicht!warum??
Autor: Drajl
Datum: 12.12.06 14:10
Hi!Habs jetzt verbessert und es steht das ich null Fehler habe doch wenn ich debugge kommt das!: InvalidOperationExpetion wurde nicht behandelt. {"Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Der offentliche Member Text für den Typ Object wurde nicht gefunden..."} Imports System.Console Imports System.Drawing Imports System.Windows.Forms Imports Microsoft.Visualbasic Imports System.Collections.Specialized Imports System.IO Imports System Imports System.Windows.Forms.Application Public Class Search_Form Public bAbbruch As Boolean Dim AnzeigeText As Object Dim Eingabe As New Object Dim eing As String = Eingabe.Text Dim Status_Label As New Object Dim Status_Search As New Object Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load AnzeigeText = "" GetLogicalDrives() Me.Status_Label.Text = "" End Sub Private Sub FindFiles(ByVal Path As String, ByVal filter As String, ByRef results As StringCollection) Dim Show As New Object If bAbbruch = True Then Me.Status_Label.Text = "" Exit Sub End If Dim i As Integer Me.Status_Label.Text = "" System.Windows.Forms.Application.DoEvents() Me.Status_Search.Visible = False Dim res() As String = Directory.GetFiles(Path, filter) Me.Status_Search.Maximum = res.Length Me.Status_Search.Value = 0 Try For i = 0 To res.Length - 1 results.Add(res(i)) Me.Status_Search.Value += 1 Me.Status_Label.Text = res(i) Show.Items.Add(res(i)) Next System.Windows.Forms.Application.DoEvents() res = Directory.GetDirectories(Path) For i = 0 To res.Length - 1 FindFiles(res(i), filter, results) Next Catch ex As Exception MsgBox(ex.Message) End Try Me.Status_Label.Text = "Fertig" End Sub Private Sub Go_Bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim Lauf_Auswahl As New Object Dim files As New StringCollection() Try FindFiles(Lauf_Auswahl.Text, Eingabe.Text, files) Catch ex As Exception MsgBox("Fehler:" & ex.Message) End Try End Sub Sub GetLogicalDrives() Dim Lauf_Auswahl As New Object Try Dim drives As String() drives = System.IO.Directory.GetLogicalDrives() Dim str As String For Each str In drives Lauf_Auswahl.Items.Add(str) Next str Catch exp As System.IO.IOException MsgBox("Auf das Laufwerk kann nicht zugegriffen werden....") Catch exp As System.Security.SecurityException MsgBox("Keine Berechtigung....") End Try End Sub Private Sub Clear_Bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Dim Lauf_Auswahl As New Object Dim Anzeige As New Object Anzeige.Items.Clear() Eingabe.Text = "" Lauf_Auswahl.Items.Clear() Status_Search.Value = 0 Status_Label.Text = "" End Sub Private Sub Stop_Bt_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) bAbbruch = True DoEvents() Me.Status_Label.Text = "" End Sub End Class

0 Fehler und es funzt immer noch nicht!warum??	933	Drajl	12.12.06 14:10
Re: 0 Fehler und es funzt immer noch nicht!warum??	486	Dirk	13.12.06 08:39

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen