CConsole – A class for creating console applications

' CCONSOLE Class'' Creates a console window and writes to it' Example:'     Dim cons As New CConsole'     cons.WriteString "Hello World"Private Declare Function AllocConsole Lib "kernel32" () As LongPrivate Declare Function FreeConsole Lib "kernel32" () As LongPrivate Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As _    LongPrivate Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) _    As LongPrivate Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" _    (ByVal hConsoleOutput As Long, lpBuffer As Any, ByVal nNumberOfCharsToWrite _    As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As LongConst STD_OUTPUT_HANDLE = -11&' the handle of this consoleDim hConsole As LongPrivate Sub Class_Initialize()    ' allocate a console when this object is created    If AllocConsole() Then        hConsole = GetStdHandle(STD_OUTPUT_HANDLE)    End IfEnd SubPrivate Sub Class_Terminate()    ' free the console when this object is destroyed    If hConsole Then CloseHandle hConsole    FreeConsoleEnd Sub' write a string to the consoleSub WriteString(ByVal Text As String)    Dim cWritten As Long    WriteConsole hConsole, ByVal Text, Len(Text), cWritten, ByVal 0&End Sub

Share the Post:
Share on facebook
Share on twitter
Share on linkedin

Overview

Recent Articles: