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

  • Pergunta

  • 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

    sábado, 30 de junho de 2018 22:03

Respostas

  • 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

    domingo, 1 de julho de 2018 00:44
  • 100% Mariano. Tentei de umas 200 maneiras. Matou a pau, obrigadasso!!!!

    Abraço/Durval

    domingo, 1 de julho de 2018 02:23

Todas as Respostas

  • 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

    domingo, 1 de julho de 2018 00:44
  • 100% Mariano. Tentei de umas 200 maneiras. Matou a pau, obrigadasso!!!!

    Abraço/Durval

    domingo, 1 de julho de 2018 02:23