devxlogo

CConsole – A class for creating console applications

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

See also  What Are International Payments, And How Do They Work?
devxblackblue

About Our Editorial Process

At DevX, we’re dedicated to tech entrepreneurship. Our team closely follows industry shifts, new products, AI breakthroughs, technology trends, and funding announcements. Articles undergo thorough editing to ensure accuracy and clarity, reflecting DevX’s style and supporting entrepreneurs in the tech sphere.

See our full editorial policy.

About Our Journalist