Функция TAB

Статья
11/05/2008

Обновлен: Ноябрь 2007

Используется с функциями Print или PrintLine для установки позиции вывода.

Public Overloads Function TAB() As TABInfo 
' -or-
Public Overloads Function TAB(ByVal Column As Short) As TABInfo

Параметры

Column
Необязательно. Номер столбца, в который помещается курсор перед отображением или печатью следующего выражения из списка. Если этот параметр опущен, TAB перемещает положение курсора в начало следующей зоны печати.

Заметки

Если текущая позиция печати в текущей строке больше, чем Column, TAB переходит на следующую строку, к столбцу, значение которого задано в Column. Если значение Column меньше единицы, TAB перемещает позицию печати в первый столбец. Если значение Column больше ширины строки вывода, TAB вычисляет следующую позицию печати по формуле:

Остаток от целочисленного деления ширины столбца

Например, если ширина равна 80 и задано TAB(90), в следующий раз печать начнется со столбца 10 (остаток от 90/80). Если параметр Column меньше текущей позиции печати, печать начинается на следующей строке в рассчитанной позиции печати. Если вычисленная позиция печати больше, чем текущая позиция печати, печать начнется с вычисленной позиции печати в той же строке.

Самая левая позиция печати строки вывода всегда равна 1. При использовании для печати в файлы функции Print или PrintLine самая правая позиция равна ширине файла вывода, которую можно установить, используя функцию FileWidth.

Функция TAB может также использоваться вместе с функцией WriteLine. Ее нельзя использовать вместе с Debug.WriteLine или Console.WriteLine.

Примечание.
Убедитесь в том, что столбцы таблицы имеют достаточную ширину, чтобы вместить длинные записи.

Пример

Этот пример использует функцию TAB для установки позиции вывода в файл в окне вывода.

FileOpen(1, "TESTFILE", OpenMode.Output) ' Open file for output.
' The second word prints at column 20.
Print(1, "Hello", TAB(20), "World.")
' If the argument is omitted, cursor is moved to the next print zone.
Print(1, "Hello", TAB(), "World")
FileClose(1)