Você está offline; aguardando reconexão

Como limpar a janela de console com Visual Basic .NET ou Visual Basic 2005

IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine Translation ou MT), não tendo sido portanto traduzido ou revisto por pessoas. A Microsoft possui artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais, com o objetivo de oferecer em português a totalidade dos artigos existentes na base de dados de suporte. No entanto, a tradução automática não é sempre perfeita, podendo conter erros de vocabulário, sintaxe ou gramática. A Microsoft não é responsável por incoerências, erros ou prejuízos ocorridos em decorrência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza atualizações freqüentes ao software de tradução automática (MT). Obrigado.

Clique aqui para ver a versão em Inglês deste artigo: 319239
Para obter uma versão Microsoft Visual translation from VPE for Csharp neste artigo, consulte 319257.
Sumário
Este artigo passo a passo demonstra como limpar a janela Console programaticamente usando o Visual Basic .NET ou Visual Basic 2005.

back to the top

Programa de exemplo

  1. Inicie o Microsoft Visual Studio .NET ou Microsoft Visual Studio 2005.
  2. No menu arquivo , aponte para novo e, em seguida, clique em Project .
  3. Clique em Visual Basic , clique em Aplicativo de console e, em seguida, clique em OK .
  4. No menu Project , clique em Add Class para abrir a caixa de diálogo Add New Item . Verifique se a classe está selecionada e clique em Abrir para aceitar o nome padrão para o arquivo.

    Observação No Visual Studio 2005, clique em Adicionar em vez de Abrir .
  5. Cole o seguinte código de exemplo no arquivo de classe (substitua todo o código existente):
    Imports System.Runtime.InteropServicesPublic Class ClearConsole  Private Const STD_OUTPUT_HANDLE As Integer = &HFFFFFFF5  Private Const EMPTY As Byte = 32   ' Structure defines the coordinates of a character cell in a console screen buffer.   ' The origin of the coordinate system (0,0) is at the top-left cell of the buffer.  <StructLayout(LayoutKind.Sequential)> _  Structure COORD    Dim X As Short    Dim Y As Short  End Structure  ' Structure defines the coordinates of the upper-left and lower-right corners of a rectangle  <StructLayout(LayoutKind.Sequential)> _  Structure SMALL_RECT    Dim Left As Short    Dim Top As Short    Dim Right As Short    Dim Bottom As Short  End Structure  ' Structure containing information about the Console's screen buffer.  <StructLayout(LayoutKind.Sequential)> _  Structure CONSOLE_SCREEN_BUFFER_INFO    Dim dwSize As COORD    Dim dwCursorPosition As COORD    Dim wAttributes As Integer    Dim srWindow As SMALL_RECT    Dim dwMaximumWindowSize As COORD  End Structure  ' Win32 API Function declarations.  Declare Auto Function GetStdHandle Lib "kernel32.dll" (ByVal nStdHandle As Integer) As IntPtr  Declare Auto Function FillConsoleOutputCharacter Lib "kernel32.dll" (ByVal hConsoleOutput As IntPtr, ByVal cCharacter As Byte, _                                                                       ByVal nLength As Integer, _                                                                       ByVal dwWriteCoord As COORD, _                                                                       ByRef lpNumberOfCharsWritten As IntPtr) As Integer  Declare Auto Function GetConsoleScreenBufferInfo Lib "kernel32.dll" (ByVal hConsoleOutput As IntPtr, _                                                                       ByRef lpConsoleScreenBufferInfo As CONSOLE_SCREEN_BUFFER_INFO) As Integer  Declare Auto Function SetConsoleCursorPosition Lib "kernel32.dll" (ByVal hConsoleOutput As IntPtr, ByVal dwCursorPosition As COORD) As Integer  ' Subroutine used to clear the Console screen.  Public Sub Clear()    Dim hConsoleHandle As IntPtr    Dim hWrittenChars As IntPtr    Dim strConsoleInfo As CONSOLE_SCREEN_BUFFER_INFO    Dim strOriginalLocation As COORD    hConsoleHandle = GetStdHandle(STD_OUTPUT_HANDLE) ' Get Handle for standard output    GetConsoleScreenBufferInfo(hConsoleHandle, strConsoleInfo) ' Get information about the standard output buffer of the Console    FillConsoleOutputCharacter(hConsoleHandle, EMPTY,  strConsoleInfo.dwSize.X * strConsoleInfo.dwSize.Y, strOriginalLocation, hWrittenChars) ' Fill output buffer with Empty characters (ASCII 32)    SetConsoleCursorPosition(hConsoleHandle, strOriginalLocation) ' Set the Console cursor back to the origin  End SubEnd Class					
  6. Adicione o seguinte código à seção Sub Main do aplicativo de console:
        Dim ClearMyConsole As New ClearConsole() ' Start an instance of class.    Console.WriteLine("THIS IS FIRST LINE")  ' Some text    Console.WriteLine("THIS IS SECOND LINE") ' Some text     Console.WriteLine("THIS IS THIRD LINE")  ' Some text    Console.WriteLine("THIS IS FOURTH LINE") ' Some text      Console.WriteLine("THIS IS FIFTH LINE")  ' Some text    Console.WriteLine("Hit Enter to Clear")  ' Some text    Console.ReadLine()  ' Wait for user input.    ClearMyConsole.Clear() ' Clear the screen.    Console.WriteLine("THE CONSOLE WAS CLEARED")  ' Some text to clear console.    Console.WriteLine("Hit Enter to Terminate")  ' Some text    Console.ReadLine()  ' Wait for user input.					
  7. Pressione F5 para executar o programa.
back to the top

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 319239 - Última Revisão: 11/26/2007 02:20:24 - Revisão: 3.5

Microsoft Visual Basic 2005, Microsoft Visual Basic .NET 2003 Standard Edition, Microsoft Visual Basic .NET 2002 Standard Edition

  • kbmt kbvs2005swept kbvs2005applies kbhowtomaster KB319239 KbMtpt
Comentários
s.dqid"; document.getElementsByTagName("head")[0].appendChild(m);