Module de classe sur SpinButton et LabelBox

Version imprimable

12/08/2024, 12h41
esse2016

1 pièce(s) jointe(s)

Module de classe sur SpinButton et LabelBox

Bonjour au Forum,

je viens ici, car je souhaiterais généraliser une fonctionnalité sur du spinbutton associé à du labelbox.

voici comment se présente ma userform1
Pièce jointe 658147

je créée en dynamique des spinbutton à droite d'une listbox (à peine visible sur l'image)
(et à droite des spinbutton je créée des labelbox pour le moment 2 mais passons ce détail)

manière de base:
l'idée est lorsque je choisis un élément de la listbox alors le spinbutton est actif
Ce spinbutton une fois actif en cliquant dessus me permet d'incrémenter un nombre allant de 1 à 20 à afficher dans le labelbox lui correspondant.
si je déselectionne mon élément de la listbox alors le spinbutton est inactif et le labelbox correspondant devient sans texte
lorsque je dis spinbutton correspondant à la sélection de l'item de la listbox et que le labelbox correspondant au spinbutton est qu'ils sont tous le même numéro

ex: item N°5 de la listbox correspond au spinbutton5 et au labelbox5

manière généralisée:
Maintenant comme ma listbox est à choix multiple, il faudrait que pour chaque spinbutton correspond au choix de la listbox réagissent de la même manière que celle de base

Je sais qu'un module de classe permet de gérer le comportement mais c'est hyper trop dur pour mon niveau.
Quelqu'un aurait-il la gentillesse de m'amener sur la voie (sans me renvoyer vers un tuto), SVP ?

Merci pour l'aide précieuse

Salut,

Le principe de base est qu'il te faut une classe encapsulant un contrôle pour capturer les évènements de ce dernier.

Dans sa forme la plus naïve, c'est la classe qui devra s'occuper des évènements des contrôles (et non le formulaire), de plus, pour un évènement donné, un gestionnaire commun est utilisé pour tous les contrôles.
A ta charge de mettre en place une mecanique pour les distinguer, par exemple la propriété Tag:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
'// Class CustomSpinButton
Option Explicit
 
Public WithEvent mSpinButton As MsForms.SpinButton
 
Private mSpinButton_SpinDown()
    Select Case mSpinButton.Tag
    Case "1"
    Case "2"
    Case "3"
    End Select
End Sub
 
Private mSpinButton_SpinUp()
    Select Case mSpinButton.Tag
    Case "1"
    Case "2"
    Case "3"
    End Select
End Sub

Coté formulaire, ce dernier se contente d'instancier les contrôles, et les classes.
Il doit cependant garder les instances des classes "en vie" dans un conteneur de ton choix.
Par exemple:

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
OptionExplicit
 
Private mSpinButtons As Collection
 
Private Sub UserForm_Initialize()
        '// Conteneur memorisant les instances de classes
    Set mSpinButtons = New Collection
 
    Dim i As Long
    For i = 1 to 20
            '// Creation du contrôle
        Dim Sb As MsForms.SpinButton
        Set Sb = Me.Controls.Add("Forms.SpinButton.1")
        Sb.Tag = i
 
            '// Instanciation et initialisation d'un objet de type CustomSpinButton
        Dim CustomSpinButton As CustomSpinButton
        Set CustomSpinButton = New CustomSpinButton
        Set CustomSpinButton.mSpinButton = Sb    '// Initialisation du contrôle interne
 
           '// Ajout de l'instance dans le conteneur
        mSpinButtons.Add CustomSpinButtons
    Next
End Sub

bonsoir deedolith

Dans le module de classe, je remplace les "case" par ceci (ce à quoi je veux tendre)
Code:

1 2 3 4 Private Sub mSpinButton_SpinUp() If mSpinButton.Value > 10 Then Exit Sub MSForms.Label("" & mSpinButton.Tag & "").Caption = mSpinButton.Value End Sub
hélas ma notation n'est pas reconnue

12/08/2024, 22h48
esse2016

rectification

Ceci passe mieux

Code:

UserForm1.Controls("Label" & mSpinButton.Tag).Caption = CStr(mSpinButton.Value)

problème résolut

Bonjour au Forum,

j'effectue bien mon idée. Encore merci Deedolith pour la bonne partie du code qui m'a fait gagné du temps

dans le module de classe j'ai ceci pour la gestion du comportement

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
Option Explicit
 
Public WithEvents mSpinButton As MSForms.SpinButton
 
Private Sub mSpinButton_SpinDown()
   If mSpinButton.Value < 1 Then Exit Sub
        If UserForm1.ListBox1.Selected(CInt(mSpinButton.Tag)) = True Then
        UserForm1.Controls("Label" & mSpinButton.Tag).Caption = CStr(mSpinButton.Value)
        Else
        mSpinButton.Value = mSpinButton.Value + 1
        End If
End Sub
 
Private Sub mSpinButton_SpinUp()
   If mSpinButton.Value > 10 Then Exit Sub
 
        If UserForm1.ListBox1.Selected(CInt(mSpinButton.Tag)) = True Then
        UserForm1.Controls("Label" & mSpinButton.Tag).Caption = CStr(mSpinButton.Value)
        Else
        mSpinButton.Value = mSpinButton.Value - 1
        End If
End Sub

dans le userform j'ai à la fois ceci

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
Private Sub Spin()
 
Dim CustomSpinButton As CustomSpinButton
Dim Sb As MSForms.SpinButton
Dim i As Long
 
        '// Conteneur memorisant les instances de classes
    Set mSpinButtons = New Collection
 
    For i = LBound(TF) To UBound(TF) '- 1
            '// Creation du contrôle
        Set Sb = Me.Controls.Add("Forms.SpinButton.1")
        With Sb
            .Name = "SpinButton" & i 'nom de ta textbox (toto1, toto2, toto3, ...)
            .Left = 228 'position par rapport au rebord gauche de l'UserForm
            .Top = 13 + i * 9.56 'position par rapport au haut de l'UserForm
            .Width = 24 'largeur de la zone d'écriture
            .Height = 9.56 'hauteur de la zone d'écriture
            .Min = 1
            .Max = 10
            .Tag = i
        End With
        'Sb.Tag = i
 
            '// Instanciation et initialisation d'un objet de type CustomSpinButton
        Set CustomSpinButton = New CustomSpinButton
        Set CustomSpinButton.mSpinButton = Sb    '// Initialisation du contrôle interne
 
           '// Ajout de l'instance dans le conteneur
        mSpinButtons.Add CustomSpinButton
    Next
End Sub

et également ceci pour un comportement de la listbox influence les spinbutton associés

Code:

1
2
3
4
5
6
7
8
9
Private Sub listbox1_change()
 
If UserForm1.ListBox1.Selected(UserForm1.ListBox1.ListIndex) = False Then
UserForm1.Controls("Label" & UserForm1.ListBox1.ListIndex).Caption = "1"
UserForm1.Controls("SpinButton" & UserForm1.ListBox1.ListIndex).Value = 1
End If
 
'MsgBox UserForm1.ListBox1.ListIndex
End Sub