Discussion :

[House MD]

Bonjour,

J'ai créé un userform dans lequel je crée dynamiquement des controls : des textbox.
Le problème est que je n'arrive pas à leur affecter des événements :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
private sub Userform_Initialize()
 
for cpt+1 to 5
Set TBox = Me.Controls.Add("Forms.TextBox.1", "TxtBx" & Cpt)
next cpt
 
end sub
 
private sub TxtBx1_Change()
 
...
end sub

Merci bien !

[House MD]

J'ai vu un post ou qqn proposait cette solution :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
'A ajouter dans le Initialize :
 
dim gettext as string
dim c() as clsTextboxes
redim preserve c(cpt)
set c(cpt).Textbox=userform.Controls.Add("Forms.Textbox.1") 
'etc.
 
'A ajouter dans le module d eclasse correspondant
 
private withevents txtBox as msforms.textbox
 
public property let TextBox(tb as msforms.textbox)
set txtBox=tb
end property
 
private sub txtBox_Click()
gettext=txtBox.text
end sub

Le problème est que :

et

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

c(cpt).Textbox=userform.Controls.Add("Forms.Textbox.1")

génère une erreur : utilisation incorrecte de ".textBox"... alors que l'editeur ne me propose que cette propriété.

Merci.

[House MD]

J'ai fini par trouver.
La solution se trouve effectivement dans les modules de classe (qui sont incroyablement puissants)

Bref, si ça intéresse qqn, postez-moi.

Par ailleurs, j'ai développé une pseudo-listbox qui permet d'avoir :

1/ des lignes alternativement colorés (pour une meilleure lecture)
2/ des scrollers façon Xp
3/ des colonnes fixes lors du scroll horizontal
4/ une saisie directe des modifs à l'intérieur de la "listbox"

Si ça vous intéresse, postez moi.

cdt,
Alexandre

[AlainTech]

Toute contribution (sérieuse) est bonne à poster sur le forum.

Il existe une rubrique particulière pour ça:
http://www.developpez.net/forums/forumdisplay.php?f=665

N'hésite pas et, si tu devais tomber à court de place pour d'éventuels fichiers joints, fais signe à l'un des modérateurs, on te fournira l'espace nécessaire.