A rotina para carregar a cor dos PictureBox não deu certo.

Question

Olá amigos, alguém poderia me dar uma força no que eu tenho que fazer para a rotina de carregar funcione, já tentei de várias formas mas ainda não consegui faze-la carregar corretamente.

A rotina de salvar está 100% funcionando. Coloquei também uma terceira rotina com 4 RadioButton's onde se escolhe a cor que quer salvar, esta rotina também está 100%.

Public Class Form1

    'salva
    Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click

        Dim W As IO.StreamWriter

        Dim cores = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4}

        My.Computer.FileSystem.CreateDirectory("C:\Usuario\Home10")

        W = New IO.StreamWriter("C:\Usuario\Home10\arquivo.txt")

        For u = 0 To 3
            If cores(u).BackColor = Color.White Then W.WriteLine("branca")
            If cores(u).BackColor = Color.Red Then W.WriteLine("vermelha")
            If cores(u).BackColor = Color.Green Then W.WriteLine("verde")
            If cores(u).BackColor = Color.Blue Then W.WriteLine("azul")
        Next

        W.Close()

    End Sub

    'carrega
    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

        Dim cores = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4}

        Dim R As IO.StreamReader
        R = New IO.StreamReader("C:\Usuario\Home10\arquivo.txt")

        For u = 0 To 3
            If R.ReadLine = "branca" Then cores(u).BackColor = Color.White
            If R.ReadLine = "vermelha" Then cores(u).BackColor = Color.Red
            If R.ReadLine = "verde" Then cores(u).BackColor = Color.Green
            If R.ReadLine = "azul" Then cores(u).BackColor = Color.Blue
        Next

        R.Close()

    End Sub

    Private Sub PictureBox_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click, PictureBox2.Click, PictureBox3.Click, PictureBox4.Click

        Dim cores = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4}

        If RadioButton1.Checked = True Then 'Red
            For u = 0 To 3
                If sender Is cores(u) Then
                    cores(u).BackColor = Color.Red
                End If
            Next
        End If

        If RadioButton2.Checked = True Then 'Blue
            For u = 0 To 3
                If sender Is cores(u) Then
                    cores(u).BackColor = Color.Blue
                End If
            Next
        End If

        If RadioButton3.Checked = True Then 'Green
            For u = 0 To 3
                If sender Is cores(u) Then
                    cores(u).BackColor = Color.Green
                End If
            Next
        End If

        If RadioButton4.Checked = True Then 'White
            For u = 0 To 3
                If sender Is cores(u) Then
                    cores(u).BackColor = Color.White
                End If
            Next
        End If

    End Sub
End Class

Answer 1

Boa noite.

Tente assim para carregar:

Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click

        Dim cores = New PictureBox() {PictureBox1, PictureBox2, PictureBox3, PictureBox4}

        Dim R As IO.StreamReader
        R = New IO.StreamReader("C:\Usuario\Home10\arquivo.txt")
		
	Dim cor_carregada as String
        
        For u = 0 To 3
	cor_carregada = R.ReadLine
			
	Select Case cor_carregada
			
            Case "branca"
			cores(u).BackColor = Color.White
            Case "vermelha"
			cores(u).BackColor = Color.Red
            Case "verde"
			cores(u).BackColor = Color.Green
            Case "azul"
			cores(u).BackColor = Color.Blue
	End Select
        Next

        R.Close()

End Sub

---

MARIANO1776

Answer 2

100% Mariano. Tentei de umas 200 maneiras. Matou a pau, obrigadasso!!!!

Abraço/Durval