VB.NET - extended console library

I just made this a while ago to use for one of my programs. I'd posted it in the VB.net section but I thought it's good to post it here also. The code isn't 100% mine... I used some C# projects and some old vb6 projects and converted them to vb.net.... sorry cant remember what and which parts though :)

I'm copy pasting this from this post in the vb.net section:

Lets you:
-change the foreground or background color of the text
-change the background color of the console (call SetCLSColor, and then the Clear function)
-Change or read the title of the console
-clear a console window
-change the input mode of the console (call SetMode - whether it should read the input line by line, or to read every key stroke one by one)
-move the cursor to any random position
-enable/disable showing what the user types in the console ( call EchoInput )
-get the size of the console window (number of columns and rows)
-get the current position of the cursor
-change the cursor type (the carret)
-close the console whenever you want (FreeConsole() )
-create a console by calling this class

There are two classes, one is just a helper class to call the windows api functions, the other is the console class. I'll post them as separate posts since the code is long.

-see next 2 posts for code.
-see 3rd post for a sample.

See the sample project if you want to know how to use this class library. (Remember that you have to add a reference to ConsoleEx.dll to your project before you can use it!)

Extended console - source code: class library project
Extended console - dll file only
sample project (includes the class library project)

VB Code:

' Please do not remove :)
' Written by Kourosh Derakshan
'
Option Strict On
Imports System.Runtime.InteropServices
Imports System.Text
 
Public NotInheritable Class ConsoleEx
#Region " Declarations "
        Private hConsoleIn, hConsoleOut As IntPtr
        Private conInfo As Win32Native.CONSOLE_INFO
        Private cursorInfo As Win32Native.CURSOR_INFO
        Private backColor As Integer
        Private backgroundAttrib As Short
 
 
        Enum InputMode
            LineInput
            EchoInput
        End Enum
 
        Public Enum ConsoleColor
            Black = 0
            Blue = Win32Native.FOREGROUND_BLUE
            Green = Win32Native.FOREGROUND_GREEN
 
            SkyBlue = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_GREEN
 
            Red = Win32Native.FOREGROUND_RED
            Purple = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_RED
            Brown = Win32Native.FOREGROUND_GREEN + Win32Native.FOREGROUND_RED
            White = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_GREEN + _
                    Win32Native.FOREGROUND_RED
            Gray = Win32Native.FOREGROUND_INTENSIFY
            BlueForte = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_INTENSIFY
            GreenForte = Win32Native.FOREGROUND_GREEN + Win32Native.FOREGROUND_INTENSIFY
            SkyBlueForte = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_GREEN + _
                           Win32Native.FOREGROUND_INTENSIFY
            RedForte = Win32Native.FOREGROUND_RED + Win32Native.FOREGROUND_INTENSIFY
            PurpleForte = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_RED + _
            Win32Native.FOREGROUND_INTENSIFY
            Yellow = Win32Native.FOREGROUND_GREEN + Win32Native.FOREGROUND_RED + _
            Win32Native.FOREGROUND_INTENSIFY
            WhiteForte = Win32Native.FOREGROUND_BLUE + Win32Native.FOREGROUND_GREEN + _
                         Win32Native.FOREGROUND_RED + Win32Native.FOREGROUND_INTENSIFY
        End Enum
 
        Public Enum CursorType
            Off
            SingleLine
            Block
        End Enum
