dadibarca23
Messages postés71Date d'inscriptionmercredi 3 octobre 2012StatutMembreDernière intervention 6 octobre 2019
-
Modifié le 19 sept. 2019 à 23:23
vb95
Messages postés3418Date d'inscriptionsamedi 11 janvier 2014StatutContributeurDernière intervention31 mai 2023
-
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