none
Alterar Cor da panel com textbox ou com ToString() da datagridview RRS feed

  • Pergunta

  • Olá galera!

    Desculpe atrapalhar porem, estou com um problema em meu código e não acho nenhuma solução para ele, sou novo na programação de vba ;-; , eu estou fazendo um sistema e queria que ele ficasse mais pessoal onde meu cliente pudesse alterar as cores do painel com as cores que ele quisesse dado a isso criei um banco de dados em Acess 2010 para armazenar as cores que ele quisesse.

    No acess possui a tabela "Cores" e nela contem CódigoCor, CorPainel, CorVoltaPainel, CorTopo, CorVoltaTop, CorRodape, CorVoltaRodape todas com tipo de dados text.

    No load do meu sistema no form1 eu coloquei para puxar essa tabela em uma datagridview e os valores da datagridview transferissem para as backcolors da panel porem ele só da erro de qualquer maneira que eu tente, ja tentei colocar [ txt_painel.Text = selectedRow.Cells(1).Value.ToString() ] e [ panel5.backcolor = selectedRow.Cells(1).Value.ToString() ] o erro que ocorre é que não consigo converter o valor em string mesmo criando uma string por exemplo:

     Dim corpainel As String
            corpainel = txt_painel.Text

    Desculpe pela escrita ou pela postagem, minha primeira postagem aqui no site e gostaria de uma ajuda.

    Grato, Bruno.

    segunda-feira, 1 de maio de 2017 16:18

Respostas

  • Deleted
    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 20:57
    • Não Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 21:21
    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 23:49
    terça-feira, 2 de maio de 2017 17:56
  • Conssegui arrumar o código sem utilizar o seu porém você abriu minha mente em relação ao system color, pesquisei sobre isso e acabei chegando nesse resultado que acabou funcionando:

    Dim CORVoltaRodape As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(txt_voltarodape.Text.Trim())
            txt_voltarodape.Text = CORVoltaRodape.ToArgb.ToString
            Panel17.BackColor = Color.FromArgb(CInt(txt_voltarodape.Text))

    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 23:49
    terça-feira, 2 de maio de 2017 23:49

Todas as Respostas

  • Deleted
    segunda-feira, 1 de maio de 2017 19:52
  • Sim, a text box mostra a cor que contem no acess por exemplo "Aqua" dai na textbox aparece escrito Aqua que seria a cor que o cliente escolheu para o fundo do menu dai eu queria colocar essa cor no panel5.backcolor porém só da erro de string e manda eu colocar "System.Drawing.Color.(a cor que eu quiser)"
    segunda-feira, 1 de maio de 2017 23:17
  • Deleted
    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 20:57
    • Não Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 21:21
    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 23:49
    terça-feira, 2 de maio de 2017 17:56
  • Tudo que eu escrevo na textbox, mesmo sendo por exemplo "Gray" ou "153; 214; 255", ele deixa a textbox com o valor "-16777216" deixando a backcolor da panel como preto


    • Editado Cocretinho terça-feira, 2 de maio de 2017 21:48
    terça-feira, 2 de maio de 2017 20:57
  • Conssegui arrumar o código sem utilizar o seu porém você abriu minha mente em relação ao system color, pesquisei sobre isso e acabei chegando nesse resultado que acabou funcionando:

    Dim CORVoltaRodape As System.Drawing.Color = System.Drawing.ColorTranslator.FromHtml(txt_voltarodape.Text.Trim())
            txt_voltarodape.Text = CORVoltaRodape.ToArgb.ToString
            Panel17.BackColor = Color.FromArgb(CInt(txt_voltarodape.Text))

    • Marcado como Resposta Cocretinho terça-feira, 2 de maio de 2017 23:49
    terça-feira, 2 de maio de 2017 23:49
  • Deleted
    quinta-feira, 4 de maio de 2017 13:46