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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
| ' Gambas class file
PUBLIC SUB tbPleinEcran_Click()
IF ME.Resizable THEN
ME.FullScreen = NOT ME.FullScreen
ENDIF
END
PUBLIC SUB tbSansMenu_Click()
IF ME.Menus.Visible THEN
ME.Menus.Hide
ELSE
ME.Menus.Show
ENDIF
END
PUBLIC SUB tbGestBase_Click()
Message.Info(("Nous allons vers la gestion d'une base de données")
END
PUBLIC SUB tbSelection_Click()
Message.Info(("Nous allons vers la sélection d'objet d'une base de données"
END
PUBLIC SUB tbPlans_Click()
Message.Info(("Nous allons vers les plans"))
END
PUBLIC SUB tbQuitter_Click()
ME.Close()
END
PUBLIC SUB tbPavillon_Click()
Message.Info(("Nous allons vers les calculs de pavillons"))
END
PUBLIC SUB tbFiltre_Click()
Message.Info(("Nous allons vers les calculs d'un filtre électrique")
END
PUBLIC SUB tbImpression_Click()
Message.Info(("Nous allons vers l'impression des données d'une base")
END
PUBLIC SUB tbCopie_Click()
IF ME.Menus.Visible = TRUE THEN
Clipboard.Copy(Desktop.Screenshot(ME.ScreenX, ME.ScreenY, ME.ClientWidth, ME.ClientHeight + 28).Image)
ELSE
Clipboard.Copy(Desktop.Screenshot(ME.ScreenX, ME.ScreenY, ME.ClientWidth, ME.ClientHeight).Image)
ENDIF
END
PUBLIC SUB tbCopieEcran_Click()
Message.Info(("Nous allons vers l'impression d'une copie de l'écran")
END
PUBLIC SUB tbInitBase_Click()
Message.Info(("Nous réinitialisons la base de données"
END
|