Cum de a atribui acţiuni de taste?
1 - Crearea unui formular de comandă în structura şi eveniment "click" pe proprietăţile formularului introduce următorul text: me.keypreview = true
Sau se va face acest evenimentele de tastatură sunt primite în prima formă.
2 - În proprietăţile de formular, "butonul de mai jos pentru a" evenimentul a pus codul de mai jos:
Form_KeyDown Private Sub (keycode Ca Integer, Shift ca Întreg)
Selectaţi keycode cauza
Cauza vbKeyF2
DoCmd.OpenForm "Form1"
Cauza vbKeyF3
DoCmd.OpenForm "Form2"
Cauza vbKeyF4
DoCmd.OpenForm "formulario3"
Cauza vbKeyF5
Ca Calculator Dim dublă
Calculator = Shell ("calc.exe", vbNormalFocus)
Cauza vbKeyF6
DoCmd.Close
Cauza Altele
Selectaţi End
End Sub
Ce face acest lucru este următorul:
- Prin apăsarea tastei F2 se deschide Form1
- Prin apăsarea tastei F3 se deschide Form2
- Prin apăsarea tastei F4 se deschide formulário3
- Prin apăsarea tastei F5 deschide Calculator pentru Windows
- Prin apăsarea tastei F6 închide formularul de
În plus faţă de tasta F1 funcţia, F2 ... etc, putem folosi, de asemenea, orice alt buton pentru a efectua funcţii, dar păstrând în minte că, dacă vrem să introduceţi date într-o formă care nu adecvate pentru a utiliza tastele care sunt utilizate pentru a scrie date în domeniile.
Un alt lucru este că funcţionează doar pe formularul de unde ai pus codurile de mai sus.
Download: Taste 
Wow, astfel încât acest exemplu, nu?! Puteţi face o si trimite-mi prin e-mail!??! Vă mulţumesc foarte mult! Ate!