DaniWeb Forum Index > Software Development > Visual Basic 4 / 5 / 6

Writing to Console

Please support our Visual Basic 4 / 5 / 6 advertiser: Programming Forums - DaniWeb Sister Site

Thread Solved

•

Join Date: Jan 2007

Posts: 200

Reputation: shouvik.d is an unknown quantity at this point

Solved Threads: 6

shouvik.d

Offline

Posting Whiz in Training

Writing to Console

Dec 24th, 2008

Hi All,

I have a VB6 application which can work in UI as well as in CMD mode. Now when I am running it in CMD mode I need to write few line into the console after completion of the program before quitting the application. The rest of the application is working perfectly fine but I am not able to write something into the console

I tried the following but it does not work

 Help with Code Tags 
 VB Syntax (Toggle Plain Text) 
Option Explicit
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
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 Long
Declare Function SetConsoleCtrlHandler Lib "kernel32" (ByVal HandlerRoutine As Long, ByVal Add As Long) As Long
Public Const STD_OUTPUT_HANDLE = -11&
Public hndl As Long
 
Sub Main()
   Dim strWord As String
   Dim cWritten As Long
   Dim successStat As Boolean
 
   On Error GoTo Hndlr
   strWord = "Hello!" & vbCrLf
    hndl = GetStdHandle(STD_OUTPUT_HANDLE)
    successStat = WriteConsole(hndl, ByVal strWord, Len(strWord), cWritten, ByVal 0&)
Hndlr:
   Debug.Print Err.Description
   Debug.Print Err.Number
   Resume Next
 
End Sub
Option Explicit
Declare Function AllocConsole Lib "kernel32" () As Long
Declare Function FreeConsole Lib "kernel32" () As Long
Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Long) As Long
Declare Function GetStdHandle Lib "kernel32" (ByVal nStdHandle As Long) As Long
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 Long
Declare Function SetConsoleCtrlHandler Lib "kernel32" (ByVal HandlerRoutine As Long, ByVal Add As Long) As Long
Public Const STD_OUTPUT_HANDLE = -11&
Public hndl As Long

Sub Main()
   Dim strWord As String
   Dim cWritten As Long
   Dim successStat As Boolean
   
   On Error GoTo Hndlr
   strWord = "Hello!" & vbCrLf
    hndl = GetStdHandle(STD_OUTPUT_HANDLE)
    successStat = WriteConsole(hndl, ByVal strWord, Len(strWord), cWritten, ByVal 0&)
Hndlr:
   Debug.Print Err.Description
   Debug.Print Err.Number
   Resume Next
   
End Sub

Kindly help. I need to write the output in the same console window from where the application is invoked, not in a new window that the application would open.

Regards
Shouvik

•