Service M Forum

Окно сообщения _ Message Box

Post new topic Register

start-sm

Дата: Вторник, 22.05.2012, 13:13 | Сообщение # 1

Admin

Administrator

Posts: 574

Reputation: 3

Status: Offline

* Как сделать выпадающее окно сообщения: MsgBox "текст сообщения", тип окна, "заголовок сообщения"

Пример:

Sub MessageBox()

Dim txt As String

txt = "Здесь сообщение"
MsgBox txt, 0, "Здесь заголовок"

End Sub

Пояснение (построчно):

1. Открываем подпрограмму с условным названием MessageBox без параметров ()
2. Задаём переменную txt типа строка string. Это делается для того, чтобы можно было позже в окно сообщение добавлять сообщение не путём записи сути сообщения в параметры функции, выдающей сообщение напрямую, а динамично, через переменную.
3. Присваиваем строковой переменной txt строковое значение, например, "Здесь заголовок".
4. Задаём сам код вывода окна сообщения MsgBox с такими параметрами через запятую:
- текст (суть) сообщения, которое мы будем брать из переменной txt. Однако, вместо этой переменной, можно и напрямую записать сообщение в кавычках.
- задаём числом тип окна сообщения (их всего 6, смотрите ниже).
- указываем текст, который будет в заголовке окна сообщения, например, "Здесь заголовок".
5. Закрываем подпрограмму (эта строка будет написана автоматическипосле того, как вы наберёте 1-ю строку).