WriteConsole

Функция WriteConsole

Declare Function WriteConsole Lib "kernel32" Alias "WriteConsoleA" (ByVal hConsoleOutput As Long, ByVal lpBuffer As String, ByVal nNumberOfCharsToWrite As Long, lpNumberOfCharsWritten As Long, lpReserved As Any) As Long

WriteConsole записывает строку в консоль в текущей позиции курсора

hConsoleOutput: Дескриптор консоли для записи. Дескриптор должен иметь доступ GENERIC_WRITE
lpBuffer: Буфер, содержащий строку для вывода в консоль
nNumberOfCharsToWrite: Число символов для вывода текста
lpNumberOfCharsWritten: Указатель на переменную, содержащую число записанных символов
lpReserved: Зарезервировано. Используйте vbNullString

Пример

' Также смотри пример console.zip

' Добавьте в General Declaration код
Private hConsole As Long

Private Sub Form_Load()

Dim txt As String
Dim num_written As Long

If AllocConsole() Then
  hConsole = GetStdHandle(STD_OUTPUT_HANDLE)

  If hConsole = 0 Then MsgBox "Couldn't allocate STDOUT"

' Приготовим текст
        txt = "******************************************" & vbCrLf & _
              "*   Warning: Do not close this window!   *" & vbCrLf & _
              "* Close the VB program's window instead. *" & vbCrLf & _
              "******************************************" & vbCrLf
WriteConsole hConsole, txt, Len(txt), num_written, vbNullString
SetConsoleTitle "Russian_Project"
' Делаем форму видимой
   Me.Show
   SetFocus
Else
   MsgBox "Couldn't allocate console"
End If
End Sub

Private Sub Form_Unload(Cancel As Integer)
CloseHandle hConsole
FreeConsole
End Sub

Категория

Консоль