Problème dans array list

dadibarca23 Messages postés 67 Date d'inscription mercredi 3 octobre 2012 Statut Membre Dernière intervention 6 octobre 2019 - Modifié le 19 sept. 2019 à 23:23
vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 - 19 sept. 2019 à 23:27
salut amis
jai un programme qui recevé les sms
alors le programme attaché avec gsm qui lire les msg
Le programme lut les messages arrangés automatiquement de 0 au dernier message
Lorsque chaque message lu est supprimé, l'index n'est pas réorganisé
Lorsque entrez un nouveau message, vous prenez le premier index et devenez le premier message.
Comment réorganiser les éléments du programme pour que chaque nouvelle entrée de message prenne le dernier index
 Sub DisplayMessages()
           Cursor = Cursors.WaitCursor
        LstView.Items.Clear()
        Dim LigneOfTxt As String
        Dim i As Integer
        LigneOfTxt = RcvData.ToString
        ArryFille = Split(LigneOfTxt, "+CMGL",, CompareMethod.Text)
        For i = 1 To ArryFille.Length - 1
            Dim Input As String = ArryFille(i)
            Dim Paterne As String = "(:)|(,"")|("","")|(OK)"
            Result = Regex.Split(Input, Paterne)
            Dim Concat() As String
            With LstView.Items.Add(Result(2))
                    ' for Index
                .SubItems.AddRange(New String() {(Result(2))})  '  
                ' get phone sender
                '  Dim My_string As String, Position As Integer
                My_string = Result(6)
                Position = My_string.Length - 2
                My_string = My_string.Remove(Position, 2)
                .SubItems.Add(My_string)

                ' for date and time
                Concat = New String() {Result(8) & Result(9) & Result(10) & Result(11) & 
                Result(12).Substring(0, 2)}
                .SubItems.AddRange(Concat)
                ' for message recu
                Dim My_string1 As String
                My_string1 = Result(12)
                  .SubItems.Add(My_string1)
               End With
        Next
 End Sub



mercer de mes aidés amis

1 réponse

vb95 Messages postés 3472 Date d'inscription samedi 11 janvier 2014 Statut Contributeur Dernière intervention 13 avril 2024 169
19 sept. 2019 à 23:27
0
Rejoignez-nous