Keypress em TUDO..como?

[-_KIKO_- 0]

Dae...to passando por um problematenho um form com botões, campos de texto e tudo mais...só que é o seguinte...no FORMULARIO TODO...se o cara apertar a tecla 1 , tem que rodar uma operação...se apertar 2...rola outra...NAO IMPORTA SE TA EM CAMPOS DE TEXTO, EM BOTÃO..etc...se aperta a tecla TEM QUE EXECUTAR..ex: se ele estiver em um campo de texto e apertar 1...não interessa...tem que rodar um comando..eu fiz assim

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 49 Then msgbox("oi")End IfEnd Sub

mas assim SÓ VAI ROLAR no text 1..tentei assim também:

Private Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 49 Then msgbox("oi")End IfEnd sub

mas nao funciona se está em cima de um text, ou qualquer botão...COMO FAZER NO FORM TODO?valew

[Luizgrs 0]

Os formulários têm a propriedade KeyPreview que indica se qualquer tecla pressionada ativará os eventos de tecla do form antes dos do controle em foco (TRUE) ou não (FALSE).Mantenha esses eventos do form e muda a propriedade. ^^

[peshe 0]

VocÊ tentou juntar os dois códigos???

 

Private Sub Text1_KeyPress(KeyAscii As Integer)If KeyAscii = 49 Thenmsgbox("oi")End IfEnd SubPrivate Sub Form_KeyPress(KeyAscii As Integer)If KeyAscii = 49 Thenmsgbox("oi")End IfEnd sub

Té mais.

[Vegeta 0]

essa opção não existe em MDIForms???valeu