Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.23
Демидова л. а., Пылькин а. Н. Программирование в среде Visual Basic for Applications стр.23

4. Простейшие функции и процедуры. Типы переменных 39 Таблица 4.2. Допустимые значения переменной кнопки

Отображение

Аргумент

Кнопка ОК

VbOKOnly

Кнопки ОК и Отмена

VbOKCanel

Кнопки Да и Нет

VbYesNo

Кнопки Да, Нет и Отмена

VbYesNoCancel

Кнопки Прекратить, Повторить и Игнорировать

VbAbortRetrylgnore

Кнопки Повторить и Отмена

VbRetryCancel

Информационный знак

Vblnformation

Знак вопроса

VbQuestion

Знак «Критическое сообщение»

VbCritical

Знак восклицания

VbExclamation

• заголовок - задает заголовок окна; по умолчанию используется заголовок MS Excel.

Функция InputBox осуществляет ввод значений с помощью окна ввода. Синтаксис:

InputBox (текстовая_строка, заголовок), где

• текстоваястрока - это обязательный аргумент; он задает в окне информационное сообщение, обычно поясняющее смысл вводимой величины;

• заголовок - задает заголовок окна; по умолчанию используется заголовок Ввод.

Более подробная форма записи функции MsgBox имеет вид:

Msg(Prompt,

[Buttons As VbMsgBoxStyle-=VbOkOnly] , [Title], [HelpFile], [Context]) As VbMsgBoxResult

Более подробная форма записи функции InputBox имеет вид:

Программирование в среде Visual Basic for Applications

InputBox(Prompt,

[Title], [Default], [Xpos], [Ypos],

[HelpFile], [Context]) As String

При этом

• Prompt - сообщение, которое выводится из диалогового окна;

• Title - заголовок диалогового окна;

• Buttons - кнопки, которые выводятся в диалоговом окне;

• Xpos, Ypos - координаты верхнего левого угла диалогового окна;

• Default - символ, который выводится в поле ввода (для функции InputBox), например «пробел»;

• HelpFile - файл-справка;

• Context - описание.

В табл. 4.3 приведены значения, возвращаемые функцией MsgBox.

Таблица 4.3. Значения, возвращаемые функцией MSGBOX

Описание

Константа

Ok

VbOk

Отмена

VbCancel

Прервать

VbAbort

Повторить

VbRetry

Пропустить

Vblgnore

Да

VbYes

Нет

VbNo

Рассмотрим простейшую процедуру, в которой используются функции MsgBox и InputBox.

Sub Main() Const N=5 Dim I As Integer Dim С As Integer Dim D As Integer


⇐ Предыдущая Следующая ⇒
 
 
 
Powered by Exponenta