Création TextBox via Controls.Add WithEvents

Version imprimable

02/12/2021, 17h08
ylemasson

Création TextBox via Controls.Add WithEvents
Bonjour

Je souhaite créer des contrôles à la volée sur des formulaires, ce que j'arrive très bien à faire via Controls.Add

Pour leur ajouter des évènements, je crée des modules de classes WithEvents, par exemple comme dans le code ci-dessous :
Code:

1 2 3 4 5 6 7 8 Public WithEvents tbObjet As MSForms.TextBox Private Sub tbObjet_Change() MsgBox "Hello!" End Sub
Or, je note que tous les évènements ne fonctionnent pas. Par exemple, pour un TextBox, je n'arrive qu'à faire fonctionner l'évènement "onChange".
pour un commandButton, je n'arrive qu'à activer "onClick"

Quelqu'un pourrait m'expliquer le pourquoi du comment ?

Y a-t-il un moyen d'avoir des contrôles avec tous les évènements ?

Merci
05/12/2021, 13h11
Zekraoui_Jakani

Avec l'évènement "onClick", vous pouvez créer vous-même une multitude d'évènements moyennant l'ouverture d'un sous-formulaire qui propose des actions telles que: ajouter, modifier, supprimer, imprimer, envoyer mail, enregistrer, fermer, ... etc.

Bonjour,

Difficile de vous aider si vous ne fournissez pas votre code...
Un exemple (simpliste) qui fonctionne :

Dans une UserForm nommée UserForm1 :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Option Explicit
 
Private CtrlCol As Collection
 
 
Private Sub UserForm_Initialize()
    Dim Ctrl1 As Object, Ctrl2 As Object, Instance As New Classe1
    Set CtrlCol = New Collection
    Set Ctrl1 = Me.Controls.Add("Forms.TextBox.1")
    Set Ctrl2 = Me.Controls.Add("Forms.TextBox.1")
    Ctrl2.Left = 150
    Call Instance.Init(Ctrl1, Ctrl2)
    CtrlCol.Add Instance
End Sub

Dans un module de classe nommé Classe1 :

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
Option Explicit
 
 
Private WithEvents Ctrl1 As MSForms.TextBox
Private WithEvents Ctrl2 As MSForms.TextBox
 
 
Public Sub Init(TBx1 As Object, TBx2 As Object)
    Set Ctrl1 = TBx1
    Set Ctrl2 = TBx2
End Sub
 
 
Private Sub Ctrl1_Change()
    Debug.Print "Ctrl1_Change"
End Sub
 
Private Sub Ctrl1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "Ctrl1_MouseDown"
End Sub
 
 
Private Sub Ctrl2_Change()
    Debug.Print "Ctrl2_Change"
End Sub
 
Private Sub Ctrl2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Single, ByVal Y As Single)
    Debug.Print "Ctrl2_MouseDown"
End Sub

A adapter à votre besoin...

08/12/2021, 11h08
ylemasson

Bonjour

Merci pour votre réponse. Le seul code utile dans le cadre de ma question, je vous l'ai fourni..

Je n'ai surement pas été très clair, je vais donc essayer de reformuler ma question.

Lorsque vous redéfinissez une classe d'objet (par exemple un textbox) en l'intégrant dans une classe withevents,
vous êtes sensé hériter des évènements relatifs à la classe du contrôle d'origine (textbox).

Mais étrangement, si vous souhaitez impacter d'autres évènements en ajoutant d'autres subs évènementiels (essayez afterupdate par exemple), l'instance de classe ne réagira pas à ces autres évènements.

Vous aurez le même problème avec d'autres types de contrôles. Grosso modo, seul quelques évènements sont définissables dans la classe.

J'ai bien peur qu'il s'agisse d'une limitation inhérante au langage, mais bon on ne sait jamais quelque chose m'échappe peut-être

Merci en tout cas.
08/12/2021, 11h11
ylemasson

Bonjour

Je vous remercie, mais ce n'était pas trop le sens de mon message. Je mettais surtout en évidence une incohérence au niveau de l'instanciation d'une classe withevents

