[VB] integer wird nicht erhöht?!

Ludder231 · 11/15/2012, 22:14

Hi,

ich hab ein klinens Problem mit meinem "Übersprungen" -Label. ich will das es sich immer um 1 erhöht, wenn das oder das passiert. Nun läuft es in einer For -Schleife die z.B: 3 mal durchläuft aber das "Übersprungen" -Label nur 1 anzeigt obwohl es "3" anzeigen sollte. Hier der Code:

Spoiler

'Heaven. · 11/16/2012, 07:19

Mach mal :

Code:

Uebersprungen = Uebersprungen +1
lblUebersprungen.Text = Uebersprungen

An besten die Function in einem neuen Thead aufrufen, dann kannst du DoEvents() weglassen und es lagt nicht

Shawak · 11/16/2012, 08:46

Bevor du "+=" benutzt solltest du der Variable 'übersprungen' einen Wert zuweisen.

Zum Beispiel so:

Code:

Dim übersprungen As Integer = 0

Ludder231 · 11/16/2012, 12:05

Quote:
Originally Posted by Shawak
Bevor du "+=" benutzt solltest du der Variable 'übersprungen' einen Wert zuweisen.

Zum Beispiel so:
Code:
Dim übersprungen As Integer = 0

Hab ich schon versucht, bringt leider auch nix. Habs jetzt so. :

Spoiler

Code:

  Dim übersprungen As Integer = 0
        Dim count As Integer


      
        _label_1(anzahl_dateien, dateiname, count, I)

        If dateiname(I).contains(datei) Then

            If chlb_dateiendungen.GetItemCheckState(item) = CheckState.Checked Then
                If Not My.Computer.FileSystem.DirectoryExists(fd_speicher_pfad.SelectedPath & "\" & ordner) Then

                    My.Computer.FileSystem.CreateDirectory(fd_speicher_pfad.SelectedPath & "\" & ordner)

                End If


                If rdbtn_verschieben.Checked() = True Then

                    If Not My.Computer.FileSystem.FileExists(fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) Then

                        My.Computer.FileSystem.MoveFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) ' Kopieren

                    Else

                        übersprungen += 1

                    End If
                ElseIf rdbtn_kopieren.Checked() = True Then


                    If Not My.Computer.FileSystem.FileExists(fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) Then

                        My.Computer.FileSystem.CopyFile(dateipfad(I), fd_speicher_pfad.SelectedPath & "\" & ordner & "\" & dateiname(I)) ' Kopieren

                    Else

                        übersprungen += 1

                    End If


                End If
            Else

                übersprungen += 1

            End If
        Else

            übersprungen += 1

        End If
        _label_2(übersprungen, count, I)

    End Sub

 
    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        For i = 0 To chlb_dateiendungen.Items.Count - 1

            chlb_dateiendungen.SetItemChecked(i, 1)

        Next
    End Sub

    Private Sub _label_1(ByVal anzahl_dateien As Integer, ByVal dateiname As Array, ByVal count As Integer, ByVal i As Integer)

        count = (anzahl_dateien - 1) - i
        lbl_datei.Text = dateiname(i)

    End Sub

    Private Sub _label_2(ByVal übersprungen As Integer, ByVal count As Integer, ByVal i As Integer)

        lbl_übersprungen.Text = übersprungen
        prgb_fortschritt.Value = i + 1
        lbl_verbleibende_dateien.Text = count

    End Sub

Geht so leider auch nicht. Steh iwie auf dem Schlauch

'Heaven. · 11/16/2012, 12:51

Adde mich mal in Skype... Dann erklär ich dir das