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ì 18 settembre 2025
    Bari
    24
    27
    08
    70
    68
    Cagliari
    75
    27
    64
    20
    17
    Firenze
    53
    20
    46
    14
    39
    Genova
    38
    72
    71
    36
    65
    Milano
    24
    43
    76
    19
    26
    Napoli
    32
    70
    51
    23
    48
    Palermo
    23
    73
    55
    64
    62
    Roma
    66
    58
    15
    49
    55
    Torino
    84
    22
    38
    29
    64
    Venezia
    47
    52
    56
    35
    89
    Nazionale
    04
    49
    67
    57
    05
    Estrazione Simbolotto
    Palermo
    07
    18
    33
    28
    19
Indietro
Alto