Probleme dans list view

Messages postés
67
Date d'inscription
mercredi 3 octobre 2012
Statut
Membre
Dernière intervention
24 décembre 2018
-
bnj mes amis
j'espaire tous v bien

j'ai un probleme dans List_View qu'on je suprimer un messsage
alors
exm:
jai un modem attaché avec mon programme je lus les message correctement
Quand je supprime les messages du dernier message jusqu'à ce que le premier soit supprimé sans problèmes
Mais lorsque je supprime le premier message et termine la suppression du dernier message, la suppression n'est pas terminée.
voila le code :
 Private Sub Desplay_MSG()

        LstView.Items.Clear()
      
        Try
            Dim LigneOfTxt As String
            Dim i As Integer
            Dim ArryFille() As String
            LigneOfTxt = RcvData.ToString
            ArryFille = Split(LigneOfTxt, "+CMGL",, CompareMethod.Text)
            For i = 1 To UBound(ArryFille)
                Dim Input As String = ArryFille(i)
                Dim Result() As String
                Dim Paterne As String = "(:)|(,"")|("","")|(OK)"
                Result = Regex.Split(Input, Paterne)
                Dim Lvi As New ListViewItem
                Dim Concat() As String

                With LstView.Items.Add(i.ToString)
                    ' for Index
                    .SubItems.AddRange(New String() {Result(2)})
                    ' for Message Status
                    .SubItems.AddRange(New String() {Result(4)})
                    ' sender number
                    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)
                    My_string1 = Mid(My_string1, 7, 50)
                    .SubItems.Add(My_string1)

                End With

            Next
         
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub


 Private Sub Read_MSG()
        Me.Enabled = False
        Me.Cursor = Cursors.WaitCursor
        Try
            With SerPorts
                RcvData = ""
                .Write("AT" & vbCrLf)
                ' Threading.Thread.Sleep(50)
                .Write("AT+CMGF=1" & vbCrLf)
                ' Threading.Thread.Sleep(50)
                .Write("AT+CPMS=""SM""" & vbCrLf)
                ' Threading.Thread.Sleep(50)
                .Write("AT+CMGL=""ALL""" & vbCrLf)
                Threading.Thread.Sleep(500)
                Desplay_MSG()

            End With

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try

        Me.Enabled = True
        Me.Cursor = Cursors.Default
    End Sub


 Private Sub BtDeletMsg_Click(sender As Object, e As EventArgs) Handles BtDeletMsg.Click
        Dim i As Integer

        Me.Enabled = False
        Try
        
            
                For i = LstView.Items.Count To 1 Step -1
                    If LstView.Items.Item(i - 1).Checked Then
                        With SerPorts
                            .Write("AT")
                            ' Threading.Thread.Sleep(100)
                            .Write("AT+CMGF=1")
                            ' Threading.Thread.Sleep(100)
                            .Write("AT+CPMS=""SM""" & ",0" & vbCrLf)
                            ' Threading.Thread.Sleep(100)

                            .Write("AT+CMGD=" & (i - 1) & vbCrLf)
                            Threading.Thread.Sleep(300)
                        End With
                    End If
                Next
                Call Desplay_MSG()
         
        Catch ex As Exception

        End Try

        Me.Enabled = True
    End Sub


aider moi svp
merci mes amis
Afficher la suite 

Votre réponse

1 réponse

Messages postés
1866
Date d'inscription
samedi 11 janvier 2014
Statut
Contributeur
Dernière intervention
22 mai 2019
57
0
Merci
Bonsoir !
Déjà mélanger du VB6 et du VB Net n'est pas conseillé : dans Propriétés du Projet à l'onglet Référence supprimes l'import de Microsoft Visual Basic .
Ainsi
Msgbox
sera remplacé par
MessageBox.Show
et bien d'autres antiquités VB 6 seront remplacés :
Vbcrlf, Ubound
par exemple .
De plus en Net les tableaux et les listes commencent à 0 et non a 1
Corriges tout cela et ensuite on avisera pour la suite
Commenter la réponse de vb95