Private Function ArrayReverse(buffer As Byte()) As Byte() Array.Reverse(buffer) Return buffer End Function Private Sub Writinventaire(ByVal FilePath As String) Try ToolStripStatusLabel1.Text = "Enregistrement en cours..." Dim stream As New FileStream(Me.FilePath, FileMode.Open, FileAccess.ReadWrite) Dim writer As New BinaryWriter(stream) writer.BaseStream.Position = &H1C472 For I As Integer = 0 To ListView1.Items.Count - 1 'remplacer par For Each Item As ListViewItem In ListView1.Items Dim bytes As Byte() = Me.ArrayReverse(BitConverter.GetBytes(CInt(Me.ListView1.Items.Item(I).SubItems(1).Text))) 'remplacer par ListView1.Items(Item.Index).SubItems(1).Text writer.Write(bytes, 0, 4) writer.BaseStream.Position += 14 Next stream.Close() writer.Close() ToolStripStatusLabel1.Text = "Enregistrement terminer..." Catch exception1 As Exception ProjectData.SetProjectError(exception1) Dim exception As Exception = exception1 Me.ToolStripStatusLabel1.Text = "Erreur enregistrement..." ProjectData.ClearProjectError() End Try End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question