Gambas France BETA


Pas de compte ? Incription

ToolButton :

Exemple d'utilisation de ToolButton :





Exemple téléchargeable ici : ToolButton

Le Code :



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


====================

Navigation :



<-- Accueil du WIKI : <--
<-- Contrôle par Contrôle <--

====================

Documentation :



====================