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

  • 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

    quinta-feira, 1 de abril de 2021 02:24

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 Module


    MARIANO1776

    • 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
    quinta-feira, 1 de abril de 2021 20:43

Todas as Respostas

  • 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
    quinta-feira, 1 de abril de 2021 12:23
    Moderador
  • Muito obrigado, o link ajudou muito mas ainda não funcionou

    • Editado SubpotentHen quinta-feira, 1 de abril de 2021 19:04
    quinta-feira, 1 de abril de 2021 18:58
  • 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

    • 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
    quinta-feira, 1 de abril de 2021 20:43
  • Obrigado! Funcionou msm
    quinta-feira, 1 de abril de 2021 21:16
  • Se te ajudou, por gentileza, marque como resposta e útil.

    MARIANO1776

    quinta-feira, 1 de abril de 2021 22:20