Ich habe folgendes Problem wenn ich auf meinem Button klicke führt das Programm alles aus wunderbar, aber die Form friert ein.
Wie kann ich das verhindern?
Besser gesagt, wie kann ich das machen, dass ich die Form während das Programm arbeitet weiter bewegen?
Hier der Coder:
Spoiler anzeigen
Währe sehr nett wenn mir einer helfen könnte...
Ich bedanke mich schon mal im Voraus...
Wie kann ich das verhindern?
Besser gesagt, wie kann ich das machen, dass ich die Form während das Programm arbeitet weiter bewegen?
Hier der Coder:
VB.NET-Quellcode
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- ListView1.Items(0).Focused = True
- ListView1.Items(0).Selected = True
- Dim i As Integer
- For i = 0 To ListView1.Items.Count - 1
- TextBox1.Text = ListView1.FocusedItem.Text
- TextBox3.Text = ListView1.FocusedItem.Text
- If TextBox1.Text.Contains("\") = True Then
- Dim Slash As Integer = InStrRev(TextBox1.Text, "\")
- TextBox3.Text = Mid(TextBox1.Text, Slash + 1)
- Else
- TextBox3.Text = TextBox1.Text
- End If
- If TextBox2.Text.Contains(TextBox3.Text) Then
- TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
- TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
- Else
- TextBox2.Text = TextBox2.Text & GetLastWord(TextBox3.Text)
- End If
- If My.Computer.FileSystem.DirectoryExists(TextBox2.Text) Then
- For Each foundFile As String In My.Computer.FileSystem.GetFiles(TextBox2.Text, FileIO.SearchOption.SearchAllSubDirectories, "*.*")
- File.SetAttributes(foundFile, FileAttributes.Normal)
- Next
- My.Computer.FileSystem.DeleteDirectory(TextBox2.Text, FileIO.DeleteDirectoryOption.DeleteAllContents)
- Application.DoEvents()
- My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
- Else
- My.Computer.FileSystem.CopyDirectory(ListView1.FocusedItem.Text, TextBox2.Text, False)
- End If
- TextBox2.Text = TextBox2.Text.Replace(TextBox3.Text, "")
- TextBox1.Text = ""
- TextBox3.Text = ""
- Dim ind As Integer = 0
- If (ListView1.SelectedItems.Count <> 0) Then
- ind = ListView1.SelectedItems.Item(0).Index
- End If
- If (ListView1.Items.Count <= ind + 1) Then
- ind = -1
- End If
- ListView1.SelectedItems.Clear()
- ListView1.Items.Item(ind + 1).Selected = True
- ListView1.Items.Item(ind + 1).Focused = True
- ListView1.Update()
- Next
- MsgBox("Ordner wurde kopiert.", MsgBoxStyle.Information, "Info")
- End Sub
Währe sehr nett wenn mir einer helfen könnte...
Ich bedanke mich schon mal im Voraus...