Novità

Mente da programmatore

ma come t ipiace di piu cosi ssembra carino poi vediamo il layout lo possiamo cambiare dopo in funzione delle necessita che ti credi micaabbiamo finito con sta finestra
 
semmai alla fine del ciclo che lo devi colarare di blu durante ? cosisi rallenta tutto ..
 
Fatto

Codice:
    Private Sub ButtonSelezionaTutto_Click(sender As Object, e As EventArgs) Handles ButtonSelezionaTutto.Click
        For k As Integer = 0 To LvLunghette.Items.Count - 1
            LvLunghette.Items(k).Selected = True

        Next
        LvLunghette.Select()
    End Sub

    Private Sub ButtonInvertiSel_Click(sender As Object, e As EventArgs) Handles ButtonInvertiSel.Click
        For k As Integer = 0 To LvLunghette.Items.Count - 1
            If LvLunghette.Items(k).Selected = False Then
                LvLunghette.Items(k).Selected = True
                LvLunghette.Select()
            Else
                LvLunghette.Items(k).Selected = False
            End If
        Next
    End Sub
 
allora adesso dobbiamo fare una funzione per salvare su file le formazioni della prima lista in maniera che si possano riaprire.
ti ricordi che per leggere i file di testo abbiamo usato lo streamReader
ora dobbiamo usare lo streamwriter.
prepara una funzione che torni il percorso preimpostato per il salvataggiio delel formazioni dopo di che al pulsante salva ciclisu tutti gli item della prima lista per tutte le colonne e costruisci una stringa separata da un carattere che ti pare pure il ;
per ogni item della lista salvi un record nel file
quindi ci vorra un ciclo fatto molto ala buona una cosa simile solo per darti l'idea


fore each itm in list.items
srecord = ""
i =0
fore each ch as columnheader in list.columnsheaders
i +=1
srecord = srecord & itm.subitems( i ).text & ";"

next
strmW.writeline srecord
next

all'utente il nome del file chiediglielo con una inputbox
 
Fatto. Funziona tutto perfettamente. Ma non salva correttamente il dati nel file.

Codice:
    Private Sub ButtonSalva_Click(sender As Object, e As EventArgs) Handles ButtonSalva.Click
        Dim NameFile As String
        CreaFolderFileDefault(GetDirFormazioni)
        If LvLunghette.Items.Count > 0 Then
            If MessageBox.Show("Desideri salvare le formazioni?", "Salvataggio", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
                NameFile = InputBox("Indicare nome del file", "Formazioni")
                SalvaFormazioni(LvLunghette, GetDirFormazioni() & NameFile & ".csv")
            End If
        Else
            MessageBox.Show("Nessuna formazione da salvare presente", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub

    Function SalvaFormazioni(LvOrd As ctlLvOrdinabile, DirFile As String)
        Dim SB As New StringBuilder
        Dim i As Integer
        Dim strmW As New StreamWriter(DirFile)
        For Each itm In LvOrd.Items
            i = 0
            SB.Append("")
            For Each ch As ColumnHeader In LvOrd.Columns
                i += 1
                SB.Append(itm.subitems(i - 1).text)
                SB.Append(";")
            Next
            strmW.WriteLine(SB.Remove(SB.Length - 1, 1))
        Next
        strmW.Close()
    End Function
 
Ok ci sono problema risolto

Codice:
    Private Sub ButtonSalva_Click(sender As Object, e As EventArgs) Handles ButtonSalva.Click
        Dim NameFile As String
        CreaFolderFileDefault(GetDirFormazioni)
        If LvLunghette.Items.Count > 0 Then
            If MessageBox.Show("Desideri salvare le formazioni?", "Salvataggio", MessageBoxButtons.YesNo, MessageBoxIcon.Information) = DialogResult.Yes Then
                NameFile = InputBox("Indicare nome del file", "Formazioni")
                SalvaFormazioni(LvLunghette, GetDirFormazioni() & NameFile & ".csv")
            End If
        Else
            MessageBox.Show("Nessuna formazione da salvare presente", "Errore", MessageBoxButtons.OK, MessageBoxIcon.Error)
        End If
    End Sub


    Function SalvaFormazioni(LvOrd As ctlLvOrdinabile, DirFile As String)
        Dim SB As New StringBuilder
        Dim i As Integer
        Dim strmW As New StreamWriter(DirFile)
        For Each itm In LvOrd.Items
            i = 0
            SB.Remove(0, SB.ToString.Length)
            For Each ch As ColumnHeader In LvOrd.Columns
                i += 1
                SB.Append(itm.subitems(i - 1).text)
                SB.Append(";")
            Next
            strmW.WriteLine(SB.Remove(SB.Length - 1, 1))
        Next
        strmW.Close()
    End Function
 

Ultima estrazione Lotto

  • Estrazione del lotto
    giovedì 10 luglio 2025
    Bari
    85
    25
    24
    62
    28
    Cagliari
    51
    07
    79
    73
    36
    Firenze
    80
    63
    59
    47
    05
    Genova
    26
    50
    73
    18
    76
    Milano
    86
    12
    75
    13
    68
    Napoli
    21
    46
    89
    28
    87
    Palermo
    84
    49
    44
    17
    10
    Roma
    50
    40
    68
    65
    82
    Torino
    29
    52
    02
    60
    65
    Venezia
    81
    21
    64
    01
    09
    Nazionale
    30
    56
    86
    68
    34
    Estrazione Simbolotto
    Nazionale
    29
    13
    42
    17
    07

Ultimi Messaggi

Indietro
Alto