titange305
XLDnaute Nouveau
Bonjour,
Je cherche depuis pas mal de temps sur ce problème mais je ne trouve pas.
Voici mon problème,
Je crée dynamiquement des textbox
For i = 1 To 31
Set TextEquipe = Me.Controls.Add("forms.TextBox.1")
With TextEquipe
.Name = "TextEquipe" & i
.Visible = True
.Left = 162
.Top = 15 + (i * 15)
.Height = 15
.Width = 30
.TabIndex = 0 + ((i - 1) * 5)
End With
'ajout de l'objet dans la classe
Set Cl1 = New Classe1
Set Cl1.TextEquipe1 = TextEquipe
Collect.Add Cl1
Next i
et je fais cela 5 fois avec la valeur du Tabindex qui change
.TabIndex = 1 + ((i - 1) * 5)
.TabIndex = 2 + ((i - 1) * 5)
.TabIndex = 3 + ((i - 1) * 5)
.TabIndex = 4 + ((i - 1) * 5)
mais quand j'exécute et que j'utilise mon tab il ne fonctionne pas corretement
Est ce que j'ai oublié quelque chose ou alors peut être une astuce
Merci de votre aide
Je cherche depuis pas mal de temps sur ce problème mais je ne trouve pas.
Voici mon problème,
Je crée dynamiquement des textbox
For i = 1 To 31
Set TextEquipe = Me.Controls.Add("forms.TextBox.1")
With TextEquipe
.Name = "TextEquipe" & i
.Visible = True
.Left = 162
.Top = 15 + (i * 15)
.Height = 15
.Width = 30
.TabIndex = 0 + ((i - 1) * 5)
End With
'ajout de l'objet dans la classe
Set Cl1 = New Classe1
Set Cl1.TextEquipe1 = TextEquipe
Collect.Add Cl1
Next i
et je fais cela 5 fois avec la valeur du Tabindex qui change
.TabIndex = 1 + ((i - 1) * 5)
.TabIndex = 2 + ((i - 1) * 5)
.TabIndex = 3 + ((i - 1) * 5)
.TabIndex = 4 + ((i - 1) * 5)
mais quand j'exécute et que j'utilise mon tab il ne fonctionne pas corretement
Est ce que j'ai oublié quelque chose ou alors peut être une astuce
Merci de votre aide