Visual Baisc Frage

benni9001 · 02/02/2011, 16:19

Hallo und zwar habe ich das Problem dass, ich habe ein Programm programmiert das etwas downloadet und während dem download henkt sich das Programm auf wenn der download aber fertig ist dann kann ich das Programm wider benutzen gibt es da irgend einen Code dass sich das Programm nicht aufhenkt ???

Freue mich auf Antworten
Gebe THX

Garp. · 02/02/2011, 16:25

Poste deinen Programmcode bitte.

benni9001 · 02/02/2011, 16:26

Da sind aber mehrere Forms

Der-Eddy · 02/02/2011, 16:27

Quote:

Originally Posted by benni9001

Da sind aber mehrere Forms

Die die für den Download zuständig ist, natürlich ...

benni9001 · 02/02/2011, 16:31

Dim wcl As New Net.WebClient
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "7" Then
wcl.UploadString("ftp://TJA:

.funpic.de/schalter.txt", "1")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "1" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung1.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "2" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung2.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "3" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung3.txt")
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "4" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung4.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "5" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung5.txt")
Else
If wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt") = "6" Then
PictureBox4.ImageLocation = wcl.DownloadString("http://benni9007.be.funpic.de/werbung6.txt")
End If
End If
End If
End If
End If
End If
End If

Label1.Text = wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt")
Label1.Text = Val(wcl.DownloadString("http://benni9007.be.funpic.de/schalter.txt")) + "1"
wcl.UploadString("ftp://TJA:

.funpic.de/schalter.txt", Label1.Text)