Mente da programmatore

[LuigiB]

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

 

[Edoardo_95]

Per quanto riguarda inverti selezione ci sto pensando

 

[LuigiB]

    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
            LvLunghette.Select() <------- ?
        Next
    End Sub

 

[Edoardo_95]

Per colorale di blu ahaha lo tolgo

 

[LuigiB]

semmai alla fine del ciclo che lo devi colarare di blu durante ? cosisi rallenta tutto ..

 

[LuigiB]

Per quanto riguarda inverti selezione ci sto pensando

mai sentito parlare dell'operatore not ?

famoso operatore di negazione ..

not false vuol dire true
not true vuol dire false

listitem.selected = not listitem.selected

 

[Edoardo_95]

Fatto

    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

 

[Edoardo_95]

Ho letto ora rettifico se vuoi

 

[LuigiB]

sto select in mezzo al ciclo ..

 

[Edoardo_95]

Tolto ahahahahahahaha si hai ragione so de coccio ahahahahaahahah

 

[pigano65]

stà nascendo un mostro!!!

 

[LuigiB]

per ora è un mostriciattolo ..

 

[LuigiB]

quando hai fatto procediamo con il resto ..

 

[Edoardo_95]

Pulsati inseriti e funzionanti

 

[Edoardo_95]

Fatto tutto

 

[LuigiB]

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

 

[Edoardo_95]

Fatto. Funziona tutto perfettamente. Ma non salva correttamente il dati nel file.

    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

 

[Edoardo_95]

Ora vedo dove sta il problema

 

[Edoardo_95]

Ok ci sono problema risolto

    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

 

[Edoardo_95]

Ho Gestito anche l'abilitazione button salva