Visual Basic Hotkey Function

[ZeaS²/KingClem 0]

Add this over Public.... Form1_Load....

[hide_me]

	Public Declare Function GetAsyncKeyState Lib "user32.dll" (ByVal vKey As Int32) As UShort

[/hide_me]

 

How to use:

 

Add this in a Timer:

[hide_me]

If GetAsyncKeyState(Keys.KEYHERE) Then
'FUNCTION HERE
end if

[/hide_me]

 

Credits:

-BlackDog

-Microsoft

[1зз7 0]

rep

[almar2023 0]

Add this over Public.... Form1_Load....

[ Hidden part. View original post. ]

 

How to use:

 

Add this in a Timer:

[ Hidden part. View original post. ]

 

Credits:

-BlackDog

-Microsoft

 

 

reply

[BmxAmaTT 0]

Super

[GHB-Aralias 0]

//rep

[jahwara 1]

j

[_-Badkardi-_ 0]

rep

[xEnjiN 4]

repp

[C0unt1ng 0]

hmm

[Freefall12 0]

rep

[RawVB 0]

rep

 

 

rep

[iZotope 1]

Add this over Public.... Form1_Load....

[ Hidden part. View original post. ]

 

How to use:

 

Add this in a Timer:

[ Hidden part. View original post. ]

 

Credits:

-BlackDog

-Microsoft

[killer-lion 0]

n1

[moger 1]

repp

[calofdark 0]

Add this over Public.... Form1_Load....

[ Hidden part. View original post. ]

 

How to use:

 

Add this in a Timer:

[ Hidden part. View original post. ]

 

Credits:

-BlackDog

-Microsoft

[Nasbit 2]

rep

[azakma 0]

rep

[Yearupie 0]

rep

[kati 0]

rep

[aleeraser 0]

Why use a API function when can use an Integrated Event? (sorry for bad english, I'm italian )

 

In the Form events, use the KeyDown event, wich has these two parameters:

 

- ByVal sender As Object

- ByVal e As System.Windows.Forms.KeyEventArgs

 

Now, the one that cares us is the second, the KeyEvent

 

To use it,

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
	If e.KeyCode = Keys.F5 Then 'or any other key you need
		MessageBox.Show("Pressed the F5 Key)
	End If
End Sub

For multiple combinations:

Private Sub Form1_KeyDown(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyEventArgs) Handles Me.KeyDown
	If e.KeyCode = Keys.N AndAlso e.Control Then 'press CTRL+N
		MessageBox.Show("Pressed CTRL+N Keys)
	End If
End Sub

Hope that might help,

 

Bye

Edited March 9, 2010 by aleeraser

[TrZint 0]

rep

[The Prestige 0]

reply

[DerAhlemer 10]

rep

[Maxii'q ♥ 0]

rep

[sake1994 0]

ty