Keydown einer anderen Form

  • VB.NET

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

    Keydown einer anderen Form

    Hallo!
    Ich habe ein Problem.
    Ich möchte das Keydown event einer Form zb.form1 aufrufen, sodass ich nicht alles in die andere Form zb. form2 übertragen muss, da das ganzschön viel ist. Nun habe ich es versucht mit: Form1.Keydown(sender,e) im keydownevent der form2. Da sagt mir VB ich solle das Raisevent nutzen. Nur was ist das?
    Gruß Chris

    Eventuell bringt dich folgendes Beispiel aus der VS-Hilfe auf Ideen:

    VB.NET-Quellcode

    1. Imports System.Windows.Forms
    2. Imports System.Security.Permissions
    4. Public Class Form1
    5. Inherits System.Windows.Forms.Form
    7. ' Declare the controls contained on the form.
    8. Private WithEvents button1 As MyMnemonicButton
    9. Friend WithEvents ListBox1 As System.Windows.Forms.ListBox
    11. Public Sub New()
    12. MyBase.New()
    14. ' Set KeyPreview object to true to allow the form to process
    15. ' the key before the control with focus processes it.
    16. Me.KeyPreview = True
    18. ' Add a MyMnemonicButton.
    19. button1 = New MyMnemonicButton
    20. button1.Text = "&Click"
    21. button1.Location = New System.Drawing.Point(100, 120)
    22. Me.Controls.Add(button1)
    24. ' Initialize a ListBox control and the form itself.
    25. Me.ListBox1 = New System.Windows.Forms.ListBox
    26. Me.SuspendLayout()
    27. Me.ListBox1.Location = New System.Drawing.Point(8, 8)
    28. Me.ListBox1.Name = "ListBox1"
    29. Me.ListBox1.Size = New System.Drawing.Size(120, 95)
    30. Me.ListBox1.TabIndex = 0
    31. Me.ListBox1.Text = "Press a key"
    32. Me.ClientSize = New System.Drawing.Size(292, 266)
    33. Me.Controls.Add(Me.ListBox1)
    34. Me.Name = "Form1"
    35. Me.Text = "Form1"
    36. Me.ResumeLayout(False)
    38. End Sub
    40. ' The form will handle all key events before the control with
    41. ' focus handles them. Show the keys pressed by adding the
    42. ' KeyCode object to ListBox1. Ensure the processing is passed
    43. ' to the control with focus by setting the KeyEventArg.Handled
    44. ' property to false.
    45. Private Sub Form1_KeyDown(ByVal sender As Object, _
    46. ByVal e As KeyEventArgs) Handles MyBase.KeyDown
    47. ListBox1.Items.Add(e.KeyCode)
    48. e.Handled = False
    49. End Sub
    51. <System.STAThreadAttribute()> Public Shared Sub Main()
    52. Application.Run(New Form1)
    53. End Sub
    55. End Class
    58. ' This button is a simple extension of the button class that overrides
    59. ' the ProcessMnemonic method. If the mnemonic is correctly entered,
    60. ' the message box will appear and the click event will be raised.
    61. Public Class MyMnemonicButton
    62. Inherits Button
    64. ' This method makes sure the control is selectable and the
    65. ' mneumonic is correct before displaying the message box
    66. ' and triggering the click event.
    67. <System.Security.Permissions.UIPermission( _
    68. System.Security.Permissions.SecurityAction.Demand, Window:=UIPermissionWindow.AllWindows)> _
    69. Protected Overrides Function ProcessMnemonic( _
    70. ByVal inputChar As Char) As Boolean
    72. If (CanSelect And IsMnemonic(inputChar, Me.Text)) Then
    73. MessageBox.Show("You've raised the click event " _
    74. & "using the mnemonic.")
    75. Me.PerformClick()
    76. Return True
    77. End If
    78. Return False
    79. End Function
    81. End Class


    Gruß,

    f0x

    Nein, ehrlich gesagt, sagt mir das garnichts.
    Was soll das überhaupt darstellen?
    EDIT (kein Doppelpost^^):

    INOPIAE schrieb:

    Was hälst Du davon den Code Deines KeyDown-Ereignises in ein seperate Klasse auszulagern und dann in den einzelnen Formularen einzubinden?


    Oh man, wieso fällt mir das nie ein? Nagut ich stehe unter Zeitdruck.
    Danke, so werde ich es machen.

    In form2:

    VB.NET-Quellcode

    1. Public Sub Form2_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
    2. Debug.Print(e.KeyValue.ToString)
    3. End Sub

    PUBLIC!! ist wichtig ...

    in form1_load:

    VB.NET-Quellcode

    1. AddHandler Me.KeyDown, AddressOf Form2.Form2_KeyDown

    nicht vergessen, keypreview auf true zu setzen ...

    versteh zwar gerade nicht worauf du hinauswillst, aber ...

    EINE Prozedure kann das Ziel von beliebig vielen Events sein.
    JEDE Form deren Event(s) woanders behandelt werden sollen muss natürlich so ein AddHandler statement haben.

    Der eigentliche Eventhandler braucht natürlich nicht mal in einer Form sein. Hauptsache die "Signatur" stimmt.

    Ich hab jetzt selber nochmal getüftelt.
    Man muss es nochnichmal so machen wie du oben.
    Es geht auch so:
    In die Form2_Shown:

    VB.NET-Quellcode

    1.   AddHandler Me.KeyDown, AddressOf Form1.Form1_KeyDown

    Dann Keypriv. auf True
    FERTIG - Dann funzt es. Auch bei einem Mdiparent, da wirkt das Keypriv. auf die einzelnen Childforms wie bei einer normalen Form die Controls.
    Danke!

Facebook
Telefonspende