Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Rombeau Jonathan
OK j'ai eu la solution
Dim NewTextBox As TextBox Set NewTextBox = Form11.Controls.Add("VB.textbox", "text" & cpt_int, Form11) With NewTextBox .Visible = True .Width = 500 .text = cpt End With
"Rombeau Jonathan" a écrit dans le message de news: e81a%
Bonjour à tous j'essaye de créer dynamiquement des textbox mais cela ne fonctionne pas j'ai une erreur pourriez-vous m'aider ???
Dim cpt_int As Integer cpt_int = 1 Do While Not RS.EOF Form11.Controls.Add "VB.textbox", "text" & cpt_int, Form11
With Form11!(Text & cpt_int) => ERREUR !!!! .Visible = True .Width = 500 .Caption = cpt End With cpt_int = cpt_int + 1 RS.MoveNext Loop
OK j'ai eu la solution
Dim NewTextBox As TextBox
Set NewTextBox = Form11.Controls.Add("VB.textbox", "text" & cpt_int, Form11)
With NewTextBox
.Visible = True
.Width = 500
.text = cpt
End With
"Rombeau Jonathan" <eagleleader@tiscali.be> a écrit dans le message de news:
e81a%23invEHA.4072@TK2MSFTNGP15.phx.gbl...
Bonjour à tous j'essaye de créer dynamiquement des textbox mais cela ne
fonctionne pas j'ai une erreur pourriez-vous m'aider ???
Dim cpt_int As Integer
cpt_int = 1
Do While Not RS.EOF
Form11.Controls.Add "VB.textbox", "text" & cpt_int, Form11
With Form11!(Text & cpt_int) => ERREUR !!!!
.Visible = True
.Width = 500
.Caption = cpt
End With
cpt_int = cpt_int + 1
RS.MoveNext
Loop
Dim NewTextBox As TextBox Set NewTextBox = Form11.Controls.Add("VB.textbox", "text" & cpt_int, Form11) With NewTextBox .Visible = True .Width = 500 .text = cpt End With
"Rombeau Jonathan" a écrit dans le message de news: e81a%
Bonjour à tous j'essaye de créer dynamiquement des textbox mais cela ne fonctionne pas j'ai une erreur pourriez-vous m'aider ???
Dim cpt_int As Integer cpt_int = 1 Do While Not RS.EOF Form11.Controls.Add "VB.textbox", "text" & cpt_int, Form11
With Form11!(Text & cpt_int) => ERREUR !!!! .Visible = True .Width = 500 .Caption = cpt End With cpt_int = cpt_int + 1 RS.MoveNext Loop
