Cliquer sur un bouton Enabled=False
Salut
Cliquer sur un bouton Enabled=False, cela semble contradictoire/inutile :aie: oui mais pourquoi pas ;)
Apporter une information suite au passage au dessus d'un CommadButton et/ou au clique peut, dans certain cas, ne pas pas être superflue.
Le code qui va suivre en est la démonstration.
Sur un Form 3 CommandButtons, 1 Frame et 1 Label.
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
| Option Explicit
Private Sub Form_Load()
'------ avec un Frame -------
Frame1.Move 120, 120, 2355, 315
Frame1.ToolTipText = "Infos Bt1 Enabled=False"
Set Command1.Container = Frame1 ' placement du Bt. dans le Frame
Command1.Move 0, 0, Frame1.Width, Frame1.Height
Command1.Caption = "Bt1. test"
Command1.ToolTipText = "Infos Bt1 Enabled=True"
'------ avec un Label -------
Label1.Move 120, 1260, 2355, 315
Label1.ToolTipText = "Infos Bt2 Enabled=False"
Command3.Move Label1.Left, Label1.Top, Label1.Width, Label1.Height
Command3.Caption = "Bt2. test"
Command3.ToolTipText = "Infos Bt2 Enabled=True"
'------ Pour la demo --------
Command2.Move 120, 720, 2355, 315: Command2.Caption = "Bascule Enabled Tue/False"
Me.BackColor = &H80FF80
Me.Height = 2310: Me.Width = 2835
End Sub
Private Sub Command2_Click()
Command1.Enabled = Not Command1.Enabled
Command3.Enabled = Not Command3.Enabled
End Sub
' ******************* Demo dans un Frame ************************************
Private Sub Frame1_Click()
MsgBox "Un message déclenché au travers du Bt1. Enabled=False" & vbNewLine _
& "dans l'evenement click du Frame", vbInformation
End Sub
Private Sub Command1_Click()
MsgBox "Message déclenché par l’événement clique sur le Bt.1", vbInformation
End Sub
' ******************* Demo depuis un Label ************************************
Private Sub Label1_Click()
MsgBox "Un message déclenché au travers du Bt.2 Enabled=False" & vbNewLine _
& "dans l'événement clique du Label", vbInformation
End Sub
Private Sub Command3_Click()
MsgBox "Message déclenché par l’événement clique sur le Bt.2", vbInformation
End Sub |
En mode Enabled=True des Bts 1 et 3, une infos est liée à leurs ToolTypText respectif, le clique déclenche bien-sûr leurs événements.
En mode Enabled=False des Bts 1 et 3, il deviennent transparent vis à vis du composant qui le contient ou qui est sous lui
- au passage de la souris, une infos est liée, pour le Bt. 1 au ToolTypText du Frame qui le contient, pour le Bt. 3 au ToolTypText du Label qui se trouve sous lui.
- Un clique devient possible, donc on peut utiliser les événements soit du Frame pour Bt 1, soit du Label pour Bt. 3.
