error:Fehler beim Erstellen des Formulars

  • VB.NET

Es gibt 9 Antworten in diesem Thema. Der letzte Beitrag () ist von Neoner.

    error:Fehler beim Erstellen des Formulars

    Ich hab da ein problem bei form2.show error code: Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Ungültige Konvertierung von der Zeichenfolge in Typ Double..
    Bitte um hilfe!!

    Dann zeig doch mal deinen Code nur mit der Fehlermeldung kann man wenig helfen

    hier der code für form1:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Imports System.Net
    2. Imports System
    3. Imports System.Threading
    5. Public Class Form1
    6. Dim WithEvents downloader As WebClient
    7. Dim WithEvents downloader1 As WebClient
    8. Dim WithEvents downloader2 As WebClient
    9. Dim WithEvents downloader3 As WebClient
    10. Dim WithEvents downloader4 As WebClient
    11. Dim WithEvents downloader5 As WebClient
    12. Dim WithEvents downloader6 As WebClient
    13. Dim WithEvents downloader7 As WebClient
    14. Dim WithEvents downloader8 As WebClient
    15. Dim WithEvents downloader9 As WebClient
    19. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    20. Try
    21. MkDir("Dungeon by joniator11")
    22. MkDir("Dungeon by joniator11\data")
    23. MkDir("Dungeon by joniator11\region")
    24. Catch ex As Exception
    25. End Try
    26. Try
    27. downloader1 = New WebClient
    28. downloader2 = New WebClient
    29. downloader3 = New WebClient
    30. downloader4 = New WebClient
    31. downloader5 = New WebClient
    32. downloader6 = New WebClient
    33. downloader7 = New WebClient
    34. downloader8 = New WebClient
    35. downloader9 = New WebClient
    37. d = "0"
    38. downloader1.DownloadFileAsync(New Uri("***************/level.dat"), ("Dungeon by joniator11\level.dat"))
    39. downloader2.DownloadFileAsync(New Uri("*********************/level.dat_old"), ("Dungeon by joniator11\dat_old"))
    40. downloader3.DownloadFileAsync(New Uri("********************/session.lock"), ("Dungeon by joniator11\session.lock"))
    41. downloader4.DownloadFileAsync(New Uri("*************/r.-1.-1.mcr"), ("Dungeon by joniator11\region\r.-1.-1.mcr"))
    42. downloader5.DownloadFileAsync(New Uri("*************/r.-1.-2.mcr"), ("Dungeon by joniator11\region\r.-1.-2.mcr"))
    43. downloader6.DownloadFileAsync(New Uri("************/region/r.-1.0.mcr"), ("Dungeon by joniator11\region\r.-1.0.mcr"))
    44. downloader7.DownloadFileAsync(New Uri("*****/r.0.-1.mcr"), ("Dungeon by joniator11\region\r.0.-1.mcr"))
    45. downloader8.DownloadFileAsync(New Uri("********/region/r.0.-2.mcr"), ("Dungeon by joniator11\region\r.0.-2.mcr"))
    46. downloader9.DownloadFileAsync(New Uri("********/r.0.0.mcr"), ("Dungeon by joniator11\region\r.0.0.mcr"))
    50. Catch ex As Exception
    51. MsgBox("Ein Fehler ist aufgetreten:" + vbNewLine + ex.Message + ex.HelpLink, MsgBoxStyle.Critical, "Error")
    52. End Try
    53. End Sub
    54. Dim d
    56. Private Sub downloader1_DownloadDataCompleted(ByVal sender As Object, ByVal e As System.Net.DownloadDataCompletedEventArgs) Handles downloader1.DownloadDataCompleted
    57. d = Val(d) + Val("1")
    58. If d = 9 Then
    59. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    60. Me.Close()
    61. Else
    62. End If
    63. End Sub
    65. Private Sub downloader2_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader2.DownloadFileCompleted
    66. d = Val(d) + Val("1")
    67. If d = 9 Then
    68. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    69. Me.Close()
    70. Else
    71. End If
    72. End Sub
    74. Private Sub downloader3_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader3.DownloadFileCompleted
    75. d = Val(d) + Val("1")
    76. If d = 9 Then
    78. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    79. Me.Close()
    80. Else
    81. End If
    82. End Sub
    84. Private Sub downloader4_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader4.DownloadFileCompleted
    85. d = Val(d) + Val("1")
    86. If d = 9 Then
    87. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    88. Me.Close()
    89. Else
    90. End If
    91. End Sub
    93. Private Sub downloader5_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader5.DownloadFileCompleted
    94. d = Val(d) + Val("1")
    95. If d = 9 Then
    96. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    97. Me.Close()
    98. Else
    99. End If
    100. End Sub
    102. Private Sub downloader6_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader6.DownloadFileCompleted
    103. d = Val(d) + Val("1")
    104. If d = 9 Then
    105. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    106. Me.Close()
    107. Else
    108. End If
    109. End Sub
    111. Private Sub downloader7_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader7.DownloadFileCompleted
    112. d = Val(d) + Val("1")
    113. If d = 9 Then
    114. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    115. Me.Close()
    116. Else
    117. End If
    118. End Sub
    120. Private Sub downloader8_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader8.DownloadFileCompleted
    121. d = Val(d) + Val("1")
    122. If d = 9 Then
    123. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    124. Me.Close()
    125. Else
    126. End If
    127. End Sub
    129. Private Sub downloader9_DownloadFileCompleted(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs) Handles downloader9.DownloadFileCompleted
    130. d = Val(d) + Val("1")
    131. If d = 9 Then
    132. MsgBox("Die Installation wurde erfolgreich abgeschlossen, das programm wird Beendet.")
    133. Me.Close()
    134. Else
    135. End If
    136. End Sub
    137. Dim gesamtfortschritt As String
    138. Dim gesamtfortschritt1 As String
    139. Dim gesamtfortschritt2 As String
    140. Dim gesamtfortschritt3 As String
    141. Dim gesamtfortschritt4 As String
    142. Dim gesamtfortschritt5 As String
    143. Dim gesamtfortschritt6 As String
    144. Dim gesamtfortschritt7 As String
    145. Dim gesamtfortschritt8 As String
    146. Dim gesamtfortschritt9 As String
    151. Private Sub downloader1_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader1.DownloadProgressChanged
    152. Form2.ProgressBar2.Value = e.ProgressPercentage
    153. Form2.Label9.Text = e.ProgressPercentage + "%"
    154. gesamtfortschritt1 = e.ProgressPercentage
    155. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    157. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    158. ProgressBar1.Value = gesamtfortschritt
    159. Label1.Text = (gesamtfortschritt + "%")
    160. End Sub
    161. Private Sub downloader2_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader2.DownloadProgressChanged
    162. Form2.ProgressBar3.Value = e.ProgressPercentage
    163. Form2.Label12.Text = e.ProgressPercentage + "%"
    164. gesamtfortschritt2 = e.ProgressPercentage
    165. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    167. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    168. ProgressBar1.Value = gesamtfortschritt
    169. Label1.Text = (gesamtfortschritt + "%")
    171. End Sub
    172. Private Sub downloader3_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader3.DownloadProgressChanged
    173. Form2.ProgressBar4.Value = e.ProgressPercentage
    174. Form2.Label13.Text = e.ProgressPercentage + "%"
    175. gesamtfortschritt3 = e.ProgressPercentage
    176. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    178. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    179. ProgressBar1.Value = gesamtfortschritt
    180. Label1.Text = (gesamtfortschritt + "%")
    181. End Sub
    182. Private Sub downloader4_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader4.DownloadProgressChanged
    183. Form2.ProgressBar5.Value = e.ProgressPercentage
    184. Form2.Label14.Text = e.ProgressPercentage + "%"
    185. gesamtfortschritt4 = e.ProgressPercentage
    186. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    188. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    189. ProgressBar1.Value = gesamtfortschritt
    190. Label1.Text = (gesamtfortschritt + "%")
    191. End Sub
    192. Private Sub downloader5_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader5.DownloadProgressChanged
    193. Form2.ProgressBar6.Value = e.ProgressPercentage
    194. Form2.Label15.Text = e.ProgressPercentage + "%"
    195. gesamtfortschritt5 = e.ProgressPercentage
    196. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    198. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    199. ProgressBar1.Value = gesamtfortschritt
    200. Label1.Text = (gesamtfortschritt + "%")
    201. End Sub
    202. Private Sub downloader6_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader6.DownloadProgressChanged
    203. Form2.ProgressBar7.Value = e.ProgressPercentage
    204. Form2.Label16.Text = e.ProgressPercentage + "%"
    205. gesamtfortschritt6 = e.ProgressPercentage
    206. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    208. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    209. ProgressBar1.Value = gesamtfortschritt
    210. Label1.Text = (gesamtfortschritt + "%")
    211. End Sub
    212. Private Sub downloader7_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader7.DownloadProgressChanged
    213. Form2.ProgressBar8.Value = e.ProgressPercentage
    214. Form2.Label17.Text = e.ProgressPercentage + "%"
    215. gesamtfortschritt7 = e.ProgressPercentage
    216. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    218. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    219. ProgressBar1.Value = gesamtfortschritt
    220. Label1.Text = (gesamtfortschritt + "%")
    221. End Sub
    222. Private Sub downloader8_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader8.DownloadProgressChanged
    223. Form2.ProgressBar9.Value = e.ProgressPercentage
    224. Form2.Label18.Text = e.ProgressPercentage + "%"
    225. gesamtfortschritt8 = e.ProgressPercentage
    226. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    228. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    229. ProgressBar1.Value = gesamtfortschritt
    230. Label1.Text = (gesamtfortschritt + "%")
    231. End Sub
    232. Private Sub downloader9_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles downloader9.DownloadProgressChanged
    233. Form2.ProgressBar10.Value = e.ProgressPercentage
    234. Form2.Label19.Text = e.ProgressPercentage + "%"
    235. gesamtfortschritt9 = e.ProgressPercentage
    236. gesamtfortschritt = (Val(gesamtfortschritt1) + Val(gesamtfortschritt2) + Val(gesamtfortschritt3) + Val(gesamtfortschritt4) + Val(gesamtfortschritt5) + Val(gesamtfortschritt6) + Val(gesamtfortschritt7) + Val(gesamtfortschritt8))
    238. gesamtfortschritt = Val(gesamtfortschritt) / Val("9")
    239. ProgressBar1.Value = gesamtfortschritt
    240. Label1.Text = (gesamtfortschritt + "%")
    241. End Sub
    243. Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    245. End Sub
    249. Private Sub ProgressBar2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    251. End Sub
    253. Private Sub Label9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    255. End Sub
    257. Private Sub Label19_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
    259. End Sub
    261. Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    262. Try
    263. Form2.Show() ´hier tritt fehler auf
    264. Catch ex As Exception
    265. MsgBox(ex.Message)
    266. TextBox1.Text = ex.Message
    267. End Try
    269. End Sub
    271. Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    272. Form2.Visible = False
    273. End Sub
    274. End Class

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „joniator11“ ()

    Wenn du den Try kram weg machst dann wird dir gezeigt wo der hänger ist.
    Also mach mal den Try-Catch weg (ist auch nicht nötig sofern du nur eine form aufrufst da dort keine fehler auftreten können wenn man ein wenig ahnung hat)

    Und hier form 2:
    Spoiler anzeigen

    VB.NET-Quellcode

    1. Public Class Form2
    5. Private Sub Label9_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label9.TextChanged
    6. If Label9.Text = 100% Then
    7. Label9.Text = "Fertig"
    8. End If
    9. End Sub
    11. Private Sub Label12_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label12.TextChanged
    12. If Label12.Text = 100% Then
    13. Label12.Text = "Fertig"
    14. End If
    15. End Sub
    17. Private Sub Label13_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label13.TextChanged
    18. If Label13.Text = 100% Then
    19. Label13.Text = "Fertig"
    20. End If
    21. End Sub
    22. Private Sub Label14_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label14.TextChanged
    23. If Label14.Text = 100% Then
    24. Label14.Text = "Fertig"
    25. End If
    26. End Sub
    27. Private Sub Label15_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label15.TextChanged
    28. If Label14.Text = 100% Then
    29. Label14.Text = "Fertig"
    30. End If
    31. End Sub
    32. Private Sub Label16_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label16.TextChanged
    33. If Label15.Text = 100% Then
    34. Label15.Text = "Fertig"
    35. End If
    36. End Sub
    37. Private Sub Label17_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label17.TextChanged
    38. If Label17.Text = 100% Then
    39. Label17.Text = "Fertig"
    40. End If
    41. End Sub
    42. Private Sub Label18_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label18.TextChanged
    43. If Label18.Text = 100% Then
    44. Label18.Text = "Fertig"
    45. End If
    46. End Sub
    47. Private Sub Label19_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles Label19.TextChanged
    48. If Label9.Text = 100% Then
    49. Label9.Text = "Fertig"
    50. End If
    51. End Sub
    53. Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    55. End Sub
    56. End Class

    Wenn jedes Label die 100 als Zahl anzeigen soll dann musst du dort schon "100" schreiben sonst wird nichts angezeigt.
    Aber was hast du in Form2 für Probleme ??

    joniator11 schrieb:

    Problem = ich hab mehrere sectionen
    naund?


    VB.NET-Quellcode

    1. if var1 = "100%" Then MsgBox("Fertig!")End if
    2. if var2 = "100%" Then MsgBox("Fertig!")End if
    3. if var3 = "100%" Then MsgBox("Fertig!")End If



    ich verstehe einfach nicht, wo dein Problem jetzt hierbei liegt.
    Oder habe ich was falsch verstanden?

Facebook
Telefonspende