#End Region
 
        Public Sub New()
            ' Creates a console if there isn't already one loaded.
            Win32Native.AllocConsole()
 
            ' Set the input handle
            hConsoleIn = Win32Native.GetStdHandle(Win32Native.STD_INPUT_HANDLE)
            ' Set the output handle
            hConsoleOut = Win32Native.GetStdHandle(Win32Native.STD_OUTPUT_HANDLE)
 
 
            ' Fill in the console information to conInfo
            conInfo = New Win32Native.CONSOLE_INFO
            updateConsoleInfo()
 
            ' Fill in the cursor information for this console
            cursorInfo = New Win32Native.CURSOR_INFO
            SetCursorType(CursorType.SingleLine)
 
            ' Set the standard background attribute
            backgroundAttrib = CShort((CShort(ConsoleColor.Black) * &H10 + CShort(ConsoleColor.White)))
        End Sub
 
        Protected Overrides Sub Finalize()
            MyBase.Finalize()
            FreeConsole()
        End Sub
 
        Public Property Title() As String
            Get
                Dim buffer As New StringBuilder(128)
                Win32Native.GetConsoleTitle(buffer, 128)
                Return buffer.ToString
            End Get
 
            Set(ByVal Value As String)
                Win32Native.SetConsoleTitle(Value)
            End Set
        End Property
 
        Public ReadOnly Property Columns() As Integer
            Get
                Return conInfo.MaxSize.x
            End Get
        End Property
 
        Public ReadOnly Property Rows() As Integer
            Get
                Return conInfo.MaxSize.y
            End Get
        End Property
 
        ' X position of the cursor (or the carret) on the screen
        Public ReadOnly Property CursorX() As Integer
            Get
                updateConsoleInfo()
                Return conInfo.CursorPosition.x
            End Get
        End Property
 
        ' Y position of the cursor (or the carret) on the screen
        Public ReadOnly Property CursorY() As Integer
            Get
                updateConsoleInfo()
                Return conInfo.CursorPosition.y
            End Get
        End Property
 
        ' LineInput will let the console read a line at a time. EchoInput lets the console
        ' read each key stroke, as the user types something (You have to use Console.Read ()
        ' instead of Console.ReadLine() when in EchoInput.)
        Public Sub SetMode(ByVal mode As InputMode)
            Dim conMode As Integer
            Win32Native.GetConsoleMode(hConsoleIn, conMode)
 
            If mode = InputMode.EchoInput Then
                conMode = conMode And Not (Win32Native.ENABLE_LINE_INPUT Or Win32Native.ENABLE_ECHO_INPUT)
            Else
                conMode = conMode Or (Win32Native.ENABLE_LINE_INPUT Or Win32Native.ENABLE_ECHO_INPUT)
            End If
            Win32Native.SetConsoleMode(hConsoleIn, conMode)
        End Sub
 
        Public Sub Clear()
            Dim written As Integer = 0
            Dim startCoord As New Win32Native.COORD
            startCoord.x = 0 : startCoord.y = 0
 
            Win32Native.FillConsoleOutputCharacter(hConsoleOut, " "c, conInfo.MaxSize.x * conInfo.MaxSize.y, startCoord, written)
            Win32Native.FillConsoleOutputAttribute(hConsoleOut, backgroundAttrib, conInfo.MaxSize.x * conInfo.MaxSize.y, startCoord, written)
 
            MoveCursor(1, 1)
        End Sub
 
        ' Use only if the console is in LineInput mode. If value is true, then the things
        ' that the user types will automatically show up in the console. (In EchoInput mode
        ' nothing shows up automatically)
        Public Sub EchoInput(ByVal value As Boolean)
            Dim Ret As Integer
            Win32Native.GetConsoleMode(hConsoleIn, Ret)
            If value Then
                Ret = Ret Or (Win32Native.ENABLE_ECHO_INPUT)
            Else
                Ret = Ret And Not (Win32Native.ENABLE_ECHO_INPUT)
            End If
            Win32Native.SetConsoleMode(hConsoleIn, Ret)
        End Sub
 
        Public Sub SetColor(ByVal foreColor As ConsoleColor, ByVal backColor As ConsoleColor)
            Me.backColor = CInt(backColor)
            SetColor(foreColor)
        End Sub
 
        Public Sub SetColor(ByVal foreColor As ConsoleColor)
            Win32Native.SetConsoleTextAttribute(hConsoleOut, CInt(foreColor) + 16 * backColor)
        End Sub
 
        Public Sub SetClsColor(ByVal backColor As ConsoleColor)
               backgroundAttrib = CShort(backColor) * &H10S
        End Sub
 
        Public Sub MoveCursor(ByVal x As Integer, ByVal y As Integer)
            conInfo.CursorPosition.x = CShort(x - 1)
            conInfo.CursorPosition.y = CShort(y - 1)
            If cursorInfo.Visible Then
                Dim coord As Integer = conInfo.CursorPosition.x + conInfo.CursorPosition.y * &H10000
                Win32Native.SetConsoleCursorPosition(hConsoleOut, coord)
            End If
        End Sub
 
 
        ' Change the cursor's shape and visibility state.
        Public Sub SetCursorType(ByVal newType As CursorType)
            '  Change the cursor type.
            Select Case newType
                Case CursorType.Block
                    cursorInfo.Size = 100
                    cursorInfo.Visible = True
 
                Case CursorType.SingleLine
                    cursorInfo.Size = 10
                    cursorInfo.Visible = True
 
                Case CursorType.Off
                    cursorInfo.Size = 100
                    cursorInfo.Visible = False
            End Select
 
            Win32Native.SetConsoleCursorInfo(hConsoleOut, cursorInfo)
 
            ' Move the cursor to its correct position.
            MoveCursor(conInfo.CursorPosition.x, conInfo.CursorPosition.y)
        End Sub
 
        ' Forces to close the console. Don't call if not necessary.
        Public Sub FreeConsole()
            ' I just added these myself. I don't if I really have to do this, but I thought
            ' they are necessary. That's why it's in a Try-Catch block, because I don't
            ' know if it may cause an error or not. But it shouldn't.
            Try
                Win32Native.FreeConsole()
                Win32Native.CloseHandle(hConsoleIn)
                Win32Native.CloseHandle(hConsoleOut)
                Win32Native.FreeConsole()
            Catch
            End Try
        End Sub
 
 
        Private Sub updateConsoleInfo()
            ' Fill in the console information to conInfo
            Win32Native.GetConsoleScreenBufferInfo(hConsoleOut, conInfo)
        End Sub
    End Class

