Alterar Cor da panel com textbox ou com ToString() da datagridview

Question

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.

Answer 1

Deleted

Answer 2

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)"

Answer 3

Deleted

Answer 4

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

Answer 5

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))

Answer 6

Deleted