Надпись (Label)
Надпись
(кнопка
)
- это строка текста, которая не может
редактироваться пользователем. Аналог
- функцияMsgBox().
Обычно надпись используется для посылки
сообщения пользователю или дополнительной
информации о других кнопках и окнах
бланка.
Для изменения текста программным путем необходимо изменить свойство Caption, например:
Public Sub bbb()
UserForm3.Label2.Caption = "Доброе утро!"
End Sub Следует заметить, что автономное выполнение этой процедуры не приведет к желаемому результату. Необходимо, чтобы она активизировалась в режиме диалога, например, через другую процедуру, подключенную к какой-либо кнопке:
Private Sub CommandButton1_Click()
bbb
End Sub
Самостоятельная работа
Создайте на вашей панели 2 наклейки. Назовите вторую " Привет". Вызовите свойства метки и поменяйте что-либо по своему желанию.
Активизируйте диалог. При активном диалоге попробуйте поменять текст метки. Вряд ли у вас что-нибудь получится.
Выполните отладку описанной выше процедуры замены второй метки программным путем.
Окно редактирования (TextBox)
Окно
(поле)
редактирования (кнопка
)
является многострочным окном, содержащим
текст, который может редактироваться.
Аналог - функцияInputBox().
Если нужно, чтобы в тексте окна редактирования использовались переносы слов на новую строку или чтобы текст в окне опускался на одну строку при нажатии клавиши Enter, необходимо установить свойство MultiLine в True.
Вы можете заблокировать текст от редактирования, установив свойство Locked в положение True.
Спрашивается, как можно использовать новую редакцию текста? - Через свойство Value в какой-либо процедуре. Например, при нажатии командной кнопки запускается
Private Sub CommandButton2_Click()
MsgBox (UserForm3.TextBox1.Value)
End Sub
Самостоятельная работа
Создайте окно редактирования с переносимым текстом "Доброе утро, товарищи!". Найдите этот текст в свойствах окна.
Активизируйте диалог и замените слово "товарищи" словом "господа".
Удалите диалог и посмотрите, как изменилось свойство text.
Вновь активизируйте диалог. Что имеете?
Создайте командную кнопку "Хотите использовать новый текст?" и выведите новый текст с помощью функции MsgBox () (см. выше).
Окно списка (ListBox)
Окно
списка (кнопка «список»
)
предоставляет пользователю возможность
выбора из списка одного элемента.
Пользователь испытывает некоторый
дискомфорт, когда нужно указать какую-либо
специфическую информацию, например
полное название трансформатора. Гораздо
проще выбрать это название из числа
предложенных. К сожалению, добавлять
элементы к списку можно только программным
путем, изменяя свойства окнаList
или RowSource.
В первом случае все элементы списка
группируются в массив (Array). Во втором -
дается ссылка на блок ячеек Excel,
где записан список.
Public Sub bbb()
UserForm3.ListBox1.List = Array("Вася", "Петя", "Семен", "Надежда")
UserForm3.ListBox1.RowSource = "C4:C9"
End Sub
Выбранный элемент можно определить через свойство Value, например,
Private Sub CommandButton3_Click()
MsgBox (UserForm3.ListBox1.Value)
End Sub
Добавить или удалить элементы списка в процессе выполнения программы позволяют методы AddItem() или RemoveItem() (см. справку).