Discussion :

[peltiarn]

Bonsoir, je viens de découvrir un problème (surement très bête à résoudre) avec un textbox lorsque je lui indique un text a affiché.
Alors voila, j'ai un texte à afficher dans un textbox (Jusque là rien de grandiose me direz-vous ^^)
Le soucis est que (Je précise que le textbox est en multiline au cas ou ...) lorsque j'ajoute mon texte en faisant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Delegate Sub afficher_texte(ByVal info() As String)
Textbox1.text += info(2) & info(4) info(6)
end sub

Mon texte s'affiche bien dans la textbox mais il a automatiquement sauté une ligne entre info(4) et info(6)
Je précise que info(2) et info(4) sont des nombres, je suppose donc que sa vient de sa.
J'ai alors essayé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Textbox1.text += Convert.ToString(info(2)) & Convert.ToString(info(4)) & info(6)

Qui nest pas tres logique en soit puisque ce sont deja des "strings" m'enfin je n'avais pas d'autres idées.
Alors comme vous vous en doutez cela n'a strictement rien changé , il y a toujours un saut de ligne qui se fait tout seul.

Si quelqu'un pouvait m'expliquer comment résoudre le problème tout en me donnant la raison de ce phénomène j'en serai ravie.
Bonne soirée à tous

[wallace1]

Bonsoir peltiarn,

Avant tout il faut m'expliquer comment tu peux avoir du code dans le corps d'une delegate sub ???

De plus ce code génère automatiquement une erreur car il manque l'opérateur de concaténation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Textbox1.text += info(2) & info(4) info(6)

Ensuite je le répète pour la énième fois pour éviter les futures surprises l'opérateur de concaténation en VbNet c'est l'esperluette (&) et non le signe (+) ! (contrairement à C#)

Attention je ne dis pas que c'est interdit mais le jour ou ton code aura 2 chiffres de chaque côté du signe + le compilateur ne concaténera pas il fera la somme !

Je ne sais pas comment tu as déclarés ton tableau mais voilà ce qui fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class Form1
 
    Dim info() As String = New String(6) {"Un", "Deux", "Trois", "Quatre", "Cinq", "Six", "Sept"}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        afficher_texte(info)
    End Sub
 
    Sub afficher_texte(Info() As String)
        TextBox1.Text &= Info(2) & Info(4) & Info(6)
    End Sub
End Class

Maintenant faut voir si la largeur de ton TextBoxBox n'est pas plus petite que la largeur des chaines concaténées :

http://imabox.fr/a3/1411052136LVL9A746.png

http://imabox.fr/a3/1411052137nNi0mV24.png


A+

[peltiarn]

De plus ce code génère automatiquement une erreur car il manque l'opérateur de concaténation :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Textbox1.text += info(2) & info(4) info(6)

Je ne l'ai pas oublié dans mon code c'est seulement une erreur d'inattention sur mon poste

Ensuite je le répète pour la énième fois pour éviter les futures surprises l'opérateur de concaténation en VbNet c'est l'esperluette (&) et non le signe (+) ! (contrairement à C#)
Attention je ne dis pas que c'est interdit mais le jour ou ton code aura 2 chiffres de chaque côté du signe + le compilateur ne concaténera pas il fera la somme !

Oui je sais bien mais j'ai justement c'ette habitude car j'étudie le C# toute la semaine à mon établissement

Je ne sais pas comment tu as déclarés ton tableau mais voilà ce qui fonctionne chez moi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Public Class Form1
 
    Dim info() As String = New String(6) {"Un", "Deux", "Trois", "Quatre", "Cinq", "Six", "Sept"}
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        afficher_texte(info)
    End Sub
 
    Sub afficher_texte(Info() As String)
        TextBox1.Text &= Info(2) & Info(4) & Info(6)
    End Sub
End Class

Je procède ainsi :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Dim info As String() = {cut(2), cut(3), cut(4), cut(5), cut(6), cut(7) & "/" & cut(8), cut(9), cut(10), cut(11), cut(12), cut(13), cut(14)}

Maintenant faut voir si la largeur de ton TextBoxBox n'est pas plus petite que la largeur des chaines concaténées :

Non j'y avais déjà pensé mais c'est loin d’être le cas

[clementmarcotte]

Bonjour,

Bonsoir peltiarn,

Ensuite je le répète pour la énième fois pour éviter les futures surprises l'opérateur de concaténation en VbNet c'est l'esperluette (&) et non le signe (+) ! (contrairement à C#)

Attention je ne dis pas que c'est interdit mais le jour ou ton code aura 2 chiffres de chaque côté du signe + le compilateur ne concaténera pas il fera la somme !

A+

Sans vouloir déclarer de guerre à quicconque; pour éviter le "choc des opérateurs", on peut aussi utiliser la méthode concat de la classe String du Framework. (Cela marche également en C aiguisé et en VB.)

Pour être Politically Correct (Framework Correct ) on pourrait jouer comme cela:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub afficher_texte(Info() As String)
     ' TextBox1.Text &= Info(2) & Info(4) & Info(6)
    TextBox1.Text = string.concat(TextBox1.Text, Info(2), Info(4),Info(6))
End Sub

Ou encore, en utilisant également la méthode AppendText

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub afficher_texte(Info() As String)
   ' TextBox1.Text &= Info(2) & Info(4) & Info(6)
   Dim temporaire as String =  string.concat( Info(2), Info(4),Info(6))
   TextBox1.AppendText( Temporaire)
End Sub