Студопедия

Главная страница Случайная страница

Разделы сайта

АвтомобилиАстрономияБиологияГеографияДом и садДругие языкиДругоеИнформатикаИсторияКультураЛитератураЛогикаМатематикаМедицинаМеталлургияМеханикаОбразованиеОхрана трудаПедагогикаПолитикаПравоПсихологияРелигияРиторикаСоциологияСпортСтроительствоТехнологияТуризмФизикаФилософияФинансыХимияЧерчениеЭкологияЭкономикаЭлектроника






Объект Printer






VB использует принтер, установленный по умолчанию в операционной системе. Синтаксис команды:

Printer.Print " Строка текста"

 

Управлять свойствами шрифта можно обычным образом:

 

Printer.Font.Name = " Courier"

Printer.Font.Size = 25

Некоторые полезные свойства:

 

Printer.Copies устанавливает количество копий

Printer. EndDoc сообщает Windows об окончании работы с документом

Printer.NewPage перейти к следующей странице

Printer.Pages сохраняет количество напечатанных страниц

 

Создайте приложение с одной командной кнопкой, под которой находится код:

 

Private Sub Print_Click()

Printer.Print " Напечатано"

End Sub

Дополнительные возможности работы со строками

 

Оператор Like и неопределенный поиск

Оператор Like позволяет сравнивать строки, используя обычные шаблоны для поиска файлов в DOS, однако значительно превосходя их по возможностям. Например, этот оператор может указать, присутствуют ли цифры внутри строки, либо назвать отсутствующие в строке символы. Для ненулевых строк данный оператор возвращает значение True, когда находит совпадение, a False - в случае неудачи. Зависимость от регистра символов здесь определяется текущими установками Option Compare в форме или модуле (конечно, такого рода задачи можно решать и при помощи функции Instr, но оператор Like работает быстрее и. что немаловажно, сохраняет время программиста). Как и в DOS. вопросительный знак (?) означает ровно один символ, а " *" заменяет произвольное количество символов. Например, в операторе If-Then, как здесь:

 

If'QuickBasic" Like " *Basic" Then

Print " a Basic lanquaqe"

Else

Print " not a Basic lanquaqe"

End If

 

будет выведена фраза

" a Basic language".

Алгоритм по-русски:

Если " QuickBasic" совпадает с " *Basic", (где «*» - любое количество символов перед Basic) то...

 

Но если изменить выражение:

 

If " QuickBasic" Like "? Basic"

 

Then на экране будет виден результат " not a Basic language"

 

В следующей таблице представлен обзор возможных шаблонов.

? один любой символ

* от нуля до нескольких символов

# одна любая цифра

[список символов] один любой символ из списка

[! список символов] один любой символ не из списка

 

Например:

 

Х = (“###" Like " 123") 'значение X - true, так как ### означает 3 ЛЮБЫХ цифры, а не то что 123.

Х = (" [AВС]" Like " 123") -значение X – false.

 

A если так. то:

 

Х=(" [! АВС|" Like " 123") 'значение Х - true

 

Еще пример:

 

If " [0-9]" Like A$

 

Означает, есть ли цифры в переменной А$






© 2023 :: MyLektsii.ru :: Мои Лекции
Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав.
Копирование текстов разрешено только с указанием индексируемой ссылки на источник.