Am einfachsten ist, das hier einzufügen:

Sub New()
   Me.KeyPreview = True
End Sub

Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress

   If e.KeyCode = Keys.P Then
        Me.Close()   ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden.
   End If

End Sub

Sollte funktionieren (ist aus dem Kopf geschreiben).

Mit freundlichen Grüssen, Stefan Wittwer

...zur Antwort

Zuerst natürlich in der Form (Designer) KeyPreview auf True setzen, dann im Code das hier einfügen:

Sub EndeAufTastendruck(ByVal sender As Object, ByVal e As KeyPressEventArgs) Handles Me.KeyPress

If e.KeyCode = Keys.P Then Me.Close() ' Oder für ein sofortiges Beenden der gesamten Anwendung anstelle von Me.Close() die drei Buchstaben «End» verwenden. End If

End Sub

...zur Antwort

Möglicherweise wird die Leistung durch geöffnete Programme oder Prozesse/Dienste beeinträchtigt. Die anderen Programme schliessen und im Task-Manager nach unnötigen Leistung-verschlingenden Prozessen suchen und diese beenden. Wenn's nichts nützt und der Speicherplatz auch ausreichend ist, liegt's an der Grafikkarte.

Freundliche Grüsse

Stefan Wittwer

...zur Antwort
Weitere Inhalte können nur Nutzer sehen, die bei uns eingeloggt sind.