'Em baixo da Public Class Form1 coloque este comando:
Dim botao As String ' cria uma variavel que é um texto(string)
'
'Coloque uma picturebox com a BackColor = Green nas propriedades ( lado direito >>)
'mude o nome dessa picture para verde.
'de 2 cliques nela, e no codigo dela coloque:
botao = "verde"
'Pronto, agora vamos a picture branca
Crie uma picturebox, de o nome de branco, coloque nas propriedades a cor branca ( pode ser qualquer uma diferente da verde ).
'de dois cliques nessa picture e no codigo dela coloque:
if botao = "verde" Then ' condição a variavel botao ser = verde
branco.BackColor = verde.BackColor 'muda a picture branco para a cor da picture verde
end if
'Pronto, só isso, muito fácil, se quiser criar mais cores, crie outra picture, com o nome azul por exemplo, e coloque no codigo dela, botao = "azul", e depois coloque no codigo da picture branco, outra condição:
if botao = "azul" then
branco.BackColor = azul.BackColor
end if
Source
Espero ter ajudado xD, qualquer coisa pode me pedir ajuda .
EDIT: Caso vc quer fazer tipo um sistema de mapear, e nao for só cores, bote branco.image = verde.image
ai nao vai ficar igual a cor, e sim igual a imagem de fundo
Dim botao As String ' cria uma variavel que é um texto(string)
'
'Coloque uma picturebox com a BackColor = Green nas propriedades ( lado direito >>)
'mude o nome dessa picture para verde.
'de 2 cliques nela, e no codigo dela coloque:
botao = "verde"
'Pronto, agora vamos a picture branca
Crie uma picturebox, de o nome de branco, coloque nas propriedades a cor branca ( pode ser qualquer uma diferente da verde ).
'de dois cliques nessa picture e no codigo dela coloque:
if botao = "verde" Then ' condição a variavel botao ser = verde
branco.BackColor = verde.BackColor 'muda a picture branco para a cor da picture verde
end if
'Pronto, só isso, muito fácil, se quiser criar mais cores, crie outra picture, com o nome azul por exemplo, e coloque no codigo dela, botao = "azul", e depois coloque no codigo da picture branco, outra condição:
if botao = "azul" then
branco.BackColor = azul.BackColor
end if
Source
- Código:
Public Class Form1
Dim botao As String
Private Sub verde_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verde.Click
botao = "verde"
End Sub
Private Sub branco_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles branco.Click
If botao = "verde" Then
branco.BackColor = verde.BackColor
End If
End Sub
End Class
Espero ter ajudado xD, qualquer coisa pode me pedir ajuda .
EDIT: Caso vc quer fazer tipo um sistema de mapear, e nao for só cores, bote branco.image = verde.image
ai nao vai ficar igual a cor, e sim igual a imagem de fundo