Citation:

Envoyé par Zekraoui_Jakani

Avec l'évènement "onClick", vous pouvez créer vous-même une multitude d'évènements moyennant l'ouverture d'un sous-formulaire qui propose des actions telles que: ajouter, modifier, supprimer, imprimer, envoyer mail, enregistrer, fermer, ... etc.
09/12/2021, 12h11
Ben_L

Bonjour,

Je n'avais effectivement pas saisi le sens de votre question...
Avez-vous essayé d'utiliser l'API ConnectToConnectionPoint, tel que décrit dans cette contribution ?

Cdt
13/12/2021, 21h34
Qwazerty

1 pièce(s) jointe(s)

Salut

Étrange, en utilisant ton code, j'ai bien accès à l'ensemble des propriétés du TextBox
Pièce jointe 610169

Je te souhaite une bonne soirée
Qwaz
15/12/2021, 11h33
ylemasson

Bonjour

Ce qui est étrange, c'est que vous ne vous êtes pas rendu compte que votre liste est JUSTEMENT
restreinte, si vous la comparez aux évènements d'un textbox.
Sans le vouloir, vous venez de mettre le doigt sur le problème !

Merci pour votre contribution
15/12/2021, 13h01
tototiti2008

Bonjour,

Je peux me tromper, mais on dirait qu'il manque les évènements qui sont différents entre une Textbox dans un Userform et une Textbox dans la feuille de calcul (contrôle ActiveX)
Par exemple, de mémoire, dans la feuille de calcul on a un évènement LostFocus, remplacé par Exit dans un userform
Un peu comme si on avait 2 classes dont l'une hérite de l'autre (je comprend mal les héritages de classe, dites moi si je m'égare)
une Textbox générale avec les évènements communs, une Textbox ActiveX dans la feuille de calcul qui hérite de la 1ère, une Textbox dans un Userform qui hérite de la 1ère aussi ?

Re,

Au temps pour moi, les évènements Exit, Enter, AfterUpdate, BeforeUpdate semblent être attachés à la classe Control (j'ai parcouru la bibliothèque MSForms dans l'explorateur d'objets)
Pas sûr que ça aide, mais ça peut donner des pistes
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 Option Explicit Public WithEvents Tbx As MSForms.TextBox Public WithEvents TbxCtrl As MSForms.Control Private Sub Tbx_Change() End Sub Private Sub TbxCtrl_Enter() End Sub

15/12/2021, 14h43
ylemasson

Bonjour

Merci pour votre contribution. Oui c'est bizarre, car de toute façon on part bien d'une instance de classe sur MSForms.textbox, donc on devrait avoir exactement les mêmes évèvements.
Pour la classe control, oui c'est intéressant, peut-être en faisant un "mix" des deux..

Merci en tout cas
16/12/2021, 22h49
Qwazerty
Citation:

Envoyé par ylemasson

Or, je note que tous les évènements ne fonctionnent pas. Par exemple, pour un TextBox, je n'arrive qu'à faire fonctionner l'évènement "onChange".

Comment faite-vous la déclaration de votre instance de classe?

De mon coté, même si en effet il manque une partie des événements (j'ai du compter avec des moufles...), ceux qui sont présents fonctionnent parfaitement

Dans un UserForm avec une textbox1 et un CommandButton1
Code:

1 2 3 4 5 6 7 8 Private C1 As Classe1 Private Sub CommandButton1_Click() Set C1 = New Classe1 Set C1.tbObjet = TextBox1 End Sub
Par contre si vous avez fait votre déclaration d'instance de classe dans le code du bouton... L'instance est détruite au moment du "End Sub"

[Edit]
Pour ce qui est des limitations (AfterUpdate, Exit, Enter,...) une recherche sur google et Commentcamarche a fait un article expliquant qu'ils ne sont pas accessibles et qu'il existe (je n'ai pas tout lu) des moyens de contourner ces limitations.
[/Edit]

++
Qwaz