probleme dans list view

Question

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

vb95 · Answer

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

Probleme dans list view

1 réponse

Votre réponse

Discussions similaires