Erro em um código em Visual Basic(Console Application) com Console.Backgroundcolor

Question

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

Answer 1

Bom dia,

Fiz uma pesquisa e a maioria dos exemplos que achei e para C#. Eu achei esse artigo abaixo que mostra como fazer um VB. Espero que ajude.

https://www.dotnetheaven.com/article/how-to-change-the-console-display-in-vb.net

Answer 2

Muito obrigado, o link ajudou muito mas ainda não funcionou

Answer 3

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 Module

---

MARIANO1776

Answer 4

Obrigado! Funcionou msm

Answer 5

Se te ajudou, por gentileza, marque como resposta e útil.

---

MARIANO1776