How to get the Key press function working

[tkkarthik]

Hello everyone..

Let me tell where i am in my programming..

I have 3 command buttons in my form. say a, b,c

When I press the Key A in keyboard, I need the color of my command buton A to change. Similarly for If I press the keys B and C, I need the corresponding commandbuttons to change in color.

I am using the following code but I am not able to get the result.

Private Sub Command1_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub


Private Sub Command2_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub


Private Sub Command3_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65
Command1.BackColor = QBColor(Rnd * 15)

Case 66
Command2.BackColor = QBColor(Rnd * 15)

Case 67
Command3.BackColor = QBColor(Rnd * 15)

End Select
end sub

I think I am missing something somewhere.. Can anyone please help for this thread..

[dshaw65563]

Note there are always many ways to do something in VB code. I use the following to show active command buttons and labels.

1-Make sure that your button style is set to graphical for all buttons.
2-Make one form mousemove sub to restore all buttons to original colors.
3-Use the command button mousemove to change the color

Public sub cmdA_MouseMove( )
call clearback
cmdA.backcolor=vbgreen
end sub

Public sub cmdB_MouseMove( )
call clearback
cmdB.backcolor=vbgreen
end sub

Public sub cmdC_MouseMove( )
call clearback
cmdC.backcolor=vbgreen
end sub

Public sub form1_mousemove( )
call clearcolor
end sub

Public sub clearcolor( )
normal=&H8000000F&
if cmdA.backcolor=vbgreen then cmdA.backcolor=normal
if cmdB.backcolor=vbgreen then cmdB.backcolor=normal
if cmdC.backcolor=vbgreen then cmdC.backcolor=normal

end sub

Hello everyone..

Let me tell where i am in my programming..

I have 3 command buttons in my form. say a, b,c

When I press the Key A in keyboard, I need the color of my command buton A to change. Similarly for If I press the keys B and C, I need the corresponding commandbuttons to change in color.

I am using the following code but I am not able to get the result.

Private Sub Command1_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub


Private Sub Command2_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub


Private Sub Command3_KeyPress(KeyAscii As Integer)
Call Form_KeyPress(KeyAscii)
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
Select Case KeyAscii
Case 65
Command1.BackColor = QBColor(Rnd * 15)

Case 66
Command2.BackColor = QBColor(Rnd * 15)

Case 67
Command3.BackColor = QBColor(Rnd * 15)

End Select
end sub

I think I am missing something somewhere.. Can anyone please help for this thread..