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
    sabato 13 settembre 2025
    Bari
    85
    57
    40
    76
    14
    Cagliari
    90
    15
    68
    63
    76
    Firenze
    81
    74
    71
    25
    06
    Genova
    21
    47
    44
    02
    06
    Milano
    83
    39
    31
    84
    55
    Napoli
    74
    41
    24
    47
    38
    Palermo
    54
    25
    61
    22
    68
    Roma
    60
    72
    38
    55
    03
    Torino
    10
    45
    56
    54
    63
    Venezia
    14
    38
    66
    36
    28
    Nazionale
    85
    48
    38
    22
    81
    Estrazione Simbolotto
    Palermo
    08
    42
    27
    30
    20
Indietro
Alto