Usuário com melhor resposta
Erro em um código em Visual Basic(Console Application) com Console.Backgroundcolor

Pergunta
-
Estou tentando fazer um código em vba .NET(console application) para mudar a cor do fundo, de acordo com todos os links e fóruns que eu olhei os comandos estão todos certos, até porque ele funcionam, mas sempre que escolho qualquer opção o fundo fica branco
I'm trying to make a code in vba .NET (console application) to change the background color, according to all the links and forums I looked at the commands are all right, even because it works, but whenever I choose any option the background stay white (translated by google)
ElseIf com = "Console.Backcolor" Then
Console.WriteLine("Com>Console>Backcolor>Digite a nova cor do console(A tela do console será limpa)")
Dim color As String = Console.ReadLine()
If color = "black" Or "0" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Console.Clear()
ElseIf color = "grey" Or "1" Then
Console.BackgroundColor = ConsoleColor.Gray
Console.ForegroundColor = ConsoleColor.Black
Console.Clear()
ElseIf color = "blue" Or "2" Then
Console.BackgroundColor = ConsoleColor.Blue
Console.Clear()
ElseIf color = "green" Or "3" Then
Console.BackgroundColor = ConsoleColor.Green
Console.Clear()
ElseIf color = "Yellow" Or "4" Then
Console.BackgroundColor = ConsoleColor.Yellow
Console.Clear()
ElseIf color = "red" Or "5" Then
Console.BackgroundColor = ConsoleColor.Red
Console.Clear()
ElseIf color = "purple" Or "6" Then
Console.BackgroundColor = ConsoleColor.Magenta
Console.Clear()
ElseIf color = "white" Or "7" Then
Console.BackgroundColor = ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Black
Console.Clear()
ElseIf color = "reset" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Console.Clear()
Else
Console.WriteLine("Com>Console>Backcolor>Por favor digite uma cor válida")
End If
Respostas
-
Boa tarde.
Segue testado em vb.net console:
Module Module1
Sub Main()
Dim color As String
nova_cor:
Console.Clear()
Console.WriteLine("Com>Console>Backcolor>Digite a nova cor do console(A tela do console será limpa)")
color = Console.ReadLine()
If color = "black" Or color = "0" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
ElseIf color = "grey" Or color = "1" Then
Console.BackgroundColor = ConsoleColor.Gray
Console.ForegroundColor = ConsoleColor.Black
ElseIf color = "blue" Or color = "2" Then
Console.BackgroundColor = ConsoleColor.Blue
ElseIf color = "green" Or color = "3" Then
Console.BackgroundColor = ConsoleColor.Green
ElseIf color = "Yellow" Or color = "4" Then
Console.BackgroundColor = ConsoleColor.Yellow
ElseIf color = "red" Or color = "5" Then
Console.BackgroundColor = ConsoleColor.Red
Console.Clear()
ElseIf color = "purple" Or color = "6" Then
Console.BackgroundColor = ConsoleColor.Magenta
ElseIf color = "white" Or color = "7" Then
Console.BackgroundColor = ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Black
ElseIf color = "reset" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Else
Console.WriteLine("Com>Console>Backcolor>Por favor digite uma cor válida")
End If
GoTo nova_cor
End Sub
End ModuleMARIANO1776
- Sugerido como Resposta Mariano1776 quinta-feira, 1 de abril de 2021 22:19
- Marcado como Resposta SubpotentHen quinta-feira, 1 de abril de 2021 22:24
Todas as Respostas
-
-
Muito obrigado, o link ajudou muito mas ainda não funcionou
- Editado SubpotentHen quinta-feira, 1 de abril de 2021 19:04
-
Boa tarde.
Segue testado em vb.net console:
Module Module1
Sub Main()
Dim color As String
nova_cor:
Console.Clear()
Console.WriteLine("Com>Console>Backcolor>Digite a nova cor do console(A tela do console será limpa)")
color = Console.ReadLine()
If color = "black" Or color = "0" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
ElseIf color = "grey" Or color = "1" Then
Console.BackgroundColor = ConsoleColor.Gray
Console.ForegroundColor = ConsoleColor.Black
ElseIf color = "blue" Or color = "2" Then
Console.BackgroundColor = ConsoleColor.Blue
ElseIf color = "green" Or color = "3" Then
Console.BackgroundColor = ConsoleColor.Green
ElseIf color = "Yellow" Or color = "4" Then
Console.BackgroundColor = ConsoleColor.Yellow
ElseIf color = "red" Or color = "5" Then
Console.BackgroundColor = ConsoleColor.Red
Console.Clear()
ElseIf color = "purple" Or color = "6" Then
Console.BackgroundColor = ConsoleColor.Magenta
ElseIf color = "white" Or color = "7" Then
Console.BackgroundColor = ConsoleColor.White
Console.ForegroundColor = ConsoleColor.Black
ElseIf color = "reset" Then
Console.BackgroundColor = ConsoleColor.Black
Console.ForegroundColor = ConsoleColor.White
Else
Console.WriteLine("Com>Console>Backcolor>Por favor digite uma cor válida")
End If
GoTo nova_cor
End Sub
End ModuleMARIANO1776
- Sugerido como Resposta Mariano1776 quinta-feira, 1 de abril de 2021 22:19
- Marcado como Resposta SubpotentHen quinta-feira, 1 de abril de 2021 22:24
-
-