Select Case ListBox1.ListIndex

Case 0

UserForm3.ListBox1.Font.Size = 10

UserForm3.Image1.Picture = LoadPicture("c:\windows\ Клыки.bmp")

Case 1

UserForm3.ListBox1.Font.Size = 14

UserForm3.Image1.Picture = LoadPicture("c:\windows\ Циновка.bmp")

Case 2

UserForm3.ListBox1.Font.Size = 16

UserForm3.Image1.Picture = LoadPicture("c:\windows\ Установка.bmp")

End Select

End Sub

Private Sub UserForm_Activate()

UserForm3.ListBox1.AddItem "First"

UserForm3.ListBox1.AddItem "Second"

UserForm3.ListBox1.AddItem "Fors"

UserForm3.TextBox1.Text = " Выбор объекта "

End Sub

 

Генерация случайного целого числа

 

В данном примере функция Rnd используется для получения случайного целого числа в диапазоне от 1 до 6.

 

Dim MyValue

MyValue = Int((6 * Rnd) + 1) ' Возвращает случайное число от 1 до 6.

 

 

Приложение 2

 

Краткий справочник по объектам, методам, свойствам и функциям, использованным в примерах

 

Activate (событие)

Событие «Activate» (активизация) происходит, когда объект становится активным окном.

Событие «Deactivate» (деактивизация) происходит, когда объект более не является активным окном.

Синтаксис: Private Sub объект_Activate()

                          Private Sub объект_Deactivate()

Прототип объект представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке "Применение".

 

Add (метод)

Добавляет компонент в объект «Collection».

Синтаксис: объект.Add item, key, before, after

Синтаксис метода «Add» содержит следующий указатель объекта и именованные аргументы:

· item (обязательный) – выражение любого типа, определяющее компонент, добавляемый в семейство;

· key (необязательный) – уникальное строковое выражение, определяющее ключевую строку, которая может быть использована для доступа к компоненту семейства вместо порядкового номера;

· before (необязательный) – выражение, указывающее относительную позицию компонента в семействе.

Компонент, добавляемый в семейство, размещается перед компонентом, указанным в аргументе «before». Если этот аргумент задается с помощью числового выражения, то аргумент «before» должен иметь значение от 1 до значения свойства «Count» семейства. Если аргумент «before» определяется строковым выражением, то его значение должно совпадать со значением аргумента «key», указанным для одного из компонентов семейства при его добавлении в семейство. Допускается указание в инструкции одного из аргументов «before» или «after», но не их обоих.

· after (необязательный) – выражение, указывающее относительную позицию компонента в семействе. 

Компонент, добавляемый в семейство, размещается после компонента, указанного в аргументе «after».

Если этот аргумент задается с помощью числового выражения, «after» определяется строковым выражением, то его значение должно совпадать со значением аргумента «key», указанным для одного из компонентов семейства при его добавлении в семейство. Допускается указание в инструкции одного из аргументов «before» или «after», но не их обоих.

 

Cells (ячейка) (метод)

Адресует ячейку рабочего листа.

Синтаксис: объект.Cells(Row, Column).свойство

· объект (обязательный) – описание объекта, содержащего адресуемую ячейку;

· Row (обязательный) – номер строки рабочего листа; может задаваться целым числом, целочисленной константой или переменной;

· Column (обязательный) – номер столбца рабочего листа; может задаваться целым числом, целочисленной константой или переменной.

 

Chr (функция)

Возвращает значение типа «String», содержащее символ, соответствующий указанному коду символа.

Синтаксис:      Chr(кодСимвола)

Обязательный аргумент «кодСимвола» является значением типа «Long», определяющим символ.

 

Clear (метод)

Очищает все значения свойств объекта «Err».

Синтаксис: Объект.Clear

Аргумент «объект» всегда представляет объект «Err».

 

Close (инструкция)

Завершает операции ввода/вывода с файлом, открытым с помощью инструкции «Open».

Синтаксис: Close [списокНомеровФайлов]