this class is used by the ConsoleEx class (previous post)

VB Code:

' Please do not remove :)
' Written by Kourosh Derakshan
'
Friend Class Win32Native
        ' Input and output handle 
        Friend Const STD_OUTPUT_HANDLE As Integer = -11&
        Friend Const STD_INPUT_HANDLE As Integer = -10&
        ' Echo Input would let the program to receive each key stroke.
        Friend Const ENABLE_LINE_INPUT As Short = &H2S
        Friend Const ENABLE_ECHO_INPUT As Short = &H4S
 
        ' Color codes
        Friend Const FOREGROUND_BLUE As Integer = &H1&
        Friend Const FOREGROUND_GREEN As Integer = &H2&
        Friend Const FOREGROUND_RED As Integer = &H4&
        Friend Const FOREGROUND_INTENSIFY As Integer = &H8&
        Friend Const BACKGROUND_BLUE As Integer = &H10&
        Friend Const BACKGROUND_GREEN As Integer = &H20&
        Friend Const BACKGROUND_INTENSIFY As Integer = &H80&
 
 
 
        Public Enum BACKGROUNDCOLOR
            bBLUE = &H10&   'BACKGROUND_BLUE
            bGREEN = &H20&  'BACKGROUND_GREEN
            bRED = &H40&    'BACKGROUND_RED
            bBRIGHT = &H80& 'BACKGROUND_INTENSITY
        End Enum
 
        <StructLayout(LayoutKind.Sequential)> _
        Friend Structure COORD
            Friend x, y As Short
        End Structure
 
        <StructLayout(LayoutKind.Sequential)> _
        Friend Structure RECT
            Dim Left, Top, Right, Bottom As Short
        End Structure
 
        <StructLayout(LayoutKind.Sequential)> _
        Friend Structure CONSOLE_INFO
            Friend Size As COORD
            Friend CursorPosition As COORD
            Friend Attribute As Short
            Friend Window As RECT
            Friend MaxSize As COORD
        End Structure
 
        <StructLayout(LayoutKind.Sequential)> _
        Friend Structure CURSOR_INFO
            Friend Size As Integer
            Friend Visible As Boolean
        End Structure
 
 
 
 
 
        <DllImport("kernel32")> _
               Public Shared Sub SetConsoleTitle(ByVal lpTitleStr As String)
        End Sub
 
        <DllImport("kernel32")> _
        Public Shared Sub GetConsoleTitle(ByVal lpBuff As StringBuilder, ByVal buffSize As Integer)
        End Sub
 
        <DllImport("kernel32")> _
               Public Shared Function SetConsoleTextAttribute(ByVal hConsoleOutput As IntPtr, ByVal wAttributes As Integer) As Integer
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function FillConsoleOutputCharacter(ByVal Handle As IntPtr, ByVal uChar As Char, _
                                                          ByVal Len As Integer, ByVal start As COORD, ByRef written As Integer) As Integer
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function FillConsoleOutputAttribute(ByVal Handle As IntPtr, ByVal att As Short, _
                                                          ByVal Len As Integer, ByVal start As COORD, _
                                                          ByRef writted As Integer) As Boolean
        End Function
 
 
        <DllImport("kernel32")> _
        Public Shared Sub GetConsoleScreenBufferInfo(ByVal Handle As IntPtr, _
                                                     ByRef info As CONSOLE_INFO)
        End Sub
 
        <DllImport("kernel32")> _
        Public Shared Function SetConsoleCursorInfo(ByVal Handle As IntPtr, ByRef info As CURSOR_INFO) As Boolean
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function SetConsoleCursorPosition(ByVal handle As IntPtr, ByVal coord As Integer) As Boolean
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function GetStdHandle(ByVal nStdHandle As Integer) As IntPtr
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Sub GetConsoleMode(ByVal hConsoleHandle As IntPtr, ByRef lpMode As Integer)
        End Sub
 
        <DllImport("kernel32")> _
        Public Shared Sub SetConsoleMode(ByVal hConsoleHandle As IntPtr, ByVal dwMode As Integer)
        End Sub
 
        <DllImport("kernel32")> _
        Public Shared Function CloseHandle(ByVal hObject As IntPtr) As Integer
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function AllocConsole() As Integer
        End Function
 
        <DllImport("kernel32")> _
        Public Shared Function FreeConsole() As Integer
        End Function
 
    End Class

