DENIFIR COR DO FORM PELA COR CADASTRADO NO ACCESS
Estou desenvolvendo uma aplicação que terá vários usuários, como cada um tem uma opção de cor para o fundo dos forms, quero no cadastro do usuário, cadastrar o nome da cor em um campo do access e quando abrir o usuário abrir o form, a propriedade backcolor pega a cor que esta cadastrada no access.
Tipo algo asssim: me.backcolor = [Ô]pegar cor no access[Ô]
Alguém pode me ajudar ai?
Tipo algo asssim: me.backcolor = [Ô]pegar cor no access[Ô]
Alguém pode me ajudar ai?
Ninguém?
Já conseguiu.
Fiz um pesquisa é achei algo.
Fiz um pesquisa é achei algo.
Omar, ainda não encontrei nada, se puder me mostrar como que é...
Aqui tem tabela de cores que são números.
http://helpdotnet.wordpress.com/tabela-de-cores-html/
Teste de cores
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim novaCor As String = TextBox2.Text [ô]Digite números no textbox e execute
Me.BackColor = ColorTranslator.FromWin32(novaCor)
End Sub
Basta criar um campo na tabela e coloque o número da cor de cada um.
Você pode armazenar o número da cor num variável e abre o formulário na cor desejada.
Meu Teste
No Modulo
Module Module1
Public Cor As Long
Public Nome As String
End Module
Form1
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim strCon As String
strCon = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BANCO.MDB[Ô]
Dim conn As New OleDbConnection
Dim comando As New OleDbCommand
Try
conn.ConnectionString = strCon
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]Select * From Funcionario where IdFunc=1[Ô]
Dim dr As OleDbDataReader = comando.ExecuteReader
While (dr.Read())
Nome = [Ô][Ô] & dr([Ô]Nome[Ô])
Cor = [Ô][Ô] & dr([Ô]Cor[Ô])
[ô]Me.BackColor = ColorTranslator.FromWin32([Ô][Ô] & dr([Ô]cor[Ô]))
End While
conn.Close()
Catch ex As OleDbException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
Form3.Show()
End Sub
Form3
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.BackColor = ColorTranslator.FromWin32(Cor)
End Sub
Basta muda de acordo sua vontade.
Valeu.
http://helpdotnet.wordpress.com/tabela-de-cores-html/
Teste de cores
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim novaCor As String = TextBox2.Text [ô]Digite números no textbox e execute
Me.BackColor = ColorTranslator.FromWin32(novaCor)
End Sub
Basta criar um campo na tabela e coloque o número da cor de cada um.
Você pode armazenar o número da cor num variável e abre o formulário na cor desejada.
Meu Teste
No Modulo
Module Module1
Public Cor As Long
Public Nome As String
End Module
Form1
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim strCon As String
strCon = [Ô]Provider=Microsoft.Jet.OLEDB.4.0;Data Source=[Ô] & My.Application.Info.DirectoryPath & [Ô]\BANCO.MDB[Ô]
Dim conn As New OleDbConnection
Dim comando As New OleDbCommand
Try
conn.ConnectionString = strCon
conn.Open()
comando.Connection = conn
comando.CommandText = [Ô]Select * From Funcionario where IdFunc=1[Ô]
Dim dr As OleDbDataReader = comando.ExecuteReader
While (dr.Read())
Nome = [Ô][Ô] & dr([Ô]Nome[Ô])
Cor = [Ô][Ô] & dr([Ô]Cor[Ô])
[ô]Me.BackColor = ColorTranslator.FromWin32([Ô][Ô] & dr([Ô]cor[Ô]))
End While
conn.Close()
Catch ex As OleDbException
MessageBox.Show([Ô]Erro ao efetuar a conexão com a base de dados : [Ô] + ex.Message)
conn.Dispose()
End Try
Form3.Show()
End Sub
Form3
Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
Me.BackColor = ColorTranslator.FromWin32(Cor)
End Sub
Basta muda de acordo sua vontade.
Valeu.
Valew Omar, obrigado, consegui adaptar aqui ao meu projeto, para pegar a cor que está com o nome dela, cadastrado no banco de dados, usei o código abaixo: se alguem quiser saber como, ou pegar o exemplo, pode me mandar um email: cleber.al@hotmail.com.
Me.BackColor = Color.FromName(ds.Tables(0).Rows(0)([Ô]Fundo[Ô]).ToString())
A cor cadastrada no banco de dados estava assim:
Blue
Black
Red
Me.BackColor = Color.FromName(ds.Tables(0).Rows(0)([Ô]Fundo[Ô]).ToString())
A cor cadastrada no banco de dados estava assim:
Blue
Black
Red
Tópico encerrado , respostas não são mais permitidas