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
|