1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
| ' Gambas class file
PUBLIC SUB btnQuitter_Click()
ME.Close()
END
PUBLIC SUB SwitchButton1_Click()
IF SwitchButton1.Value = TRUE THEN Message.Info("La lumière est allumée" ELSE Message.Info("La lumière est éteinte" ENDIF
END
|