Récupérer ligne d'une textbox multiline

Question

Bonsoir,

Comment peut on r&#233;cup&#233;rer une ligne pr&#233;cise d'une textbox multiline?

La commande text = textbox.line(i) ne fonctionne pas!

Merci d'avance

Gobillot · Answer

m&#233;thode originale









Private Sub Command1_Click()

    Dim Ligne As Integer

    Dim i     As Integer

    Dim x     As Integer

    Dim str   As String

    

    Ligne = 2  'num&#233;ro de ligne &#224; r&#233;cup&#233;rer

    

    Text1.SetFocus

    Text1.SelStart = 0

    For i = 1 To Ligne - 1

        SendKeys ("{DOWN}")

        DoEvents

        Next

    x = Text1.SelStart

    SendKeys ("+{DOWN}")

    DoEvents

    str = Text1.SelText

    

    MsgBox str    'r&#233;sultat dans la cha&#238;ne str

    

End Sub


Daniel

PCPT · Answer

salut, autre méthode, supposant obligatoirement qu'une "ligne" se termine par un retour chariot, et qu'elle n'en contient aucun autre (dans la ligne)... donc une ligne = une phrase ~courte~.... Private Sub Command1_Click() Const Ligne As Integer = 2 'numéro de ligne à récupérer Dim aLines() As String aLines = Split(Text1.Text, vbCrLf) MsgBox aLines(Ligne - 1) End Sub Coloration syntaxique automatique [AFCK] ++ PCPT [AFCK]

Renfield · Answer

que cherches-tu a r&#233;cup&#233;rer, exectement ?



la m&#233;thode de pcpt fonctionne, mais uniquement si aucune ligne de
d&#233;passe la largeur du textbox. Dans ce cas, son texte passerai sur deux
lignes, et fausserait le calcul...

Renfield
Admin CodeS-SourceS - MVP Visual Basic

manud31 · Answer

Bonjour et merci pour vos r&#233;ponses.

Ma textbox multiline sert &#224; r&#233;cup&#233;rer des r&#233;f&#233;rences choisies par l'utilisateur.
Ex :

MIPTR 31
MIPTR 64
MIPTR 42
...

Ensuite, je dois utiliser chaque  dans une boucle.
Ex:

For i = 1 to textbox.linecount
fonction  = ...... .(valeur de la ligne i)
....
Next i

Voil&#224;

Renfield · Answer

utilises en ce cas le code fourni par pcpt



(poutquoi ne pas avoir utilis&#233; de listbox ?)

Renfield
Admin CodeS-SourceS - MVP Visual Basic

copperncius · Answer

apres chaque ligne inserer  vbLf
et enployer  vbLf pur fin de ligne