Консольное приложение (класс)

Здесь можно найти готовые «кирпичики» — части кода, пригодные для построения более крупных проектов, а также решения различных типовых и не очень задач на VB.

Модератор: Brickgroup

nouyana
Продвинутый пользователь
Продвинутый пользователь
Аватара пользователя
 
Сообщения: 104
Зарегистрирован: 29.01.2016 (Пт) 17:42

Консольное приложение (класс)

Сообщение nouyana » 02.12.2016 (Пт) 15:29

Я написал небольшой класс (кирпич), при помощи которого удобно управлять консолью, в т.ч. рисовать псевдографику, менять цвета шрифта, скрывать и отображать консоль по необходимости, а также выводить содержимое консоли в текстовый файл (в 866-ой кодировке). Класс содержит большое количество комментариев.
В отличие от решения, предложенного Хакером (или в дополнение к нему), мой класс не использует FSO, не имеет проблем с отладкой и писать можно по-русски.

Console.zip
Версия 1.0. Класс управления консолью (VB5)
(7.13 Кб) Скачиваний: 205

Console2.zip
Версия 1.1. Оптимизирован код.
(5.66 Кб) Скачиваний: 214

Пример использования:
Код: Выделить всё
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
screen.png (6.92 Кб) Просмотров: 1208

Вернуться в Кирпичный завод

Кто сейчас на конференции

Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 8

    TopList