Bonjour !

Eh oui j'avais déja posé une question similaire en vba.

Mais là j'ai essaye une méthode semblable en vb.net, mais ça ne me fait rien...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
Private Sub AfficheIncident(ByVal LeDataSet)
 
        Dim ResReq As DataTable
        Dim UnEnreg As DataRow
        Dim IndiceIncident As Integer
        Dim description_longue As String
 
        ResReq = LeDataSet.Tables("ResultatBO")
        UnEnreg = ResReq.Rows(IndiceIncident)
        'Affecter les champs de la base à l’interface
 
        txt_date.Text = UnEnreg(1)
        Application.DoEvents()
        txt_num_incident.Items.Add(UnEnreg(0))
        txt_desc_courte.Items.Add(UnEnreg(2))
        txt_desc_longue.Items.Add(UnEnreg(3) & UnEnreg(4))
 
        description_longue = txt_desc_longue.Items
        MsgBox(description_longue)
        Call remplacement(description_longue)
 
 
 Private Sub remplacement(ByVal description_longue)
 
        Dim monTexte As String = description_longue
        Dim montxt As String
 
 
        montxt = monTexte.Replace("¤", Chr(10))
 
        MsgBox(montxt)
 
End Sub
            End Sub
Je pense que le truc qui cloche la dedans (comme dans l'autre), c'est le fait de récupérer les données/le texte de la listBox dans une variable...

Comment puis-je faire ?

Merci d'avance !