Criar opções para seus plojetos

[majorwebcheats 0]

Bom, vou deixar uma forma que acho fácil e eficiente para dar um "tock" em seu projeto"

Sempre tem aquele projeto que pode trocar de cor,som,etc....

Vou deixar um método para trocar de cor!

Vai ser em 2 fases :

1°Criar o registro

2°Ler o registro(ler o regedit)

 

Adicione :

2 button

1 timer

 

 

Botão que deixa azul :

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\Meu_projeto", _

"Opçoes", "azul")

Botão que deixa vermelho :

My.Computer.Registry.SetValue("HKEY_CURRENT_USER\S oftware\Meu_projeto", _

"Opçoes", "vermelho")

Timer

Deixe enabled = True

On Error Resume Next

Dim ler As String

ler = My.Computer.Registry.GetValue _

("HKEY_CURRENT_USER\Software\Meu_projeto", "Opçoes", Nothing)

If ler = "azul" Then

Me.BackColor = Color.Blue

ElseIf ler = "vermelho" Then

Me.BackColor = Color.Red

End If

Na resumida o que ocorre é o seguinte, o botão 1 ou 2 tanto faz, cria uma chave no regedit e um valor com o nome azul ou vermelho dependendo do botão que é pressionado, não importa quantas vezes seja pressionado, ele só vai substituir o valor da chave depois que ela é criada!

Logo depois o timer lê o valor da chave, se o valor for azul ele passa para o projeto que o BackColor seja Blue, se for vermelho, ele passa para o projeto que o BackColor seja red....

Assim depois de definido sua projeto pode ser fechado quantas vezes quiser que a cor definida vai ficar!