Tastatureingaben abfangen

Hallo Zusammen,

ich hab folgendes Problem:

Ich fange mit einem Programm bestimmte Tastenkombinationen ab.
Das funktioniert auch soweit. Allerdings nur wenn die WindowsForm quasi im Vordergrund geöffnet ist.
Wenn ich sie minimiere, dann kann er die Tastenkombination nicht mehr abfangen.

Programmcode:

Public Class Form1

Private Sub frmTimingP2P_Load(ByVal sender As System.Object, ByVal e As _ 
                                   System.EventArgs) Handles MyBase.Load

        Me.KeyPreview = True

    End Sub

    Private Sub frmTimingP2P_KeyDown(ByVal Sender As Object, ByVal e As  _
                        System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown

        If (e.KeyCode = Keys.T AndAlso e.Modifiers = Keys.Control) Then
            MessageBox.Show("Ctrl + T")  
        End If

    End Sub
End Class

Nun meine Frage:
Bekommt man es irgendwie hin, dass er immer alle Tastenanschläge prüft, auch wenn die WindowsForma minimiert, oder nicht im Vodergrund ist ?

Vielen Dank im Vorraus

Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben

Content-ID: 278587

Url: https://administrator.de/forum/tastatureingaben-abfangen-278587.html

Ausgedruckt am: 25.12.2024 um 04:12 Uhr

7 Kommentare

Neuester Kommentar

Hallo,

Für sowas gibt es normal Dienste

Ja das stimmt.
Leider hat das alles einen anderen Hintrund,
es sollte schon eine Windows Form sein

So und jetzt frag dich mal selber wie man dir eine hinreichend korrekte Antwort geben kann wenn du die Hintergründe nicht kpl. klärst?

Ein paar Leute in einer bestimmten Abteilung nutzen ein Spezielles Tool.
Dafür ist es wichtig zu sehen, was die letzten Kopierten Text-Zeilen waren.

Meine Idee war:
Wenn STRG+C gedrückt wird, kopiere Text aus Zwischenablage in Textbox der WindowsForm.

Das ist der Hintergrund

Hi,
und wenn Du einfach permanent die Zwischenablage abfragen würdest und bei Änderung des Inhalts reagierst?

E.

@emeriks
So hab ich mir das ganze noch gar nicht überlegt

haha Mist

Danke :D

Fertig, funktioniert nun

Danke an @emeriks für den Denkanstoß

Public Class Clipboard


    Private Sub Clipboard_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Timer.Interval = 1300
        Timer.Enabled = True
        My.Computer.Clipboard.SetText("initiateClipboardSoftware")  
    End Sub



    Private Sub Timer_Tick(sender As Object, e As EventArgs) Handles Timer.Tick
        Me.Hide()

        'Wenn File in Clipboard, dann mach nichts...  
        Dim data As IDataObject = My.Computer.Clipboard.GetDataObject
        If data.GetDataPresent(DataFormats.FileDrop) Then

        Else
            If My.Computer.Clipboard.GetText.ToString <> "" Then  
                  txtString.Text = My.Computer.Clipboard.GetText.ToString
            Else
                If My.Computer.Clipboard.GetText.ToString = "" Then  
                    My.Computer.Clipboard.SetText(txtString.Text)
                Else
                End If
            End If
        End If
    End Sub



End Class