Announcement

Collapse
No announcement yet.

SendKeys.Send blockiert alles

Collapse
X
  • Filter
  • Time
  • Show
Clear All
new posts

  • SendKeys.Send blockiert alles

    Hallo,

    ich versuche im Textbox KeyDown Event die ENTER-Taste abzufangen und durch die TAB-Taste zu ersetzen. Ich bekomm aber den Aufruf der TAB-Taste nicht hin.

    [highlight=vb.net]
    If e.KeyCode = Keys.Enter Then
    If Not Me.Multiline Then
    SendKeys.Send("{TAB}")
    End If
    End If
    [/highlight]

    aus dem Send-Befehl kommt mein Programm dann erst zurück, wenn ich Str+Alt+Entf drücke.
    Kann mir jemand verraten was ich anders machen muss?


    EDIT: Habe gerade festgestellt, das der Befehl funktioniert. Lediglich der Debugger bleibt daran hängen, wenn man Durchstept.

    EDIT2: Funktioniert aber scheinbar nur dann, wenn ich vorher nichts in die Textbox eingegeben habe
    Zuletzt editiert von Andreas Mahr; 10.07.2009, 11:30.

  • #2
    Hallo Andreas,

    probier mal
    [highlight=vbnet]
    If e.KeyCode = Keys.Enter Then
    * * If Me.GetNextControl(ActiveControl, True) IsNot Nothing Then
    * * * * e.Handled = True* * * * * *
    * * * * Me.GetNextControl(ActiveControl, True).Focus()
    * * End If
    End If
    [/highlight]


    mfG Gü
    "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

    Comment


    • #3
      Code:
      If e.KeyCode = Keys.Enter Then
      * * e.KeyCode = Keys.Tab
      End If
      Sollte doch auch klappen, oder?

      Comment


      • #4
        Originally posted by fanderlf View Post
        Code:
        If e.KeyCode = Keys.Enter Then
        * * e.KeyCode = Keys.Tab
        End If
        Sollte doch auch klappen, oder?
        Leider nicht - die KeyCode-Eigenschaft ist schreibgeschützt und daher kann ihr nichts zugewiesen werden.


        mfG Gü
        "Any fool can write code that a computer can understand. Good programmers write code that humans can understand". - Martin Fowler

        Comment


        • #5
          Originally posted by gfoidl View Post
          Hallo Andreas,

          probier mal
          [highlight=vbnet]
          If e.KeyCode = Keys.Enter Then
          * * If Me.GetNextControl(ActiveControl, True) IsNot Nothing Then
          * * * * e.Handled = True* * * * * *
          * * * * Me.GetNextControl(ActiveControl, True).Focus()
          * * End If
          End If
          [/highlight]


          mfG Gü
          danke, das klappt

          Comment

          Working...
          X