The status of shift keys [ All Languages » VB »  Keyboard-Mouse] Total Hit ( 2947) Rate this article:     Poor     Excellent   Submit Your Question/Comment about this article Rating

Visual Basic lets you test the state of the Shift, Alt and Ctrl keys only within the KeyUp, KeyDown and all the mouse-related event procedures. If you want to test the state of these keys from within another routine, you can resort to the following functions: Click here to copy the following block Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As _   Integer ' The state of the Ctrl key Function CtrlKey() As Boolean   CtrlKey = (GetAsyncKeyState(vbKeyControl) And &H8000) End Function ' The state of either Shift keys Function ShiftKey() As Boolean   ShiftKey = (GetAsyncKeyState(vbKeyShift) And &H8000) End Function ' The state of the Alt key Function AltKey() As Boolean   AltKey = (GetAsyncKeyState(vbKeyMenu) And &H8000) End Function

Related Article(s)

Submitted By : Nayan Patel  (Member Since : 5/26/2004 12:23:06 PM)
	Job Description : He is the moderator of this site and currently working as an independent consultant. He works with VB.net/ASP.net, SQL Server and other MS technologies. He is MCSD.net, MCDBA and MCSE. In his free time he likes to watch funny movies and doing oil painting.
View all (893) submissions by this author  (Birth Date : 7/14/1981 )