winzip icon

Demonstrate GetAsyncKeyState - handy when developing

Email
Submitted on: 2/2/2015 5:59:00 PM
By: Fosters (from psc cd)  
Level: Beginner
User Rating: By 4 Users
Compatibility: VB 5.0, VB 6.0
Views: 1905
 
     Nothing pushing the limits of VB, but when developing games/apps and using GetAsyncKeyState, do you ever go, "Uhmm, what the hell is left arrow again?!". here you are. run this app, press the key (or combo) and there it is! I think this is more of a useful tool than a coding extravaganza, so please vote/comment accordingly. You never know, while you're writing your 1st class game, you may even use this tool! :-)

 
winzip iconDownload code

Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come out every day, so no prevention program can catch 100% of them. For your own safety, please:
  1. Re-scan downloaded files using your personal virus checker before using it.
  2. NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
  3. Scan the source code with Minnow's Project Scanner

If you don't have a virus scanner, you can get one at many places on the net including:McAfee.com


Other 23 submission(s) by this author

 


Report Bad Submission
Use this form to tell us if this entry should be deleted (i.e contains no code, is a virus, etc.).
This submission should be removed because:

Your Vote

What do you think of this code (in the Beginner category)?
(The code with your highest vote will win this month's coding contest!)
Excellent  Good  Average  Below Average  Poor (See voting log ...)
 

Other User Comments

7/18/2015 10:27:25 AMRob

Hi Kenneth,
I have improved the display, but I don't believe PSC has a way for me to get it to you ?
I expanded the labels width by 3, and moved them to the right be 3 (now 525)
I did similar with the height, except by 4 (now 345)
I changed backcolor of the form to white.
I removed the borders from the labels
I set their Font to 12 Arial Black regular (no bold is used)

Some small amendments to the code, in my next post
Regards,
Rob
(If this comment was disrespectful, please report it.)

 
7/18/2015 10:28:10 AMRob

Option Explicit
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
Private Sub Form_Load()
Dim x As Integer
ResetDisplay
For x = 0 To lblN.Count - 1
lblN(x).Caption = x
Next x
End Sub
Sub ResetDisplay()
Dim x As Integer
For x = 0 To lblN.Count - 1
lblN(x).ForeColor = RGB(220, 220, 220)
Next x
End Sub

Private Sub Timer1_Timer()
Dim x As Integer
Dim sDisp As String
ResetDisplay
sDisp = ""
For x = 1 To 256
If GetAsyncKeyState(x) <> 0 Then
lblN(x).ForeColor = vbBlack
sDisp = sDisp & Chr(x)
End If
Next
If sDisp <> lblDisplay Then
lblDisplay = sDisp
End If
End Sub
(If this comment was disrespectful, please report it.)

 

Add Your Feedback
Your feedback will be posted below and an email sent to the author. Please remember that the author was kind enough to share this with you, so any criticisms must be stated politely, or they will be deleted. (For feedback not related to this particular code, please click here instead.)
 

To post feedback, first please login.