В отличие от решения, предложенного Хакером (или в дополнение к нему), мой класс не использует FSO, не имеет проблем с отладкой и писать можно по-русски.
Console.zip- Версия 1.0. Класс управления консолью (VB5)
- (7.13 Кб) Скачиваний: 226
- Console2.zip
- Версия 1.1. Оптимизирован код.
- (5.66 Кб) Скачиваний: 239
Пример использования:
- Код: Выделить всё
Public oConsole As clsConsole 'Объект управления консолью.
Sub Main()
Dim sText As String * 15 'Текст для псевдографич. табл.
Set oConsole = New clsConsole 'Создаём объект
With oConsole
.Load 'Загружаем консоль
.Hide 'Скрываем окно консо-
'ли, что не мешает нам
'выводить в неё текст
'и вообще работать.
.Title "Заголовочек!" 'Заголовок консоли.
.ReportPath = "D:\log.txt" 'Задаём путь к отчёту.
.Color FCOL_Black, BCOL_WhiteBright 'Цвет текста и фона
.WriteLn "Hello!", False 'Пишем строку с воз-
'вратом каретки и без
'изменения кодировки.
'Полезно при вводе
'символов через Char()
.WriteEmptyRows (2) 'Пишем 2-е пустые стр.
.WriteX "Имя (до 15-и симв.): " 'Пишем строку без воз-
'врата каретки с изме-
'нением кодировки (по
'умолчанию).
MsgBox "Сейчас появится консоль!"
.Show 'Отображаем консоль.
sText = .ReadLn 'Получаем данные от
'пользователя.
.ConsoleTablesIndent = 10 'Отступ слева от табл.
.BorderStyle = ConsoleBorderDouble 'Тип границ таблицы
.Table LN_TOP, sText 'Верхняя грань табл.
.Table LN_CONTENT, sText 'Содержимое ячейки
.Table LN_BOTTOM, sText 'Нижняя грань таблицы
.Unload 'Выгружаем консоль.
End With
Set oConsole = Nothing 'Очищаем память.
End Sub
- screen.png (6.92 Кб) Просмотров: 1420