brmlab/ratbox
4
0
Fork 0
mirror of https://github.com/brmlab/ratbox.git synced 2025-06-07 17:34:07 +02:00
Code Issues Projects Releases Packages Wiki Activity

Stisk cislice ve fullscreenu presune pitko k danemu slotu

Browse source
This commit is contained in:
Petr Baudis 2012-11-29 18:47:24 +01:00
parent 59ecdd6ddc
commit f06f973b19
1 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

10
.src/Form1.class
View file

@ -44,3 +44,13 @@ End
Public Sub PictureBox1_Menu()
FMain.remstart()
End
Public Sub Form_KeyPress()
If Key.Code = Key["0"] Or Key.Code = Key["KP_0"] Then FMain.AparaturaNastavPitko(0)
If Key.Code = Key["1"] Or Key.Code = Key["KP_1"] Then FMain.AparaturaNastavPitko(1)
If Key.Code = Key["2"] Or Key.Code = Key["KP_2"] Then FMain.AparaturaNastavPitko(2)
If Key.Code = Key["3"] Or Key.Code = Key["KP_3"] Then FMain.AparaturaNastavPitko(3)
If Key.Code = Key["4"] Or Key.Code = Key["KP_4"] Then FMain.AparaturaNastavPitko(4)
If Key.Code = Key["5"] Or Key.Code = Key["KP_5"] Then FMain.AparaturaNastavPitko(5)
If Key.Code = Key["6"] Or Key.Code = Key["KP_6"] Then FMain.AparaturaNastavPitko(6)
End