Die Handles-Klausel erfordert eine WithEvents-Variable und ähnliches...

  • VB.NET

Es gibt 7 Antworten in diesem Thema. Der letzte Beitrag () ist von kwon.

    Die Handles-Klausel erfordert eine WithEvents-Variable und ähnliches...

    Hallo liebe Profis,

    ich bin ein Hobby-Programmierer und schreibe auch Skripte, die mir meine berufliche Arbeit leichter machen.

    Jetzt ist u.a. der oben genannte Fehler aufgetreten und ich kann (auch durch googlen) nicht wirklich einschätzen, was ich tun muss, um die Fehler zu beheben.

    Schade ist, dass mein Skript aus bis zu 6 Formen besteht - es steckt viel Arbeit in den anderen Forms drin...

    Ich habe zwar Backups, aber es wäre schön, wenn man die Fehler beheben könnte...

    Ich weiß gar nicht, wie die Zeilen (6 - 9), (36 - 70) in meinen Code geraten sind.

    Der restliche Code ist von mir geschrieben worden.

    Die Fehler treten nur in Form6 auf:
    Zeile: 12, 37, 73, 38, 39, 44, 45, 46, 47, 48, 49, 50, 54, 55, 56, 57, 58, 59, 60, 65, 66

    Es wäre super, wenn mir jemand helfen könnte...

    Vielen Dank im Voraus...

    Hier Form6:

    VB.NET-Quellcode

    1. ​Option Strict On
    2. Imports System.IO
    3. Public Class Form6
    4. Dim pfadZuExtrahierender_S8_Film As String = "C:\ffmpeg\bin\S8-Film\", pfad_extrahierte_Bilder As String = "C:\ffmpeg\bin\extrahierte_Bilder\"
    5. Dim ordnerS8_Film As New DirectoryInfo(pfadZuExtrahierender_S8_Film), ordnerExtrahierte_Bilder As New DirectoryInfo(pfad_extrahierte_Bilder)
    6. Friend WithEvents ButtonBilderExtrahieren As Button
    7. Friend WithEvents ButtonFilmLaden As Button
    8. Friend WithEvents Label1 As Label
    9. Friend WithEvents Button1 As Button
    11. Private Sub ButtonBilderExtrahieren_Click(sender As Object, e As EventArgs) Handles ButtonBilderExtrahieren.Click
    12. Dim p As New Process()
    13. Dim S8_Film_Name As String = ""
    14. If ordnerS8_Film.GetFiles.Count <> 1 Then
    15. MessageBox.Show("Es befindet sich kein (oder mehr als ein) zu extrahierender S8-Film im S8-Film-Ordner. Das Programm wird beendet.")
    16. Exit Sub
    17. End If
    18. If ordnerExtrahierte_Bilder.GetFiles.Count <> 0 Then
    19. MessageBox.Show("Es befinden sich noch Bilder im Export-Ordner. Das Programm wird beendet.")
    20. Exit Sub
    21. End If
    23. MessageBox.Show("Der Export dauert eine Weile. Bitte warten...")
    25. S8_Film_Name = ordnerS8_Film.GetFiles.First.Name
    27. p.StartInfo.UseShellExecute = False
    28. p.StartInfo.FileName = "C:\ffmpeg\bin\ffmpeg.exe"
    29. p.StartInfo.Arguments = " -i C:\ffmpeg\bin\S8-Film\" & S8_Film_Name & " -r 20 C:\ffmpeg\bin\extrahierte_Bilder\img-%06d.png"
    30. p.StartInfo.WindowStyle = ProcessWindowStyle.Hidden
    31. p.StartInfo.CreateNoWindow = True
    32. p.Start()
    33. p.WaitForExit()
    34. MessageBox.Show("Die Bilder wurden extrahiert.")
    35. End Sub
    36. Private Sub InitializeComponent()
    37. Me.ButtonFilmLaden = New System.Windows.Forms.Button()
    38. Me.Label1 = New System.Windows.Forms.Label()
    39. Me.SuspendLayout()
    40. '
    41. 'ButtonFilmLaden
    42. '
    43. Me.ButtonFilmLaden.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    44. Me.ButtonFilmLaden.Location = New System.Drawing.Point(52, 65)
    45. Me.ButtonFilmLaden.Name = "ButtonFilmLaden"
    46. Me.ButtonFilmLaden.Size = New System.Drawing.Size(114, 40)
    47. Me.ButtonFilmLaden.TabIndex = 0
    48. Me.ButtonFilmLaden.Text = "Film laden"
    49. Me.ButtonFilmLaden.UseVisualStyleBackColor = True
    50. '
    51. 'Label1
    52. '
    53. Me.Label1.AutoSize = True
    54. Me.Label1.Font = New System.Drawing.Font("Microsoft Sans Serif", 12.0!, System.Drawing.FontStyle.Italic, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
    55. Me.Label1.Location = New System.Drawing.Point(49, 18)
    56. Me.Label1.Name = "Label1"
    57. Me.Label1.Size = New System.Drawing.Size(106, 20)
    58. Me.Label1.TabIndex = 1
    59. Me.Label1.Text = "S8-Film laden"
    60. '
    61. 'Form6
    62. '
    63. Me.ClientSize = New System.Drawing.Size(634, 392)
    64. Me.Controls.Add(Me.Label1)
    65. Me.Controls.Add(Me.ButtonFilmLaden)
    66. Me.Name = "Form6"
    67. Me.ResumeLayout(False)
    68. Me.PerformLayout()
    70. End Sub
    72. Private Sub ButtonFilmLaden_Click(sender As Object, e As EventArgs) Handles ButtonFilmLaden.Click
    73. 'Film auswählen, der analysiert werden soll
    74. '(Weil nicht jeder Film Hänger beinhaltet!!)
    75. Dim DateiPfad As String = ""
    76. Dim FilmName As String = ""
    77. Dim MeinOpenFileDialog As New OpenFileDialog()
    78. If ordnerS8_Film.GetFiles.Count >= 1 Then
    79. MessageBox.Show("Es befindet sich ein (oder mehrere) zu extrahierende(r) S8-Film im S8-Film-Ordner. Das Programm wird beendet.")
    80. Exit Sub
    81. End If
    82. If MeinOpenFileDialog.ShowDialog() = DialogResult.OK Then
    83. DateiPfad = MeinOpenFileDialog.FileName
    84. FilmName = Path.GetFileName(DateiPfad)
    85. 'pfadHerkunft = Path.GetDirectoryName(MeinOpenFileDialog.FileName)
    86. My.Computer.FileSystem.CopyFile(DateiPfad, pfadZuExtrahierender_S8_Film & FilmName, FileIO.UIOption.AllDialogs, FileIO.UICancelOption.DoNothing)
    87. End If
    88. End Sub
    90. Private Sub ButtonFilmLöschen_Click(sender As Object, e As EventArgs) Handles ButtonFilmLöschen.Click
    91. For Each f In ordnerS8_Film.GetFiles()
    92. f.Delete()
    93. Next
    94. MessageBox.Show("Der Film wurde gelöscht.")
    95. End Sub
    96. Private Sub ButtonBilderLöschen_Click(sender As Object, e As EventArgs) Handles ButtonBilderLöschen.Click
    97. For Each f In ordnerExtrahierte_Bilder.GetFiles
    98. f.Delete()
    99. Next
    100. MessageBox.Show("Die Bilder wurden gelöscht.")
    101. End Sub
    102. End Class

    @kwon Mach Dir eine neue Form6 und gestalte die GUI im Designer.
    Dann sollte das nicht mehr passieren.
    Das mit Process p ist unklar.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

    Da hat sich wohl ein kleiner Unfall ergeben. Der Großteil sollte in einer eigenen Datei namens Form6.Designer.vb sein. Kopiere Dir die Zeilen#4-#5, #11-#35, #72-#101 in eine Textdatei, lösch die oben gezeigte Datei, erstell - wie RfG meinte - eine neue Form6 (schleußliche Benennung!) Datei und dann kannst Du den kopierten Code da rein packen. Die Designer könnte man mit den restlichen Codezeilen wohl auch wiederherstellen. Aber eines nach dem anderen.
    Dieser Beitrag wurde bereits 5 mal editiert, zuletzt von „VaporiZed“, mal wieder aus Grammatikgründen.

    Aufgrund spontaner Selbsteintrübung sind all meine Glaskugeln beim Hersteller. Lasst mich daher bitte nicht den Spekulatiusbackmodus wechseln.

    Hallo RodFromGermany,
    Hallo VaporiZed,

    @RodFromGermany oder @VaporiZed:

    Danke nochmals für die Hilfe!!

    Habe ich das richtig verstanden?:

    Also ich kopiere den für mich relevanten Code, lösche Form6.vb, designe eine neue Form6 und kopiere den Code da rein...

    Aber "Form6.resx" und "Form6.Designer.vb" soll ich NICHT löschen, oder?

    Vielen Dank nochmals...

    kwon schrieb:

    lösche Form6.vb
    "Form6.resx" und "Form6.Designer.vb" sind unmittelbar Bestandteil von Form6.
    Gib der neuen Form einen sinnvollen Namen.
    Wenn Du fertig bist, löschst Du alle 3 Dateien.
    Falls Du diesen Code kopierst, achte auf die C&P-Bremse.
    Jede einzelne Zeile Deines Programms, die Du nicht explizit getestet hast, ist falsch :!:
    Ein guter .NET-Snippetkonverter (der ist verfügbar).
    Programmierfragen über PN / Konversation werden ignoriert!

Facebook
Telefonspende