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 11 gennaio 2025
    Bari
    73
    43
    01
    58
    81
    Cagliari
    69
    60
    18
    02
    10
    Firenze
    25
    32
    18
    55
    54
    Genova
    48
    05
    40
    34
    69
    Milano
    10
    07
    70
    44
    79
    Napoli
    11
    89
    01
    34
    80
    Palermo
    37
    80
    82
    44
    77
    Roma
    78
    04
    38
    39
    56
    Torino
    08
    13
    30
    27
    24
    Venezia
    56
    75
    36
    18
    70
    Nazionale
    63
    83
    19
    31
    80
    Estrazione Simbolotto
    Bari
    35
    34
    12
    23
    20
Indietro
Alto