put this in a console project. you need to copy past the code from the last two posts in Module1 also .

VB Code:

' Please do not remove :)
' Written by Kourosh Derakshan
'
Module Module1
 
 
    Sub Main()
        Dim conEx As New ConsoleEx
 
        Console.WriteLine("Hello world... changing the title")
        conEx.Title = "New Title!"
        Console.WriteLine("The new title is: " & conEx.Title)
        Console.WriteLine()
 
 
 
 
 
 
        Console.WriteLine("Type something. Everything will be shown in upper-case. Press enter to stop:")
        ' Change the input mode to receive every key stroke
        conEx.SetMode(ConsoleEx.InputMode.EchoInput)
        Do
            Dim asciiCode As Integer
            Dim aChar As Char
 
            ' Note that I'm not calling the Readline method, I'm calling the Read method in this mode
            asciiCode = CInt(Console.Read())  ' Returns the ascii code of the entered character
 
            ' 13 is the code for enter
            If asciiCode = 13 Then
                Exit Do
            End If
 
            ' Convert the asciicode to its character 
            aChar = Chr(asciiCode)
            aChar = Char.ToUpper(aChar)
 
            Console.Write(aChar)
        Loop
        Console.WriteLine()
        Console.WriteLine("Press anykey to clear the screen...")
        Console.Read()
 
        ' Change back the input-mode to line input
        conEx.SetMode(ConsoleEx.InputMode.LineInput)
        conEx.Clear()
 
 
 
 
 
 
        conEx.SetCursorType(ConsoleEx.CursorType.Off)
        Console.WriteLine("Cursor turned off ...")
        Console.ReadLine()
        Console.WriteLine()
 
        conEx.SetCursorType(ConsoleEx.CursorType.Block)
        Console.WriteLine("Block-type cursor...")
        Console.ReadLine()
        Console.WriteLine()
 
        Console.WriteLine("Cursor restored...")
        conEx.SetCursorType(ConsoleEx.CursorType.SingleLine)
        Console.ReadLine()
        conEx.Clear()
 
 
 
 
 
 
        Console.WriteLine("Turning off the echo, type something and press enter...")
        conEx.EchoInput(False)
        Dim tmpStr As String = Console.ReadLine()
        Console.WriteLine("You typed: " & tmpStr)
        conEx.EchoInput(True)
 
        conEx.SetMode(ConsoleEx.InputMode.EchoInput)
        Console.WriteLine("Press any key to continue...")
        Console.Read()
        conEx.SetMode(ConsoleEx.InputMode.LineInput)
        conEx.Clear()
 
 
 
 
 
        ' (1 is the smallest position, not 0)
        conEx.MoveCursor(1, 10)
        conEx.SetColor(ConsoleEx.ConsoleColor.Red)
        Console.WriteLine("RED")
        conEx.SetColor(ConsoleEx.ConsoleColor.Blue)
        Console.WriteLine("Type in blue: ")
        Console.ReadLine()
 
        ' Original color
        conEx.SetColor(ConsoleEx.ConsoleColor.White)
 
 
        conEx.SetMode(ConsoleEx.InputMode.EchoInput)
        Console.WriteLine("Press any key to continue...")
        Console.Read()
    End Sub
 
End Module