Необязательный аргумент «списокНомеровФайлов» может представлять один или несколько номеров файлов. При этом используется следующий синтаксис, где «номерФайла» представляет любой допустимый номер файла: [[#]номерФайла] [, [#]номерФайла]...

 

Date (инструкция)

Устанавливает текущую системную дату.

Синтаксис: Date = дата

Для компьютеров, работающих под управлением Microsoft Windows 95, аргумент дата должен задавать дату в интервале от 1 января 1980 года до 31 декабря 2099 года. Для компьютеров, работающих под управлением Microsoft Windows NT, дата должна находиться в интервале от 1 января 1980 года до 31 декабря 2079 года.

 

Dim (инструкция)

Описывает переменные и выделяет для них память.

Синтаксис: Dim [WithEvents] имяПеременной[([индексы])] [As [New] тип] [, [WithEvents] имяПеременной[([индексы])] [As [New] тип]]..

Синтаксис инструкции «Dim» содержит следующие элементы:

· WithEvents (необязательный) – ключевое слово, указывающее, что «имяПеременной» является объектной переменной, которая используется при отклике на события, генерируемые объектом «ActiveX». Применяется только в модулях класса. Пользователь имеет возможность описать с помощью ключевого слова «WithEvents» произвольное количество отдельных переменных, однако при этом не допускается создание массивов. Не допускается также использование ключевого слова «New» с ключевым словом «WithEvents»;

· имяПеременной (обязательный) – имя переменной, удовлетворяющее стандартным правилам именования переменных;

· индексы (необязательный) – размерности переменной массива; допускается описание до 60 размерностей. Для задания аргумента индексы используется следующий синтаксис:

[нижний To] верхний [, [нижний To] верхний]...

Если нижний индекс не задан явно, нижняя граница массива определяется инструкцией «Option Base». Если отсутствует инструкция «Option Base», нижняя граница массива равняется нулю.

· New (необязательный) – ключевое слово, включающее возможность неявного создания объекта. Если не указано ключевого слова «New» при описании объектной переменной, новый экземпляр объекта создается при первой ссылке на объект, поэтому нет необходимости присваивать ссылку на объект с помощью инструкции «Set». Ключевое слово «New» нельзя использовать для описания переменных любых внутренних типов данных, для описания экземпляров зависимых объектов, а также вместе с ключевым словом «WithEvents»;

· тип (необязательный) – тип данных переменной; поддерживаются типы «Byte», «Boolean», «Integer», «Long», «Currency», «Single», «Double», «Decimal» (в настоящее время не поддерживается), «Date», «String» (для строк переменной длины), «String* длина» (для строк фиксированной длины), «Object», «Variant», определяемый пользователем тип или объектный тип. Для каждой описываемой переменной следует использовать отдельное предложение «As тип».

 

Do...Loop (инструкция)

Повторяет выполнение набора инструкций, пока условие имеет значение «True» или пока оно не примет значение «True».

Синтаксис:

Do [{While | Until} условие]

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

[Exit Do]

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

Loop

 

EOF (функция)

Возвращает значение типа «Integer», содержащее логическое значение «True», при достижении конца файла.

Синтаксис:      EOF(номерФайла)

Обязательный аргумент «номерФайла» является выражением типа «Integer», содержащим любой допустимый номер файла.

 

Hide (метод)

Скрывает объект, но не выгружает его.

Синтаксис: объект.Hide

Прототип «объект» представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке «Применение». Если этот элемент синтаксиса опущен, предполагается, что объектом является форма «UserForm», имеющая фокус.

 

If...Then...Else (инструкция)

Задает выполнение определенных групп инструкций в зависимости от значения выражения.

Синтаксис: If условие Then [инструкции] [Else инструкции_else]

Допускается также использование блоковой формы синтаксиса:

If условие Then

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

[ElseIf условие-n Then

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

[Else

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

End If

Синтаксис инструкции «If...Then...Else» содержит следующие элементы:

· условие (обязательный) – одно или несколько выражений одного из двух типов:

а) числовое выражение или строковое выражение, имеющее значение «True» или «False». Если аргумент «условие» имеет значение «Null», то условие рассматривается как значение «False»;

б) выражение вида «TypeOf имяОбъекта Is типОбъекта».

Аргумент «имяОбъекта» может быть любой ссылкой на объект, а «типОбъекта» представлять любой допустимый тип объекта. Выражение имеет значение «True», если объект «имяОбъекта» имеет тип объекта, указанный в аргументе «типОбъекта»; в противном случае выражение имеет значение «False».

· инструкции      (необязательный в блоковый форме; обязательный в строчной форме без предложения «Else») – одна или несколько инструкций, разделяемых двоеточиями; выполняются, если условие имеет значение «True»;

· условие -n (необязательный) – аналогичен элементу «условие»;

· инструкции_elseif (необязательный) – одна или несколько инструкций, которые выполняются, если соответствующее «условие-n» имеет значение «True»;

· инструкции_else (необязательный) – одна или несколько инструкций, которые выполняются, если ни одно из предыдущих выражений: «условие» или «условие-n» – не имеет значение «True».

 

Int и Fix (функция)

Возвращают значение типа, совпадающего с типом аргумента, которое содержит целую часть числа.

Синтаксис: Int(число)

Fix(число)

Обязательный аргумент «число» представляет значение типа «Double» или любое допустимое числовое выражение. Если число имеет значение «Null», возвращается «Null».

 

Line Inpu t (инструкция)

Читает строку из открытого последовательного файла и присваивает ее переменной типа «String».

Синтаксис:       Line Input #номерФайла, имяПеременной

Синтаксис инструкции Line Input # содержит следующие элементы:

· номерФайла (обязательный) – любой допустимый номер файла;

· имяПеременной (обязательный) – допустимое имя переменной типа «Variant» или «String».

 

Msgbox (функция)

Выводит на экран диалоговое окно, содержащее сообщение, устанавливает режим ожидания нажатия кнопки пользователем, а затем возвращает значение типа «Integer», указывающее, какая кнопка была нажата.

Синтаксис: MsgBox(prompt[, buttons] [, title] [, helpfile, context])

Синтаксис функции «MsgBox» содержит следующие именованные аргументы:

· prompt (обязательный) – строковое выражение, отображаемое как сообщение в диалоговом окне. Максимальная длина строки «prompt» составляет приблизительно 1024 символа и зависит от ширины используемых символов. Строковое значение «prompt» может содержать нескольких физических строк. Для разделения строк допускается использование символа возврата каретки (Chr(13)), символа перевода строки (Chr(10)) или комбинации этих символов (Chr(13) & Chr(10));

· buttons   (необязательный) – числовое выражение, представляющее сумму значений, которые указывают число и тип отображаемых кнопок, тип используемого значка, основную кнопку и модальность окна сообщения (значение по умолчанию этого аргумента равняется 0);

· title (необязательный) – строковое выражение, отображаемое в строке заголовка диалогового окна (если этот аргумент опущен, в строку заголовка помещается имя приложения);

· helpfile   (необязательный) – строковое выражение, определяющее имя файла справки, содержащего справочные сведения о данном диалоговом окне (если этот аргумент указан, необходимо указать также аргумент «context»);

· context   (необязательный) – числовое выражение, определяющее номер соответствующего раздела справочной системы (если этот аргумент указан, необходимо указать также аргумент «helpfile»).

 

Open (инструкция)

Разрешает выполнение с файлом операций ввода/вывода.

Синтаксис: Open путь For режим [Access доступ] [блокировка] As [#]номерФайла [Len=длина]

Синтаксис инструкции «Open» содержит следующие элементы:

· путь (обязательный) – строковое выражение, указывающее имя файла; может содержать имя каталога или папки и имя диска;

· режим (обязательный) – ключевое слово, указывающее режим файла: «Append», «Binary», «Input», «Output» или «Random» (по умолчанию файл открывается для доступа в режиме «Random»);

· доступ (необязательный) – ключевое слово, указывающее операции, разрешенные с открытым файлом: «Read», «Write» или «Read Write»;

· блокировка (необязательный) – ключевое слово, указывающее операции, разрешенные с открытым файлом другим процессам: «Shared», «Lock Read», «Lock Write» и «Lock Read Write»;

· номерФайла (о бязательный) – допустимый номер файла в интервале от 1 до 511 включительно. Для определения следующего свободного номера файла следует использовать функцию «FreeFile»;

· длина (необязательный) – число, меньшее либо равное 32 767 байт. Для файлов, открытых в режиме «Random», это значение является длиной записи. Для файлов с последовательным доступом это значение является числом буферизуемых символов.

 

Public (инструкция)

Применяется на уровне модуля для описания общих переменных и выделения памяти.

Синтаксис: Public [WithEvents] имяПеременной[([индексы])] [As [New] тип] [,[WithEvents] имяПеременной[([индексы])] [As [New] тип]]...

Синтаксис инструкции «Public» содержит следующие элементы:

· WithEvents (необязательный) – ключевое слово, указывающее, что «имяПеременной» является объектной переменной, которая используется при отклике на события, генерируемые объектом «ActiveX». Применяется только в модулях класса. Пользователь имеет возможность описать с помощью ключевого слова «WithEvents» произвольное количество отдельных переменных, однако при этом не допускается создание массивов. Не допускается также использование ключевого слова «New» с ключевым словом «WithEvents»;

· имяПеременной (обязательный) – имя переменной, удовлетворяющее стандартным правилам именования переменных;

· индексы (необязательный) – размерности переменной массива; допускается описание до 60 размерностей. Аргумент «индексы» использует следующий синтаксис: [нижний To] верхний [,[нижний To] верхний]... Если нижний индекс не задан явно, нижняя граница массива определяется инструкцией «Option Base». Если отсутствует инструкция «Option Base», нижняя граница массива равняется нулю;

· New (необязательный) – ключевое слово, включающее возможность неявного создания объекта. Если не указано ключевого слова «New» при описании объектной переменной, новый экземпляр объекта создается при первой ссылке на объект, поэтому нет необходимости присваивать ссылку на объект с помощью инструкции «Set». Ключевое слово «New» нельзя использовать для описания переменных любых внутренних типов данных, для описания экземпляров зависимых объектов, а также вместе с ключевым словом «WithEvents».

· тип (необязательный) – тип данных переменной; поддерживаются типы «Byte», «Boolean», «Integer», «Long», «Currency», «Single», «Double», «Decimal» (в настоящее время не поддерживается), «Date», «String», (для строк переменной длины), «String* длина» (для строк фиксированной длины), «Object», «Variant», определяемый пользователем тип или объектный тип. Для каждой описываемой переменной следует использовать отдельное предложение «As тип».

 

Range (диапазон) – объект, содержащий ссылку на диапазон ячеек рабочего листа.

Синтаксис: объект.Range(“ссылка” {,:}[“ссылка”])

 

Rem (инструкция)

Используется для добавления в программу дополнительных пояснений.

Синтаксис: Rem примечание

Возможно использование следующего синтаксиса: ' примечание

Необязательный аргумент «примечание» содержит текст любого комментария, который добавляется в программу. После ключевого слова «Rem» перед текстом примечания нужно вставить пробел.

 

Select (метод)

Выбирает объект.

Синтаксис: выражение.Select(Replace)

Выражение (обязательный) – описывет объект, используемый в качестве источника.

 

Show (метод)

Выводит на экран объект «UserForm».

Синтаксис: [объект.]Show

Необязательный прототип «объект» представляет собой объектное выражение, значением которого является один из объектов, перечисленных в списке «Применение». Если этот элемент синтаксиса опущен, предполагается, что объектом является форма «UserForm», связанная с активным модулем «UserForm».

 

Val – возвращает числа, содержащиеся в строке, как числовое значение соответствующего типа.

Синтаксис: Val(строка)

Обязательный аргумент «строка» является любым допустимым строковым выражением.

 

Time (инструкция)

Устанавливает системное время.

Синтаксис: Time = время

Обязательный аргумент «время» может быть любым числовым выражением, строковым выражением или любой комбинацией, которая представляет значение времени.

 

UserForm (объект)

Представляет собой окно или диалоговое окно, являющееся составной частью интерфейса пользователя в приложении.

Семейство «UserForms» является семейством, компоненты которого представляют все загруженные формы «UserForm» в приложении. У семейства «UserForms» имеются свойства «Count» и «Item», а также метод «Add». Свойство «Count» указывает число компонентов в семействе; свойство «Item» (компонент, используемый по умолчанию) указывает определенный компонент семейства; метод «Add» помещает в семейство новый компонент «UserForm».

Синтаксис:             

UserForm

UserForms[.Item](индекс)