[Help?]

[paranoid_ 16]

Hey... Schreibe auf deutsch da mein Zustand mir nicht erlauben wird korrecktes Englisch zu schreiben.

 

Also ..

Ich mag in ein Projekt Hotkeys einbauen und kenne den Code nicht ... bzw weiß nicht wie ich ihn anwende.

Zb. wenn ich F6 drücke ist der timer1 enabled .

Ich benutze VB 08

Bitte ein Beispiel!!

 

MySQL

[Maxn 5060]

http://www.vbarchiv.net/api/api_getasynckeystate.html

[moger 1]

Hey... Schreibe auf deutsch da mein Zustand mir nicht erlauben wird korrecktes Englisch zu schreiben.

 

Also ..

Ich mag in ein Projekt Hotkeys einbauen und kenne den Code nicht ... bzw weiß nicht wie ich ihn anwende.

Zb. wenn ich F6 drücke ist der timer1 enabled .

Ich benutze VB 08

Bitte ein Beispiel!!

 

MySQL

 

 

vb6 wäre das :

 

Public Declare Function getkey Lib "user32" Alias "GetAsyncKeyState" (ByVal key As Long) As Integer

If getkey(vbKeyF8) Then
....
end if

 

sry vb 08 weis ich nicht

[BlackLabel™ 0]

Ahh

 

da hab ich doch was für dich:

 

 

Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer
Private Sub Timer3_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer3.Tick
	Dim starthotkey As Boolean
	Dim stophotkey As Boolean
	starthotkey = GetAsyncKeyState(Keys.F7)
	stophotkey = GetAsyncKeyState(Keys.F8)
	If starthotkey = True Then
		'Start
		Timer1.Enabled = True
	End If
	If stophotkey = True Then
		'Stop
		Timer1.Enabled = False
	End If
End Sub

[paranoid_ 16]

danke an alle 3 ^^

closed