Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Changing the color of a Command Button based on a key pressed 1

Status
Not open for further replies.
thermalman

thermalman

Technical User
Aug 26, 2003
89
GB
Hi,
I have an keyboard Test application written using VB 6.0 that has a listbox that currently shows the VK Code of any key that is pressed. I want to include a Keyboard layout built with Command Buttons that depicts a standard Keyboard and I want the Back Color of each Command Button to change to say Green when each keycode is shown in the listbox.
I am not sure if this is at all possible, if it is can anybody advise me of where the best place to enter the code and what is the coding I should use.

Here is the coding of the application.

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)

List1.AddItem ConvertToVKCode(KeyCode)
List1.ListIndex = List1.ListCount - 1
Label2.Caption = szRetval


End Sub
Private Function ConvertToVKCode(KeyCode As Integer) As String

Dim szRetval As String

Select Case KeyCode

Case &H1: szRetval = "VK_LBUTTON"
Case &H2: szRetval = "VK_RBUTTON"
Case &H3: szRetval = "VK_CANCEL"
Case &H4: szRetval = "VK_MBUTTON"
Case &H8: szRetval = "VK_BACKSPACE"
Case &H9: szRetval = "VK_TAB"
Case &HC: szRetval = "VK_CLEAR"
Case &HD: szRetval = "VK_ENTER"
Case &H10: szRetval = "VK_SHIFT"
Case &H11: szRetval = "VK_CONTROL"
Case &H12: szRetval = "VK_ALT"
Case &H13: szRetval = "VK_PAUSE BREAK"
Case &H14: szRetval = "VK_CAPS LOCK"
Case &H1B: szRetval = "VK_ESCAPE"
Case &H20: szRetval = "VK_SPACE"
Case &H21: szRetval = "VK_PAGE UP"
Case &H22: szRetval = "VK_PAGE DOWN"
Case &H23: szRetval = "VK_END"
Case &H24: szRetval = "VK_HOME"
Case &H25: szRetval = "VK_LEFT"
Case &H26: szRetval = "VK_UP"
Case &H27: szRetval = "VK_RIGHT"
Case &H28: szRetval = "VK_DOWN"
Case &H29: szRetval = "VK_SELECT"
Case &H2A: szRetval = "VK_PRINT"
Case &H2B: szRetval = "VK_EXECUTE"
Case &H2C: szRetval = "VK_PRINT SCREEN"
Case &H2D: szRetval = "VK_INSERT"
Case &H2E: szRetval = "VK_DELETE"
Case &H2F: szRetval = "VK_HELP"
Case &H30: szRetval = "VK_0"
Case &H31: szRetval = "VK_1"
Case &H32: szRetval = "VK_2"
Case &H33: szRetval = "VK_3"
Case &H34: szRetval = "VK_4"
Case &H35: szRetval = "VK_5"
Case &H36: szRetval = "VK_6"
Case &H37: szRetval = "VK_7"
Case &H38: szRetval = "VK_8"
Case &H39: szRetval = "VK_9"
Case &H41: szRetval = "VK_A"
Case &H42: szRetval = "VK_B"
Case &H43: szRetval = "VK_C"
Case &H44: szRetval = "VK_D"
Case &H45: szRetval = "VK_E"
Case &H46: szRetval = "VK_F"
Case &H47: szRetval = "VK_G"
Case &H48: szRetval = "VK_H"
Case &H49: szRetval = "VK_I"
Case &H4A: szRetval = "VK_J"
Case &H4B: szRetval = "VK_K"
Case &H4C: szRetval = "VK_L"
Case &H4D: szRetval = "VK_M"
Case &H4E: szRetval = "VK_N"
Case &H4F: szRetval = "VK_O"
Case &H50: szRetval = "VK_P"
Case &H51: szRetval = "VK_Q"
Case &H52: szRetval = "VK_R"
Case &H53: szRetval = "VK_S"
Case &H54: szRetval = "VK_T"
Case &H55: szRetval = "VK_U"
Case &H56: szRetval = "VK_V"
Case &H57: szRetval = "VK_W"
Case &H58: szRetval = "VK_X"
Case &H59: szRetval = "VK_Y"
Case &H5A: szRetval = "VK_Z"
Case &H4B: szRetval = "VK_K"
Case &H4C: szRetval = "VK_L"
Case &H4D: szRetval = "VK_M"
Case &H4E: szRetval = "VK_N"
Case &H4F: szRetval = "VK_O"
Case &H50: szRetval = "VK_P"
Case &H51: szRetval = "VK_Q"
Case &H52: szRetval = "VK_R"
Case &H53: szRetval = "VK_S"
Case &H54: szRetval = "VK_T"
Case &H55: szRetval = "VK_U"
Case &H56: szRetval = "VK_V"
Case &H57: szRetval = "VK_W"
Case &H58: szRetval = "VK_X"
Case &H59: szRetval = "VK_Y"
Case &H5A: szRetval = "VK_Z"
Case &H5B: szRetval = "VK_LWIN"
Case &H5C: szRetval = "VK_RWIN"
Case &H5D: szRetval = "VK_APPS"
Case &H5F: szRetval = "VK_SLEEP"
Case &H60: szRetval = "VK_NUMPAD0"
Case &H61: szRetval = "VK_NUMPAD1"
Case &H62: szRetval = "VK_NUMPAD2"
Case &H63: szRetval = "VK_NUMPAD3"
Case &H64: szRetval = "VK_NUMPAD4"
Case &H65: szRetval = "VK_NUMPAD5"
Case &H66: szRetval = "VK_NUMPAD6"
Case &H67: szRetval = "VK_NUMPAD7"
Case &H68: szRetval = "VK_NUMPAD8"
Case &H69: szRetval = "VK_NUMPAD9"
Case &H6A: szRetval = "VK_MULTIPLY"
Case &H6B: szRetval = "VK_ADD"
Case &H6C: szRetval = "VK_SEPARATOR"
Case &H6D: szRetval = "VK_SUBTRACT"
Case &H6E: szRetval = "VK_DECIMAL"
Case &H6F: szRetval = "VK_DIVIDE"
Case &H70: szRetval = "VK_F1"
Case &H71: szRetval = "VK_F2"
Case &H72: szRetval = "VK_F3"
Case &H73: szRetval = "VK_F4"
Case &H74: szRetval = "VK_F5"
Case &H75: szRetval = "VK_F6"
Case &H76: szRetval = "VK_F7"
Case &H77: szRetval = "VK_F8"
Case &H78: szRetval = "VK_F9"
Case &H79: szRetval = "VK_F10"
Case &H7A: szRetval = "VK_F11"
Case &H7B: szRetval = "VK_F12"
Case &H7C: szRetval = "VK_F13"
Case &H7D: szRetval = "VK_F14"
Case &H7E: szRetval = "VK_F15"
Case &H7F: szRetval = "VK_F16"
Case &H80: szRetval = "VK_F17"
Case &H81: szRetval = "VK_F18"
Case &H82: szRetval = "VK_F19"
Case &H83: szRetval = "VK_F20"
Case &H84: szRetval = "VK_F21"
Case &H85: szRetval = "VK_F22"
Case &H86: szRetval = "VK_F23"
Case &H87: szRetval = "VK_F24"
Case &H90: szRetval = "VK_NUMLOCK"
Case &H91: szRetval = "VK_SCROLL"
Case &HA0: szRetval = "VK_LSHIFT"
Case &HA1: szRetval = "VK_RSHIFT"
Case &HA2: szRetval = "VK_LCONTROL"
Case &HA3: szRetval = "VK_RCONTROL"
Case &HA4: szRetval = "VK_LMENU"
Case &HA5: szRetval = "VK_RMENU"
Case &HF6: szRetval = "VK_ATTN"
Case &HF7: szRetval = "VK_CRSEL"
Case &HF8: szRetval = "VK_EXSEL"
Case &HF9: szRetval = "VK_EREOF"
Case &HFA: szRetval = "VK_PLAY"
Case &HFB: szRetval = "VK_ZOOM"
Case &HFC: szRetval = "VK_NONAME"
Case &HFD: szRetval = "VK_PA1"
Case &HFE: szRetval = "VK_OEM_CLEAR"
Case &HBD: szRetval = "VK_OEM_MINUS"
Case &HDD: szRetval = "VK_]}"
Case &HDB: szRetval = "VK_[{"
Case &HBA: szRetval = "VK_;:"
Case &HDE: szRetval = "VK_#~"
Case &HDF: szRetval = "VK_`¬¦"
Case &HDC: szRetval = "VK_\|"
Case &HC0: szRetval = "VK_'@"
Case &HBC: szRetval = "VK_,<"
Case &HBE: szRetval = "VK_.>"
Case &HBF: szRetval = "VK_/?"
Case &HBB: szRetval = "VK_OEM_PLUS"

