Datagridview Keypress Event

  • VB.NET

Es gibt 14 Antworten in diesem Thema. Der letzte Beitrag () ist von Zim.

    Datagridview Keypress Event

    Hey ho
    ich bins schooon wieder

    Wie fragt man den Keypress event von einem Datagridview ab ?

    VB.NET-Quellcode

    1. Private Sub Datagrid_KeyPress(ByVal sender As System.Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles DGV_Kali.KeyPress
    2. End Sub


    Reagiert nicht auf Tastendruck 8|

    Du rufst das Ereignis Datagridview1.Keydown auf und schreibst dort folgenden Code rein:

    VB.NET-Quellcode

    1. if e.keycode = keys.enter then
    2. msgbox ("Es wurde Enter gedrückt.")
    3. end if

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Jannik Schüttler“ ()

    Offensichtlich wirft nur Enter solch ein Event. :S
    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!

    Sooo ich hab mal ein wenig mit Tastatur Hooks experementiert. Geht soweit auch ganz gut.
    Aber ich kann nicht abfragen ob ich bereits ein Komma oder Punkt geschrieben hab da kommt dann immer "NullReferenceExeption..."
    Wie kann ich des denn am besten testen ohne mir merken zu müssen ob ich die Tasten schon gedrückt habe.


    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function KeyboardHookProc(ByVal nCode As Integer, _
    2. ByVal wParam As IntPtr, _
    3. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    5. Dim fEatKeyStroke As Boolean
    7. If nCode = HC_ACTION Then
    9. Select Case lParam.vkCode
    10. ' Hier z.B. die Zeichen a und b nicht zulassen
    11. '(fEatKeyStroke = True)
    12. Case Keys.D0
    13. fEatKeyStroke = False
    14. Case Keys.D1
    15. fEatKeyStroke = False
    16. Case Keys.D2
    17. fEatKeyStroke = False
    18. Case Keys.D3
    19. fEatKeyStroke = False
    20. Case Keys.D4
    21. fEatKeyStroke = False
    22. Case Keys.D5
    23. fEatKeyStroke = False
    24. Case Keys.D6
    25. fEatKeyStroke = False
    26. Case Keys.D7
    27. fEatKeyStroke = False
    28. Case Keys.D8
    29. fEatKeyStroke = False
    30. Case Keys.D9
    31. fEatKeyStroke = False
    32. Case Keys.NumPad0
    33. fEatKeyStroke = False
    34. Case Keys.NumPad1
    35. fEatKeyStroke = False
    36. Case Keys.NumPad2
    37. fEatKeyStroke = False
    38. Case Keys.NumPad3
    39. fEatKeyStroke = False
    40. Case Keys.NumPad4
    41. fEatKeyStroke = False
    42. Case Keys.NumPad5
    43. fEatKeyStroke = False
    44. Case Keys.NumPad6
    45. fEatKeyStroke = False
    46. Case Keys.NumPad7
    47. fEatKeyStroke = False
    48. Case Keys.NumPad8
    49. fEatKeyStroke = False
    50. Case Keys.NumPad9
    51. fEatKeyStroke = False
    52. Case Keys.OemPeriod
    53. IfDGV_Kali.CurrentCell.Value.ToString.IndexOf(".") = -1 Then
    54. fEatKeyStroke = False
    55. Else
    56. fEatKeyStroke = True
    57. End If
    58. Case Keys.Oemcomma
    59. If DGV_Kali.CurrentCell.Value.ToString.IndexOf(",") = -1 Then
    60. fEatKeyStroke = False
    61. Else
    62. fEatKeyStroke = True
    63. End If
    64. Case Keys.Back
    65. fEatKeyStroke = False
    66. Case Keys.Delete
    67. fEatKeyStroke = False
    68. Case Else
    69. fEatKeyStroke = True
    71. End Select
    73. If fEatKeyStroke Then
    74. Return New IntPtr(1)
    75. Exit Function
    76. End If
    78. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
    79. End If
    80. End Function

    Habs gelöst ;)

    Spoiler anzeigen

    VB.NET-Quellcode

    1. Private Function KeyboardHookProc(ByVal nCode As Integer, _
    2. ByVal wParam As IntPtr, _
    3. ByRef lParam As KBDLLHOOKSTRUCT) As IntPtr
    5. Dim fEatKeyStroke As Boolean
    7. If nCode = HC_ACTION Then
    9. Select Case lParam.vkCode
    10. ' Hier z.B. die Zeichen a und b nicht zulassen
    11. '(fEatKeyStroke = True)
    12. Case Keys.D0
    13. fEatKeyStroke = False
    14. Case Keys.D1
    15. fEatKeyStroke = False
    16. Case Keys.D2
    17. fEatKeyStroke = False
    18. Case Keys.D3
    19. fEatKeyStroke = False
    20. Case Keys.D4
    21. fEatKeyStroke = False
    22. Case Keys.D5
    23. fEatKeyStroke = False
    24. Case Keys.D6
    25. fEatKeyStroke = False
    26. Case Keys.D7
    27. fEatKeyStroke = False
    28. Case Keys.D8
    29. fEatKeyStroke = False
    30. Case Keys.D9
    31. fEatKeyStroke = False
    32. Case Keys.NumPad0
    33. fEatKeyStroke = False
    34. Case Keys.NumPad1
    35. fEatKeyStroke = False
    36. Case Keys.NumPad2
    37. fEatKeyStroke = False
    38. Case Keys.NumPad3
    39. fEatKeyStroke = False
    40. Case Keys.NumPad4
    41. fEatKeyStroke = False
    42. Case Keys.NumPad5
    43. fEatKeyStroke = False
    44. Case Keys.NumPad6
    45. fEatKeyStroke = False
    46. Case Keys.NumPad7
    47. fEatKeyStroke = False
    48. Case Keys.NumPad8
    49. fEatKeyStroke = False
    50. Case Keys.NumPad9
    51. fEatKeyStroke = False
    52. Case Keys.OemPeriod
    53. If MainForm.DGV_Kali.CurrentCell.GetEditedFormattedValue(0, DataGridViewDataErrorContexts.ClipboardContent).ToString.IndexOf(",") = -1 And MainForm.DGV_Kali.CurrentCell.GetEditedFormattedValue(0, DataGridViewDataErrorContexts.ClipboardContent).ToString.IndexOf(".") = -1 Then
    54. fEatKeyStroke = False
    55. Else
    56. fEatKeyStroke = True
    57. End If
    58. Case Keys.Oemcomma
    59. If MainForm.DGV_Kali.CurrentCell.GetEditedFormattedValue(0, DataGridViewDataErrorContexts.ClipboardContent).ToString.IndexOf(",") = -1 And MainForm.DGV_Kali.CurrentCell.GetEditedFormattedValue(0, DataGridViewDataErrorContexts.ClipboardContent).ToString.IndexOf(".") = -1 Then
    60. fEatKeyStroke = False
    61. Else
    62. fEatKeyStroke = True
    63. End If
    64. Case Keys.Back
    65. fEatKeyStroke = False
    66. Case Keys.Delete
    67. fEatKeyStroke = False
    68. Case Keys.OemMinus
    69. If vb.left(MainForm.DGV_Kali.CurrentCell.GetEditedFormattedValue(0, DataGridViewDataErrorContexts.ClipboardContent).ToString, 1).IndexOf(",") = -1 Then
    70. fEatKeyStroke = False
    71. Else
    72. fEatKeyStroke = True
    73. End If
    74. Case Else
    75. fEatKeyStroke = True
    77. End Select
    79. If fEatKeyStroke Then
    80. Return New IntPtr(1)
    81. Exit Function
    82. End If
    84. Return CallNextHookEx(mHandle, nCode, wParam, lParam)
    85. End If
    86. End Function

Facebook
Telefonspende