Programm Ein-/Ausblenden bei bestimmter Taste
- VB.NET
Sie verwenden einen veralteten Browser (%browser%) mit Sicherheitsschwachstellen und können nicht alle Funktionen dieser Webseite nutzen.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Hier erfahren Sie, wie einfach Sie Ihren Browser aktualisieren können.
Es gibt 22 Antworten in diesem Thema. Der letzte Beitrag () ist von Twerpyfie.
-
-
Hotkey
Minimieren/Maximiere mit "Me.WindowState"
& Das alles in ne "IF-Schleife" packen. So kommst du zum Ziel.
mfg Twerpyfie -
Twerpyfie schrieb:
Hotkey
Minimieren/Maximiere mit "Me.WindowState"
& Das alles in ne "IF-Schleife" packen. So kommst du zum Ziel.
mfg Twerpyfie
Sorry aber ich bin dumm -.-
kannst du einen genauen Befehl geben dass sich die Form2.vb beim "entf" oder "einfg" Aus/einlbended
Danke -
-
VisualBasicNoob schrieb:
wie mache ich das ?
Sorry aber ich bin dumm -.-
kannst du einen genauen Befehl geben dass sich die Form2.vb beim "entf" oder "einfg" Aus/einlbended
Danke
Der Code wurde dir bereits im Hotkey-Thread bereits genug vorgekaut, du musst nur ein bisschen was umändern:
VB.NET-Quellcode
- Dim A As Byte = 0
- Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
- Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
- Private Const Key_NONE As Integer = &H0
- Private Const WM_HOTKEY As Integer = &H312
- Protected Overrides Sub WndProc(ByRef m As Message)
- 'die messages auswerten
- If m.Msg = WM_HOTKEY Then
- 'hier wird entschieden welcher hotkey es war
- 'einfach die übergebene id auswerten
- Select Case m.WParam
- Case 1
- If A = 0 Then
- Me.Hide()
- A = 1
- Else
- Me.Show()
- A = 0
- End If
- End Select
- End If
- MyBase.WndProc(m)
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- 'die tab taste wieder freigeben
- UnregisterHotKey(Me.Handle, 1)
- UnregisterHotKey(Me.Handle, 2)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'die tab taste abfangen
- RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Delete)
- End Sub
Funktioniert & getestet.Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Max1001“ ()
-
Twerpyfie schrieb:
Hotkey
Minimieren/Maximiere mit "Me.WindowState"
& Das alles in ne "IF-Schleife" packen. So kommst du zum Ziel.
mfg Twerpyfiewie mache ich das ?
Sorry aber ich bin dumm -.-
kannst du einen genauen Befehl geben dass sich die Form2.vb beim "entf" oder "einfg" Aus/einlbended
Danke
Also i wie ghet das nicht -.- -
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! -
-
VisualBasicNoob schrieb:
also es soll einfach wenn ich "einfg" drücke die form2 zeigen/verstecken
so zu sagen ein "Secret Menu"
und der Code geht i wie nicht bei mir ??
in meinem Code durch
Insert = engl. Einfügen
d.h erscheint beim Drücken der Einfügen-Taste die Form und verschwindet bei nochmaligem Drücken wieder! -
Max1001 schrieb:
VisualBasicNoob schrieb:
also es soll einfach wenn ich "einfg" drücke die form2 zeigen/verstecken
so zu sagen ein "Secret Menu"
und der Code geht i wie nicht bei mir ??
in meinem Code durch
Insert = engl. Einfügen
d.h erscheint beim Drücken der Einfügen-Taste die Form und verschwindet bei nochmaligem Drücken wieder!
Sry ich mach meinem Namen volle Ehre
-
VisualBasicNoob schrieb:
Max1001 schrieb:
VisualBasicNoob schrieb:
also es soll einfach wenn ich "einfg" drücke die form2 zeigen/verstecken
so zu sagen ein "Secret Menu"
und der Code geht i wie nicht bei mir ??
in meinem Code durch
Insert = engl. Einfügen
d.h erscheint beim Drücken der Einfügen-Taste die Form und verschwindet bei nochmaligem Drücken wieder!
Sry ich mach meinem Namen volle Ehre
oh Mann....
Füge dieses hübsche Stücke Code in die Class ein:
VB.NET-Quellcode
- Dim A As Byte = 0
- Private Declare Function RegisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer, ByVal fsModifier As Integer, ByVal vk As Integer) As Integer
- Private Declare Sub UnregisterHotKey Lib "user32" (ByVal hWnd As IntPtr, ByVal id As Integer)
- Private Const Key_NONE As Integer = &H0
- Private Const WM_HOTKEY As Integer = &H312
- Protected Overrides Sub WndProc(ByRef m As Message)
- 'die messages auswerten
- If m.Msg = WM_HOTKEY Then
- 'hier wird entschieden welcher hotkey es war
- 'einfach die übergebene id auswerten
- Select Case m.WParam
- Case 1
- If A = 0 Then
- Me.Hide()
- A = 1
- Else
- Me.Show()
- A = 0
- End If
- End Select
- End If
- MyBase.WndProc(m)
- End Sub
- Private Sub Form1_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
- 'die tab taste wieder freigeben
- UnregisterHotKey(Me.Handle, 1)
- UnregisterHotKey(Me.Handle, 2)
- End Sub
- Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
- 'die tab taste abfangen
- RegisterHotKey(Me.Handle, 1, Key_NONE, Keys.Insert)
- RegisterHotKey(Me.Handle, 2, Key_NONE, Keys.D1)
- End Sub
pls bedanken wenns geklappt hatDieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Max1001“ ()
-
-
SystemUnknow schrieb:
-
-
-
Fehler 1 Das Schlüsselwort ist kein gültiger Bezeichner. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 5 12 CrossFire VIP Hack
Fehler 2 Das Schlüsselwort ist kein gültiger Bezeichner. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 6 10 CrossFire VIP Hack
Fehler 3 "Private" ist bei der Deklaration von lokalen Konstanten ungültig. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 7 9 CrossFire VIP Hack
Fehler 4 "Private" ist bei der Deklaration von lokalen Konstanten ungültig. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 8 9 CrossFire VIP Hack
Fehler 5 Eine Anweisung kann nicht innerhalb eines Methodentexts verwendet werden. Das Methodenende wird angenommen. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 10 5 CrossFire VIP Hack
Fehler 6 "WM_HOTKEY" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 12 20 CrossFire VIP Hack
Fehler 7 "A" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 17 24 CrossFire VIP Hack
Fehler 8 "A" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 19 25 CrossFire VIP Hack
Fehler 9 "A" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 22 25 CrossFire VIP Hack
Fehler 10 "UnregisterHotKey" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 32 9 CrossFire VIP Hack
Fehler 11 "UnregisterHotKey" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 33 9 CrossFire VIP Hack
Fehler 12 "RegisterHotKey" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 38 9 CrossFire VIP Hack
Fehler 13 "Key_NONE" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 38 38 CrossFire VIP Hack
Fehler 14 "RegisterHotKey" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 39 9 CrossFire VIP Hack
Fehler 15 "Key_NONE" wurde nicht deklariert. Auf das Objekt kann aufgrund seiner Schutzstufe möglicherweise nicht zugegriffen werden. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 39 38 CrossFire VIP Hack
Fehler 16 "End Sub" muss ein entsprechendes "Sub" voranstehen. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 42 5 CrossFire VIP Hack
Das sind die Fehler -
-
also bei mir funktionierts!
Könnte es vielleicht mit der VB-Version zusammenhängen?
Ich hab VB 2010, welche hast du?
Fehler 1 Das Schlüsselwort ist kein gültiger Bezeichner. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 5 12 CrossFire VIP Hack
ps:
Fehler 1 Das Schlüsselwort ist kein gültiger Bezeichner. C:\Users\Patrick\documents\visual studio 2010\Projects\CrossFire VIP Hack\CrossFire VIP Hack\Form2.vb 5 12 CrossFire VIP Hack
-.- -
-
-
Ähnliche Themen
-
2 Benutzer haben hier geschrieben
- Gast (22)
- RodFromGermany (1)