dim toto As StreamReader = New StreamReader("mon_fichier.csv") ' (dim ou using ? "chépas") for i as integer = 0 to ListView1.items.count - 1 For j As Integer = 0 To Me.ListView1.Columns.Count - 1 toto.Write(Chr(34) & (ListView1.Items(i).SubItems(j).Text) & Chr(34) & ", ") Next next
For j As Integer = 0 To ListView1.Columns.Count - 1 toto.Write((ListView1.Items(i).SubItems(j).Text) & System.Globalization.CultureInfo.CurrentCulture.TextInfo.ListSeparator) Next
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim toto As StreamWriter = New StreamWriter(SFD1.FileName) For i As Integer = 0 To ListView1.Items.Count - 1 For j As Integer = 0 To Me.ListView1.Columns.Count - 1 ' toto.Write((ListView1.Items(i).SubItems(j).Text)) toto.WriteLine(ListView1.Items(i).SubItems(j).Text) Next Next
Public Sub InitListView1(ByRef listview1 As System.Windows.Forms.ListView) listview1.Focus() listview1.Items.Item(0).Focused = True listview1.Items.Item(0).Selected = True listview1.Select() listview1.MultiSelect = True End Sub
Private Sub CopierToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CopierToolStripMenuItem1.Click Dim index As String = ListView1.SelectedItems(0).ToString ListView1.Select() ListView1.MultiSelect = True For j As Integer = 0 To ListView1.SelectedItems.Count - 1 Clipboard.SetData(DataFormats.Text, CType(ListView1.SelectedItems(j).Text, Object)) Next End Sub