End With

End With

With.Font

With MyObject

End With

With MyLabel

End With

With объект

[инструкции]

Параметры
объект: Обязательный. Имя объекта или определяемого пользователем типа.
Инструкции: Необязательный. Одна или несколько инструкций, выполняемых над объектом.

Замечания
Инструкция With позволяет выполнить последовательность инструкций над указанным объектом, не повторяя задание имени объекта. Например, если имеется несколько свойств, которые необходимо изменить для одиночного объекта, то удобнее поместить инструкции присвоения свойств внутрь управляющей структуры With, указав ссылку на объект один раз, вместо того, чтобы ссылаться на объект при каждом присвоении его свойств. Следующий пример демонстрирует использование инструкции With для присвоения значений нескольким свойствам одного объекта.

.Height = 2000

.Width = 2000

.Caption = "Объект MyLabel"

После входа в блок With значение аргумента объект изменить невозможно. В результате, невозможно использование одной инструкции With для воздействия на различные объекты.
Допускается создание вложенных конструкций With внутри другого. Однако, поскольку ссылки на объекты внешних блоков With перекрываются во внутренних блоках, необходимо во внутренних блоках With задавать полные ссылки на любой компонент объекта из внешнего блока With.
Нельзя выполнять переходы внутрь или из блоков With. Если не выполнены инструкции With или End With, возможно возникновение ошибок или непредсказуемое поведение объектов.

Пример
В данном примере инструкция With используется для выполнения набора инструкций над одним объектом. Объект MyObject и его свойства используются исключительно в иллюстративных целях.

.Height = 100

' Эквивалентно MyObject.Height = 100.

.Caption = "Привет"

' Эквивалентно MyObject.Caption = "Привет".

.Color = Red

' Эквивалентно MyObject.Font.Color = Red.

.Bold = True

' Эквивалентно MyObject.Font.Bold = True.

Шаг 74 - Инструкция Write #

Записывает неформатированные данные в файл с последовательным доступом.

Write #номерФайла, [списокВывода ]

Параметры
номерФайла: Обязательный. Любой допустимый номер файла.
СписокВывода: Необязательный. Одно или несколько разделяемых запятыми числовых выражений или строковых выражений, которые следует записать в файл.

Замечания
Данные, записанные с помощью инструкции Write #, обычно считываются из файла с помощью инструкции Input #.
Если аргумент списокВывода опущен, а после аргумента номерФайла идет только разделитель списка, в файл будет напечатана пустая строка. Для разделения выражений можно использовать пробелы, точки с запятой или запятые, которые в данной ситуации полностью эквивалентны.
Ниже приведены правила, которые используются при записи данных в файл с помощью инструкции Write #. Записанные данные могут быть корректно прочитаны с помощью инструкции Input # при наличии любой национальной настройки:
В качестве десятичного разделителя при записи числовых данных всегда используется точка.
При выводе логических данных (тип Boolean) в файл записываются ключевые слова #TRUE# или #FALSE#. Ключевые слова True и False не переводятся.
При выводе в файл данных типа Date используется универсальный формат даты. Если компонент, соответствующий дате или времени, отсутствует или равен нулю, в файл записывается только имеющийся в наличии компонент.
Если аргумент списокВывода имеет значение Empty, в файл ничего не записывается.
Если списокВывода имеет значение Null, в файл записывается #NULL#.
Данные типа Error записываются в файл как #ERROR кодОшибки#. Ключевое слово Error не переводится.
В отличие от инструкции Print #, инструкция Write # вставляет запятые между элементами и заключает строки в кавычки по мере записи их в файл. Разработчику не требуется включать разделители в список явным образом. Write # вставляет символ новой строки, т.е. комбинацию символов возврата каретки и перевода строки (Chr(13) + Chr(10)), после записи в файл последнего символа, включенного в списокВывода.

Пример
В данном примере инструкция Write # используется для записи неформатированных данных в последовательный файл.

Open "TESTFILE" For Output As #1 ' Открывает файл для записи.

Write #1, "Всем привет", 234

' Записывает данные, разделенные запятой.

Write #1, ' Записывает пустую строку.

Дата добавления: 2015-06-27