From f06f973b19dc4648ba6be34cadb31aa2fb18c28d Mon Sep 17 00:00:00 2001 From: Petr Baudis Date: Thu, 29 Nov 2012 18:47:24 +0100 Subject: [PATCH] Stisk cislice ve fullscreenu presune pitko k danemu slotu --- .src/Form1.class | 10 ++++++++++ 1 file changed, 10 insertions(+) diff --git a/.src/Form1.class b/.src/Form1.class index 3a64f24..8c7ebd6 100644 --- a/.src/Form1.class +++ b/.src/Form1.class @@ -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 \ No newline at end of file