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
| '<------------------------------------- Les Labels ----------------------------
'<------------------------------------- pour chaque Label on ajuste la propriété "Group"
'<------------------------------------- après avoir créé un "Group", ici nommé "mesLabels",
'<------------------------------------- on créé l'évènement _MouseDown() associé au "Group"
PUBLIC SUB mesLabels_Leave()
LAST.background = CInt(LAST.tag) '<----------------------------------------- pour remettre l'ancienne couleur
END
PUBLIC SUB mesLabels_Enter() '<----------------------------------------------- l'entrée dans un label du groupe change la couleur
LAST.background = Color.White
END
PUBLIC SUB mesLabels_MouseDown() '<-------------------------------------------- fonctionne comme l'évènement _Click()
SELECT CASE LAST.Tag
CASE Label1.Tag
LAST.Text = "Color.DarkRoyal"
CASE Label2.Tag
LAST.Text = "Color.DarkGreen"
CASE Label3.Tag
LAST.Text = "Color.DarkMagenta"
CASE Label4.Tag
LAST.Text = "Color.DarkOrange"
CASE Label5.Tag
LAST.Text = "Color.DarkPurple"
CASE Label6.Tag
LAST.Text = "Color.DarkRed"
END SELECT
Message.Title = ("Color clicked")
Message.Info(("Color value in Integer:") & " " & LAST.Tag & gb.CrLf & ("equivalent in color:") & " " & LAST.Text, ("OK"))
LAST.Text = "" '<----------------------------------------------------------- pour ne pas traîner la dernière valeur de texte
END
PUBLIC SUB Form_Open()
Label1.background = Color.DarkRoyal
Label1.Tag = Color.DarkRoyal
Label2.background = Color.DarkGreen
Label2.Tag = Color.DarkGreen
Label3.background = Color.DarkMagenta
Label3.Tag = Color.DarkMagenta
Label4.background = Color.DarkOrange
Label4.Tag = Color.DarkOrange
Label5.background = Color.DarkPurple
Label5.Tag = Color.DarkPurple
Label6.background = Color.DarkRed
Label6.Tag = Color.DarkRed
END
|
