KeyDown-Fehler beim Anzeigen einer Form

  • VB.NET

Es gibt 6 Antworten in diesem Thema. Der letzte Beitrag () ist von RodFromGermany.

    KeyDown-Fehler beim Anzeigen einer Form

    Tach allerseits :)

    So bin mal wieder am Proggen und hab ein kleines Problem:

    Beim Aufruf von Form2.Show() kommt der Fehler:

    System.InvalidOperationException: Nachricht = Fehler beim Erstellen des Formulars. Weitere Informationen finden Sie in Exception.InnerException. Fehler: Das Ereignis KeyDown ist für dieses ActiveX-Steuerelement ungültig..

    HIntergrund: Es soll auf einer Form2 ein WindowsMediaPlayer Videos im Vollbildmodus anzeigen und die Tastenanschläge abfangen, um das Video zu pausieren. Bisher hatte ich den Code dafür in der Form2_KeyDown(). Das hat aber nicht funktioniert (bei Tastenanschlag passierte gar nichts), dann hab ich den Code in die WindowsMediaPlayer_KeyDown() verschoben. Dann trat der Fehler auf. Und auch beim rückgänigig machen des Verschiebens tritt jetzt auf einmal dieser Fehler auf...

    Ihr braucht bestimmt noch weitere Codezeilen oder Infos, bitte einfach kurz schreiben, was von Relevanz sein könnte... Ich weiss ehrlich gesagt nicht, wo ich da anfangen soll...

    Du hast den Thread mit VB6 getaggt. Ist dem so oder arbeitest Du mit Visual Studio und somit VB.NET? Ich tippe auf VB.NET.

    kafffee schrieb:

    Das hat aber nicht funktioniert (bei Tastenanschlag passierte gar nichts)
    Da musst Du beim Form KeyPreview auf True einstellen, damit da was ankommt.
    Wenn KeyDown für ein ActiveX-Control nicht zur Verfügung steht, dann isses eben so.
    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.

    kafffee schrieb:

    Beim Aufruf von Form2.Show() kommt der Fehler:
    Verstehe wieder einmal diesen Thread:
    Dialoge: Instanziierung von Forms und Aufruf von Dialogen
    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!

    VaporiZed schrieb:

    Du hast den Thread mit VB6 getaggt. Ist dem so oder arbeitest Du mit Visual Studio und somit VB.NET? Ich tippe auf VB.NET.


    Ich hab mich aus Versehen verklickt beim Erstellen des Threads, sorry dafür, ich hab das gerade behoben...

    VaporiZed schrieb:

    Da musst Du beim Form KeyPreview auf True einstellen, damit da was ankommt.


    OK das funktioniert. Aber nur beim ersten Video. Sobald ich ein zweites lade und anzeige, wird das Ereignis nicht mehr ausgelöst (ich hab das überprüft, es liegt wirklich daran, dass das KeyDown-Event nicht ausgelöst wird). Kann das sein, dass meine Form irgendwie den Fokus verliert?

    kafffee schrieb:

    Kann das sein, dass meine Form irgendwie den Fokus verliert?
    Ja.
    Das hängt ganz von Deinem Code ab.
    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!

    Hier der Code, so wie er ist (einige Zeilen hätte ich mir wohl wahrscheinlich sparen können):

    EDIT: Ok hat geklappt, ich hab in Zeile 34 noch ein Me.Focus() eingefügt.

    VB.NET-Quellcode

    1. Public Sub Uhr()
    2. If Startbildschirm.ListBox1.Items.Count = 0 Then
    3. MessageBox.Show("Im ausgewählten Ordner sind keine unterstützten Dateien!")
    4. Me.Hide()
    5. Startbildschirm.Show()
    6. Else
    8. Me.Focus()
    10. If Startbildschirm.ListBox2.Items(Zaehler).ToString.ToLower.EndsWith(".avi") Or Startbildschirm.ListBox2.Items(Zaehler).ToString.ToLower().EndsWith(".mp4") Or Startbildschirm.ListBox1.Items(Zaehler).ToString.ToLower().EndsWith(".avi") Or Startbildschirm.ListBox1.Items(Zaehler).ToString.ToLower().EndsWith(".mp4") Then
    11. Timer1.Stop()
    12. AxWindowsMediaPlayer1.Top = 0
    13. AxWindowsMediaPlayer1.Left = 0
    14. AxWindowsMediaPlayer1.Height = Me.Height
    15. AxWindowsMediaPlayer1.Width = Me.Width
    17. PictureBox1.Enabled = False
    18. PictureBox1.Visible = False
    19. AxWindowsMediaPlayer1.Enabled = True
    20. AxWindowsMediaPlayer1.Visible = True
    22. If Startbildschirm.chkZufall.Checked = True Then
    23. AxWindowsMediaPlayer1.URL = CStr(Startbildschirm.ListBox2.Items(Zaehler)) 'ListBox2 beinhaltet die Dateinamen in zufälliger Reihenfolge
    24. Else
    25. AxWindowsMediaPlayer1.URL = CStr(Startbildschirm.ListBox1.Items(Zaehler)) 'ListBox1 beinhaltet die Dateinamen in sortierter Reihenfolge
    26. End If
    28. Do While AxWindowsMediaPlayer1.playState <> WMPLib.WMPPlayState.wmppsPlaying 'was diese drei nächsten Zeilen verstehe ich nicht, ich hab das von irgendwoher übernommen
    29. Application.DoEvents()
    30. Loop
    31. AxWindowsMediaPlayer1.fullScreen = True
    33. AxWindowsMediaPlayer1.Ctlcontrols.play()
    34. If Zaehler = Startbildschirm.ListBox2.Items.Count - 1 Then
    35. Zaehler = 0
    36. Else
    37. Zaehler = Zaehler + 1
    38. End If
    40. Else
    41. [...] 'Dieser Code ist für Bilddateien, funktioniert aber einwandfrei...
    42. Timer1.Stop()
    43. PictureBox1.Left = 0
    44. PictureBox1.Top = 0
    45. PictureBox1.Size = New Size(Me.Width, Me.Height)
    46. Timer1.Interval = CInt(Startbildschirm.numSekundenzahl.Value * 1000)
    47. Timer1.Enabled = True
    48. PictureBox1.Enabled = True
    49. PictureBox1.Visible = True
    50. AxWindowsMediaPlayer1.Enabled = False
    51. AxWindowsMediaPlayer1.Visible = False
    53. If Startbildschirm.chkZufall.Checked = True Then
    54. PictureBox1.Image = Image.FromFile(CType(Startbildschirm.ListBox2.Items(Zaehler), String))
    55. Else
    57. PictureBox1.Image = Image.FromFile(CType(Startbildschirm.ListBox1.Items(Zaehler), String))
    58. End If
    60. Timer1.Start()
    62. If Zaehler = Startbildschirm.ListBox2.Items.Count - 1 Then
    63. Zaehler = 0
    64. Else
    65. Zaehler = Zaehler + 1
    66. End If
    67. End If
    68. End If
    70. End Sub


    Aufgerufen wird er beim ersten Video mit:

    VB.NET-Quellcode

    1. Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    3. TimerOn = True
    4. Zaehler = 0
    5. Timer1.Interval = CInt(Startbildschirm.numSekundenzahl.Value * 1000)
    6. MessageBox.Show("SPACE: nächstes Bild/Video" & Environment.NewLine & "KLICK: pausieren" & Environment.NewLine & "ESC: beenden")
    7. Uhr()
    9. End Sub


    und bei einem Tastenanschlag mit:

    VB.NET-Quellcode

    1. Private Sub Form2_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
    3. If e.KeyCode = Keys.Escape Then
    4. Zaehler = 0
    5. Timer1.Stop()
    6. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    7. Me.Hide()
    8. Startbildschirm.ListBox2.DataSource = New String() {}
    9. 'Startbildschirm.ListBox2.Refresh()
    10. Startbildschirm.ListBox1.Items.Clear()
    11. Startbildschirm.Show()
    12. ElseIf e.KeyCode = Keys.Space Then
    13. MessageBox.Show("keydownklappt")
    14. AxWindowsMediaPlayer1.Ctlcontrols.stop()
    16. Uhr()
    17. End If

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „kafffee“ ()

    Ich denke mal, dass der Unterschied darin besteht, dass Form2 initial da ist bzw. den Fokus hat oder nicht.
    Setze beim Start des 2. Videos einfach den Fokus auf Form2.
    Da gibt es SetForegroundWindow() und SetFocus(), sieh Dir beides an.
    pinvoke.net/default.aspx/user32.setforegroundwindow
    pinvoke.net/default.aspx/user32.setfocus
    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