Saut de ligneRésolu

Question

Bonjour à tous,

Question de débutant et après avoir pas mal cherché quand meme, comment afficher la valeur de i dans ma TextBox suivi à chaque fois d'un retour à la ligne ?

Voici mon code :

Sub Display()
        Dim i As Integer
        For i = 1 To 10
            TextBox1.Text = i.ToString & vbCrLf
        Next i
    End Sub

Merci d'avance je galère

Utilisateur anonyme · Accepted Answer

Salut,

Il faut ajouter. Pour ca, on utilise &=

Sub Display()
        Dim i As Integer
        For i = 1 To 10
            TextBox1.Text &= i.ToString & vbCrLf
        Next i
    End Sub

__________
  Kenji

darude94 · Answer

Merci beaucoup :)

Il va falloir que je me fasse à cette nouvelle façon de coder, en tout cas je n'y aurais jamais pensé!

darude94 · Answer

Autre petite question, si je mets la fin du compteur à 100 ou 200 ca va, mais si je passe à 500 ou 800 que je compile et que je lance l'exe il met presque 20sec à se lancer. Si je mets la fin à 2000 je n'ai pas la patience d'attendre donc je kill le process.

Je me demandais si c'etait normal ?! Et comment je vais faire quand à la place de ce compteur il me faudra charger une table (Access ou SQL) de 500 ou 600 noms ?!

Merci.

PCPT · Answer

salut,

c'est le paint qui est long. masque la textbox avant et rend la visible après.
ou fait tout dans une variable et affiche après.

à savoir de toutes manières que le nombre de carac dans une textbox est limitée..
++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

darude94 · Answer

Ca reste quand meme assez long et impossible d'afficher un nombre important de caractere :\

Comment vous faites alors pour charger une liste de contacts par exemple venant d'une base de données ?

Merci.

Utilisateur anonyme · Answer

Essaye avec :

TextBox1.SuspendLayout()
' Traitement
TextBox1.ResumeLayout()

__________
  Kenji

darude94 · Answer

Merci je viens d'essayer mais ca ne réduit pas la durée du traitement malheureusement, et pendant le chargement de la liste dans la textbox le statut du programme est occupé évidemment (ne répond plus) :\

Utilisateur anonyme · Answer

Autre (bien) meilleur solution, faire le traitement dans une variables string et passer le tout à la textbox :
Dim Text As String = String.Empty
Dim i As Integer
For i = 1 To 2000
  Text &= i.ToString & vbCrLf
Next i
TextBox1.Text = Text, ----
(Coloration syntaxique automatique par Kenji)

__________
  Kenji

darude94 · Answer

Super! merci! le chargement est beaucoup plus rapide, jusqu'à 4000/5000 entrées ca reste correct niveau délai d'attente :)

PCPT · Answer

prochaine fois tu liras toute la réponse, tu gagneras peut-être 4 heures 

ou fait tout dans une variable et affiche après.

bonne soirée ;)
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

darude94 · Answer

Oui dsl je t'avoue que je n'avais pas tilté en lisant ta réponse, en meme temps je débute en VB c'est pas super évident de s'adapter.

Merci à tous.

Saut de ligne

11 réponses

Votre réponse

Discussions similaires