listBox vers TextBox

Question

<?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" /??>
 




Voici comment on peut transférer toutes les lignes d’une listBox


Vers un TextBox en allant a chaque fois à la ligne.


Tout con mais j’ai cherché très longtemps avant de trouver la solution.


Si jamais ça intéresse quelqu’un voici le code.




 







 






On

Error
Resume
Next






Dim
 i AsShort





Dim
 j AsString





Dim
 K AsObject





***On fait une boucle for de 0 à « nombre de ligne dans la liste »****






            
For K = 0 To lst1.Items.Count - 1






 







                
If i = ""Then






          
          i = 0






                    j = Me.lst1.Text






                
Else







                    j = j & vbCrLf & Me.lst1.Text






                
End
If







                i = i + 1





***Ici on sélectionne la ligne suivante****






                
Me.lst1.SetSelected(i, True)






 







 







            
Next







 







      Me
.txt1.Text = j

jrivet · Answer

Salut,

Peu être devrais tu plutôt proposé un Snippet sur www.codyx.org cela serait un endroit plus approprié.

@+: Ju£i?n
Pensez: Réponse acceptée

ListBox vers TextBox

1 réponse

Votre réponse

Discussions similaires