1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
| PUBLIC SUB Form_KeyPress() '<---------------------------------------- saisie au clavier
DIM vText AS VARIANT
DIM cChiffres AS String[] = ["0", "1", "2", "3", "4", "5", "6", "7", "8", "9", ",", "."]
DIM cSignes AS String[] = ["+", "-", "*", "x", "/", "^", Chr(92)]
vText = Key.Text '<---------------------------------------------- touche pressée
IF vText MATCH "." THEN vText = Replace(vText, ".", ",") '<------- localisation Europa
IF Key.Code = key.Return OR Key.Code = key.Enter THEN btnEgal_Click()
IF Key.Code = Key.Esc THEN btnCancel_Click()
IF Key.Code = Key.Backspace OR Key.Code = Key.Delete THEN btnEffacer_Click()
IF Key.Code = Key.ShiftKey THEN btnMod.Text = "Div"
IF Key.Code = Key.AltKey THEN btnMod.Text = "Mod"
IF cChiffres.Exist(vText) THEN
LAST.text = vText
Chiffres_Click()
ENDIF
IF cSignes.Exist(vText) THEN
LAST.text = vText
Signes_Click()
ENDIF
IF NOT cSignes.Exist(Key.Text) OR NOT cChiffres.Exist(Key.Text) THEN STOP EVENT '<--- rien d'autre que les signes et les chiffres autorisés
ME.Text = ("Calculatrice ") '<----------------------------------- pour ne pas afficher vText dans le titre du formulaire
CATCH
Message.Error(Str(Error.Class) & ", code : " & Error.Code & ", " & Str(Error.Backtrace) & " à " Error.Wher " | Error.Text)
END
|