Case Else
szRetval = "Unknown Key: " & KeyCode
End Select

ConvertToVKCode = szRetval


End Function
Private Sub Form_Load()

Call MsgBox("Please Press the F10 Key Twice, as this has been found to cause problems on some Laptops", 20, "Warning")
End Sub
Private Sub List1_KeyUp(KeyCode As Integer, Shift As Integer)

Dim szRetval As String
szRetval = ConvertToVKCode(KeyCode)
List1.AddItem szRetval
List1.ListIndex = List1.ListCount - 1
End Sub

 
Sort by date Sort by votes
If you set the Style of your buttons to "Graphical", the .BackColor property can then be used.

- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments
 
Upvote 0 Downvote
Hello AndyGroom,

Many Thanks for the post, I have set the command button state to 1-Graphical and then tried to use the following command but I don't know if I am doing this correctly

set cmdEsc.Backcolor =vbgreen

but I get a comile error but I am trying to put it after the relevant statement

Case &H1B: szRetval = "VK_ESCAPE" set cmdEsc.backcolor =vbgreen

I think I am either putting it in the wrong place or I am doing something wrong. Can you advise?

Thermalman
 
Upvote 0 Downvote
Try:

Code: 
Case &H1B: szRetval = "VK_ESCAPE": cmdEsc.backcolor = vbGreen

Also, I don't know if you'd considered it but if you created a control array of buttons rather than giving them each a unique name, and also indexed them to match the hex values of the keys and set the .Tag properties to be the description of each key (VK_ESCAPE etc), it would all be simpler. Eg:

Code: 
cmdButton(KeyCode).BackColor = vbGreen
ConvertToVKCode = cmdButton(KeyCode).Tag



- Andy
___________________________________________________________________
If you think nobody cares you're alive, try missing a couple of mortgage payments
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

sal21
  • Question
Based the link above how to simulate click event
Replies
4
Views
278
2009luca
2009luca
2009luca
  • Locked
  • Question
CHECK color of shape 2
Replies
5
Views
599
strongm
strongm
sal21
  • Locked
  • Question
Alternate row color in treeview
Replies
1
Views
476
strongm
strongm
sal21
  • Locked
  • Question
DOWNLOAD story of extraction of LOTTO 1
Replies
4
Views
443
strongm
strongm
sal21
  • Locked
  • Question
get controll type, controll name from the second panel of SStab 1
Replies
4
Views
796
strongm
strongm

Part and Inventory Search

Sponsor

Back
Top