mirror of
https://github.com/brmlab/ratbox.git
synced 2025-06-08 09:54:03 +02:00
56 lines
No EOL
1.4 KiB
Text
56 lines
No EOL
1.4 KiB
Text
' Gambas class file
|
|
|
|
|
|
Public Sub Form_Open()
|
|
Wait
|
|
PictureBox1.Width = Form1.Width
|
|
PictureBox1.Height = Form1.Height
|
|
Wait
|
|
End
|
|
|
|
Public Sub stimul(xxx As String)
|
|
Wait
|
|
PictureBox1.Picture = Picture.Load(xxx)
|
|
Wait
|
|
End
|
|
|
|
Public Sub loginfo(aaa As String)
|
|
Label1.Text = aaa
|
|
End
|
|
Public Sub cyklusinfo(bbb As String)
|
|
label2.Text = bbb
|
|
End
|
|
|
|
Public Sub PictureBox1_DblClick()
|
|
Form1.FullScreen = False
|
|
Form1.Visible = False
|
|
FMain.Visible = True
|
|
Form1.Close
|
|
Wait
|
|
End
|
|
|
|
Public Sub Form_Resize()
|
|
PictureBox1.Width = Form1.Width
|
|
PictureBox1.Height = Form1.Height
|
|
End
|
|
|
|
Public Sub Form_Show()
|
|
Wait
|
|
PictureBox1.Width = Form1.Width
|
|
PictureBox1.Height = Form1.Height
|
|
Wait
|
|
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 |