FreeBasic
Главная
Вход
Регистрация
Воскресенье, 03.03.2024, 22:06Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Форум » Freebasic » Исходники » Жирный курсор в консоли (Жирный курсор в консоли)
Жирный курсор в консоли
haavДата: Воскресенье, 21.10.2012, 09:43 | Сообщение # 1
Генералиссимус
Группа: Администраторы
Сообщений: 1360
Репутация: 49
Статус: Offline
Жирный курсор в консоли


Code

#include "windows.bi"

Sub SetBlock()
        dim cInfo as CONSOLE_CURSOR_INFO
        cInfo.dwSize = 100 ' 100% size
        cInfo.bVisible = TRUE
        SetConsoleCursorInfo(GetStdHandle(STD_OUTPUT_HANDLE), @cInfo)
End Sub
Print 10
SetBlock()
sleep


Вы сохраняете власть над людьми покуда оставляете им что-то…Отберите у человека все, и этот человек уже будет неподвластен вам…
 
Форум » Freebasic » Исходники » Жирный курсор в консоли (Жирный курсор в консоли)
  • Страница 1 из 1
  • 1
Поиск: