[VB.NET] Salvare dati relativi a scelte nel Form

[MdE2005]

Ti consiglio di usare la classe StreamWriter, la cui documentazione è qui.

Per sovrascrivere un file, è sufficiente fare questo:

Dim fileName As String = "test.txt" 
Dim textToAdd As String = "Example text in file" 

Using writer As StreamWriter = New StreamWriter(fileName, false)
            writer.Write(textToAdd)
End Using

Il secondo argomento del costruttore, di tipo booleano, impostato su false consente di sovrascrivere il file.

[Dentico80]

Ho provato e così funziona il salvataggio
Ho provato anche il caricamento, ma come faccio a dire a readline di restituire i valori letti esempio alle 3 label?
ho provato ma non so come inserirli nel form load...



Option Explicit On
Option Strict On
Imports System.IO
Imports System
Public Class Form1

Private Const FILE_NAME As String = "c:\progetti\salvataggio.txt"
Public Shared Sub Main()

Dim sr As StreamReader = File.OpenText("c:\progetti\salvataggio.txt")
Dim input As String
input = sr.ReadLine()
input = sr.ReadLine()
input = sr.ReadLine()
Console.WriteLine()
Console.WriteLine()
Console.WriteLine()
sr.Close()
End Sub
Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click
Label4.BackColor = Color.Green
Label5.BackColor = Color.Red
Label6.BackColor = Color.Red
End Sub

Private Sub Label2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label2.Click
Label4.BackColor = Color.Red
Label5.BackColor = Color.Green
Label6.BackColor = Color.Red
End Sub

Private Sub Label3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label3.Click
Label4.BackColor = Color.Green
Label5.BackColor = Color.Red
Label6.BackColor = Color.Green
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
PictureBox1.Width = PictureBox1.Width + 10
PictureBox1.Height = PictureBox1.Height + 10
If PictureBox1.Width = 200 Then
Button3.Enabled = False
End If
If PictureBox1.Width = 210 Then
Button3.Enabled = True
End If
If PictureBox1.Width = 300 Then
Button2.Enabled = False
Button3.Enabled = True
End If
End Sub

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
PictureBox1.Width = PictureBox1.Width - 10
PictureBox1.Height = PictureBox1.Height - 10
If PictureBox1.Width = 200 Then
Button3.Enabled = False
End If
If PictureBox1.Width = 290 Then
Button2.Enabled = True
End If
If PictureBox1.Width = 300 Then
Button2.Enabled = False
Button3.Enabled = True
End If
End Sub

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
If PictureBox1.Width = 200 Then
Button3.Enabled = False
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim sw As StreamWriter = New StreamWriter("c:\progetti\salvataggio.txt")
sw.WriteLine("Label4.BackColor = Color.Green")
sw.WriteLine("Label5.BackColor = Color.Green")
sw.WriteLine("Label6.BackColor = Color.red")
sw.Close()
End Sub
End Class
Module Module1
Sub Main()
Dim fileName As String = "c:\progetti\salvataggio.txt"
Using writer As StreamWriter = New StreamWriter(fileName, False)
End Using
End Sub
End Module

[Vinsent]

Al posto del txt puoi usare 'My.Settings'. Puoi iniziare dalla documentazione su MSDN o cercare sul forum che è pieno di discussioni inerenti.
Ciao

[MdE2005]

La variabile input, di tipo String, contiene i dati caricati del file; in realtà il metodo da te usato può essere utile solo se devi caricare una sola riga di dati, in caso contrario dovresti usare altre metodiche di caricamento file, che troverai sia in discussioni precedenti mediante una ricerca nel forum, sia in Internet.
Una volta acquisito il contenuto del file, per impostare una proprietà di un oggetto, basta fare così:

nomeoggetto.proprietà = valore
es. label.visible = true

[Vinsent]

Originariamente inviato da MdE2005
La variabile input, di tipo String, contiene i dati caricati del file; in realtà il metodo da te usato può essere utile solo se devi caricare una sola riga di dati, in caso contrario dovresti usare altre metodiche di caricamento file, che troverai sia in discussioni precedenti mediante una ricerca nel forum, sia in Internet.
Una volta acquisito il contenuto del file, per impostare una proprietà di un oggetto, basta fare così:

nomeoggetto.proprietà = valore
es. label.visible = true

Nel caso specifico bisogna tenere conto anche del "tipo" del dato, si deve convertire una stringa in Color...ho suggerito My.Settings per questo visto che permette di usare il "tipo" Color.
Ciao

[MdE2005]

Originariamente inviato da Vinsent
Nel caso specifico bisogna tenere conto anche del "tipo" del dato, si deve convertire una stringa in Color...ho suggerito My.Settings per questo visto che permette di usare il "tipo" Color.
Ciao

In realtà l'impressione era che l'utente avesse difficoltà proprio ad impostare una proprietà ad un oggetto generico; il My.Settings velocizza enormemente la questione, ma a scopo puramente didattico è molto utile ricorrere ad un file di impostazioni esterno in quanto si rendono necessari vari procedimenti quali il caricamento del contenuto del file, l'analisi e il parser dei dati (quindi gestione stringhe o altri tipi di dato), l'applicazione delle proprietà, il salvataggio su file.