Réponse acceptée !
approche naïve:

If article1.Text = "" Then
    article1.Text = choixarticle.Text
ElseIf article2.Text = "" Then
    article2.Text = choixarticle.Text
ElseIf article3.Text = "" Then
    article3.Text = choixarticle.Text
ElseIf article4.Text = "" Then
    article4.Text = choixarticle.Text
ElseIf article5.Text = "" Then
    article5.Text = choixarticle.Text
ElseIf article6.Text = "" Then
    article6.Text = choixarticle.Text
ElseIf article7.Text = "" Then
    article7.Text = choixarticle.Text
ElseIf article8.Text = "" Then
    article8.Text = choixarticle.Text
ElseIf article9.Text = "" Then
    article9.Text = choixarticle.Text
ElseIf article10.Text = "" Then
    article10.Text = choixarticle.Text
ElseIf article11.Text = "" Then
    article11.Text = choixarticle.Text
ElseIf article12.Text = "" Then
    article12.Text = choixarticle.Text
ElseIf article13.Text = "" Then
    article13.Text = choixarticle.Text
ElseIf article14.Text = "" Then
    article14.Text = choixarticle.Text
ElseIf article15.Text = "" Then
    article15.Text = choixarticle.Text
ElseIf article16.Text = "" Then
    article16.Text = choixarticle.Text
ElseIf article17.Text = "" Then
    article17.Text = choixarticle.Text
ElseIf article18.Text = "" Then
    article18.Text = choixarticle.Text
ElseIf article19.Text = "" Then
    article19.Text = choixarticle.Text
ElseIf article20.Text = "" Then
    article20.Text = choixarticle.Text
Else
    MessageBox.Show "Pas encore assez de TextBoxes"
EndIf


après, on ferais mieux d'avoir sous le coude toutes ces textboxes dans un tableau, et de faire une boucle For dessus, afin de trouver une case vide.


Renfield
Admin CodeS-SourceS- MVP Visual Basic

Réponse acceptée !

Salut,

Dans la même mogique que Renfield(Re), on pourrai aussi faire comme cela :

Private Sub Form_Load()

Dim iTextBoxes As Integer

For i = 1 To 2 ' Nombres de Txt
    If Me.Controls("article" & CStr(i)).Text = "" Then
       Me.Controls("article" & CStr(i)).Text = choixarticle.Text
    End If
Next i

End Sub

A+
Exploreur

 Linux a un noyau, Windows un pépin

---

Un jeu en flash sympa...? Voir ici
Si vous voulez vous inscrire

Réponse acceptée !
Pourquoi tu n'a pas indexé tes TextBox ?? Tu te créer une TextBox Article, tu fais des copier coller de cette TextBox (Répond oui au message pour créer un groupe de contrôle). Si tu fais 4 copier coller tu obtiendra des Index qui vont de 0 à 4, il te suffit ensuite de faire une boucle.)

For i = 0 To 3

    If article(Index).Text = "" Then
        article(Index)1.Text = choixarticle.Text
        Exit For
    End If

Next i

Voila, moi je travail en VB6 mais sur VB.NET ou VB 2005 il me semble que l'on peut également crée des TextBox indexé.

Réponse acceptée !
Index de 0 à 3 et non de 0 à 4, je me suis trompé. Sinon la méthode d'Exploreur marche aussi.

Réponse acceptée !
Dim intIndex As Integer
Dim strControlName As String

For intIndex =  0 To Me.Controls.Count -1
    If left(me.Controls(intIndex).name,7) = "article" then
        strControlName = "article" & intIndex
        if Me.Controls(strControlName).Text  = "" then
            Me.Controls(strControlName).Text = choixarticle.Text
            exit for
        end if
    end if
Next intIndex


Sinon tu peux aussi travailler avec des tableaux de textbox (en utilisant la propriété index du textbox) et faire une boucle du meme genre (pour ce faire tu fais un copier coller du controle article).

Dim intIndex As Integer

For intIndex =  0 To article.count - 1
    If article(intIndex).text = "" then
       article(intIndex).text = choixarticle.Text
       exit for
    end if
Next intIndex

Bon courage.