error:Fehler beim Erstellen des Formulars
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Neoner.
-
-
-
hier der code für form1:
Spoiler anzeigen VB.NET-Quellcode
- Imports System.Net
- Imports System
- Imports System.Threading
- Public Class Form1
- Dim WithEvents downloader As WebClient
- Dim WithEvents downloader1 As WebClient
- Dim WithEvents downloader2 As WebClient
- Dim WithEvents downloader3 As WebClient
- Dim WithEvents downloader4 As WebClient
- Dim WithEvents downloader5 As WebClient
- Dim WithEvents downloader6 As WebClient
- Dim WithEvents downloader7 As WebClient
- Dim WithEvents downloader8 As WebClient
- Dim WithEvents downloader9 As WebClient
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- Try
- MkDir("Dungeon by joniator11")
- MkDir("Dungeon by joniator11\data")
- MkDir("Dungeon by joniator11\region")
- Catch ex As Exception
- End Try
- Try
- downloader1 = New WebClient
- downloader2 = New WebClient
- downloader3 = New WebClient
- downloader4 = New WebClient
- downloader5 = New WebClient
- downloader6 = New WebClient
- downloader7 = New WebClient
- downloader8 = New WebClient
- downloader9 = New WebClient
- d = "0"
- downloader1.DownloadFileAsync(New Uri("***************/level.dat"), ("Dungeon by joniator11\level.dat"))
- downloader2.DownloadFileAsync(New Uri("*********************/level.dat_old"), ("Dungeon by joniator11\dat_old"))
- downloader3.DownloadFileAsync(New Uri("********************/session.lock"), ("Dungeon by joniator11\session.lock"))
- downloader4.DownloadFileAsync(New Uri("*************/r.-1.-1.mcr"), ("Dungeon by joniator11\region\r.-1.-1.mcr"))
- downloader5.DownloadFileAsync(New Uri("*************/r.-1.-2.mcr"), ("Dungeon by joniator11\region\r.-1.-2.mcr"))
- downloader6.DownloadFileAsync(New Uri("************/region/r.-1.0.mcr"), ("Dungeon by joniator11\region\r.-1.0.mcr"))
- downloader7.DownloadFileAsync(New Uri("*****/r.0.-1.mcr"), ("Dungeon by joniator11\region\r.0.-1.mcr"))
- downloader8.DownloadFileAsync(New Uri("********/region/r.0.-2.mcr"), ("Dungeon by joniator11\region\r.0.-2.mcr"))
- downloader9.DownloadFileAsync(New Uri("********/r.0.0.mcr"), ("Dungeon by joniator11\region\r.0.0.mcr"))
- Catch ex As Exception
- MsgBox("Ein Fehler ist aufgetreten:" + vbNewLine + ex.Message + ex.HelpLink, MsgBoxStyle.Critical, "Error")
- End Try
- End Sub
- Dim d
- Private Sub downloader1_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs) Handles downloader1.DownloadDataCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader2_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader2.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader3_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader3.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader4_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader4.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader5_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader5.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader6_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader6.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader7_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader7.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader8_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader8.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Private Sub downloader9_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader9.DownloadFileCompleted
- d = Val(d) + Val("1")
- If d = 9 Then
- MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
- Me.Close()
- Else
- End If
- End Sub
- Dim gesamtfortschritt As String
- Dim gesamtfortschritt1 As String
- Dim gesamtfortschritt2 As String
- Dim gesamtfortschritt3 As String
- Dim gesamtfortschritt4 As String
- Dim gesamtfortschritt5 As String
- Dim gesamtfortschritt6 As String
- Dim gesamtfortschritt7 As String
- Dim gesamtfortschritt8 As String
- Dim gesamtfortschritt9 As String
- Private Sub downloader1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader1.DownloadProgressChanged
- Form2.ProgressBar2.Value = e.ProgressPercentage
- Form2.Label9.Text = e.ProgressPercentage + "%"
- gesamtfortschritt1 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader2.DownloadProgressChanged
- Form2.ProgressBar3.Value = e.ProgressPercentage
- Form2.Label12.Text = e.ProgressPercentage + "%"
- gesamtfortschritt2 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader3.DownloadProgressChanged
- Form2.ProgressBar4.Value = e.ProgressPercentage
- Form2.Label13.Text = e.ProgressPercentage + "%"
- gesamtfortschritt3 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader4.DownloadProgressChanged
- Form2.ProgressBar5.Value = e.ProgressPercentage
- Form2.Label14.Text = e.ProgressPercentage + "%"
- gesamtfortschritt4 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader5_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader5.DownloadProgressChanged
- Form2.ProgressBar6.Value = e.ProgressPercentage
- Form2.Label15.Text = e.ProgressPercentage + "%"
- gesamtfortschritt5 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader6_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader6.DownloadProgressChanged
- Form2.ProgressBar7.Value = e.ProgressPercentage
- Form2.Label16.Text = e.ProgressPercentage + "%"
- gesamtfortschritt6 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader7_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader7.DownloadProgressChanged
- Form2.ProgressBar8.Value = e.ProgressPercentage
- Form2.Label17.Text = e.ProgressPercentage + "%"
- gesamtfortschritt7 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader8_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader8.DownloadProgressChanged
- Form2.ProgressBar9.Value = e.ProgressPercentage
- Form2.Label18.Text = e.ProgressPercentage + "%"
- gesamtfortschritt8 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub downloader9_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader9.DownloadProgressChanged
- Form2.ProgressBar10.Value = e.ProgressPercentage
- Form2.Label19.Text = e.ProgressPercentage + "%"
- gesamtfortschritt9 = e.ProgressPercentage
- gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
- gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
- ProgressBar1.Value = gesamtfortschritt
- Label1.Text = (gesamtfortschritt + "%")
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
- End Sub
- Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
- Try
- Form2.Show() ´hier tritt fehler auf
- Catch ex As Exception
- MsgBox(ex.Message)
- TextBox1.Text = ex.Message
- End Try
- End Sub
- Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
- Form2.Visible = False
- End Sub
- End Class
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „joniator11“ ()
-
-
Und hier form 2:
Spoiler anzeigen VB.NET-Quellcode
- Public Class Form2
- Private Sub Label9_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.TextChanged
- If Label9.Text = 100% Then
- Label9.Text = "Fertig"
- End If
- End Sub
- Private Sub Label12_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label12.TextChanged
- If Label12.Text = 100% Then
- Label12.Text = "Fertig"
- End If
- End Sub
- Private Sub Label13_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label13.TextChanged
- If Label13.Text = 100% Then
- Label13.Text = "Fertig"
- End If
- End Sub
- Private Sub Label14_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label14.TextChanged
- If Label14.Text = 100% Then
- Label14.Text = "Fertig"
- End If
- End Sub
- Private Sub Label15_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label15.TextChanged
- If Label14.Text = 100% Then
- Label14.Text = "Fertig"
- End If
- End Sub
- Private Sub Label16_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label16.TextChanged
- If Label15.Text = 100% Then
- Label15.Text = "Fertig"
- End If
- End Sub
- Private Sub Label17_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label17.TextChanged
- If Label17.Text = 100% Then
- Label17.Text = "Fertig"
- End If
- End Sub
- Private Sub Label18_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label18.TextChanged
- If Label18.Text = 100% Then
- Label18.Text = "Fertig"
- End If
- End Sub
- Private Sub Label19_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label19.TextChanged
- If Label9.Text = 100% Then
- Label9.Text = "Fertig"
- End If
- End Sub
- Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- End Sub
- End Class
-
-
-
joniator11 schrieb:
Es soll statt 100% Fertig schreiben^^
Fals du zufällig minecraft spielst, ist dieses programm etwas für dich^^
wie jetzt?
mach doch einfach:
oder wo liegt das Problem? -
-
joniator11 schrieb:
Problem = ich hab mehrere sectionen
ich verstehe einfach nicht, wo dein Problem jetzt hierbei liegt.
Oder habe ich was falsch verstanden?
-
Ähnliche Themen
-
Fehler beim Erstellen eines Formulars
programmierer2012 - - Weitere Sprachen und sprachübergreifende Themen -
Sultan - - Sonstige Problemstellungen
-
3 Benutzer haben hier geschrieben
- Gast (5)
- Patrick1993 (3)
- Neoner (2)