Dann arbeite mit Hotkeys. Teste mal dies:Cozy schrieb:
Man soll mit ein paar Tastenkombinationen die wichtigsten Programme und Aktionen machen können.
Form mir 2 Buttons und einem Label.
VB.NET-Quellcode
- Public Class Form1
- Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal modifier As Integer, ByVal key As Integer) As Integer
- Private Declare Function UnregisterHotKey Lib "user32" (ByVal Hwnd As IntPtr, ByVal ID As Integer) As Integer
- Private Const Key_None As Integer = &H0
- Private Const Key_Alt As Integer = &H1
- Private Const Key_Ctrl As Integer = &H2
- Private Const Key_Shift As Integer = &H4
- Private Const Key_Win As Integer = &H8
- Private Const WM_HOTKEY As Integer = &H312
- Protected Overrides Sub WndProc(ByRef m As Message)
- If m.Msg = WM_HOTKEY Then
- Select Case CInt(m.WParam)
- Case 1 : Label1.Text = "A"
- Case 2 : Label1.Text = "Alt + B"
- Case 3 : Label1.Text = "Shift + Ctrl + C"
- Case 4 : Label1.Text = "Shift + Ctrl + Alt + Win + Q"
- End Select
- End If
- MyBase.WndProc(m)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- RegisterHotKey(Me.Handle, 1, Key_None, Keys.A)
- RegisterHotKey(Me.Handle, 2, Key_Alt, Keys.B)
- RegisterHotKey(Me.Handle, 3, Key_Shift Or Key_Ctrl, Keys.C)
- RegisterHotKey(Me.Handle, 4, Key_Shift Or Key_Ctrl Or Key_Alt Or Key_Win, Keys.Q)
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- UnregisterHotKey(Me.Handle, 1)
- UnregisterHotKey(Me.Handle, 2)
- UnregisterHotKey(Me.Handle, 3)
- UnregisterHotKey(Me.Handle, 4)
- End Sub
- End Class
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!
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!