Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
Введение в программирование на VBA - eDrive
You also want an ePaper? Increase the reach of your titles
YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.
58<br />
List определяет по номеру пункта его текста. С<strong>в</strong>ойст<strong>в</strong>о MultiSelect<br />
определяет способы <strong>в</strong>ыбора элементо<strong>в</strong> из списка: 0 – один элемент, 1 –<br />
произ<strong>в</strong>оль<strong>на</strong>я группа, 2 – ряд соседних з<strong>на</strong>чений. Метод AddItem дополняет<br />
список, а RemoveItem удаляет пункты. С<strong>в</strong>ойст<strong>в</strong>о TopIndex предста<strong>в</strong>ляет<br />
элемент списка с <strong>на</strong>ибольшим номером, с<strong>в</strong>ойст<strong>в</strong>о TextColumn уста<strong>на</strong><strong>в</strong>ли<strong>в</strong>ает<br />
столбец списка, элемент которого <strong>в</strong>оз<strong>в</strong>ращается с<strong>в</strong>ойст<strong>в</strong>ом Text. При<br />
истинном с<strong>в</strong>ойст<strong>в</strong>е MatchЕntry <strong>в</strong> списке акти<strong>в</strong>изируется пер<strong>в</strong>ый же<br />
подходящий элемент, со<strong>в</strong>падающий с <strong>на</strong>бираемым <strong>в</strong> поле именем. С<strong>в</strong>ойст<strong>в</strong>о<br />
ControlTipText содержит текст <strong>в</strong>сплы<strong>в</strong>ающей подсказки.<br />
Поле со списком (ComboBox) характеризуется с<strong>в</strong>ойст<strong>в</strong>ами Text и Value,<br />
задающими <strong>в</strong>ыделенный фрагмент и содержание списка. ListIndex<br />
определяет номер <strong>в</strong>ыбранного элемента. С<strong>в</strong>ойст<strong>в</strong>о Selected упра<strong>в</strong>ляет<br />
<strong>в</strong>ыделением и информирует о <strong>в</strong>ыделенных элементах списка. С<strong>в</strong>ойст<strong>в</strong>о<br />
MatchRequired разрешает (False) или запрещает (True) дополнение списка из<br />
поля. В за<strong>в</strong>исимости от с<strong>в</strong>ойст<strong>в</strong>а MatchFound, <strong>в</strong>озможно (True) со<strong>в</strong>падение<br />
<strong>в</strong><strong>в</strong>одимого <strong>в</strong> поле текста с текстом, имеющемся <strong>в</strong> списке.<br />
Элемент Набор страниц (MultiPage) обладает с<strong>в</strong>ойст<strong>в</strong>ами Value,<br />
BoundValue — номер акти<strong>в</strong>ной страницы (с 0), SelectedItem — <strong>в</strong>ыбран<strong>на</strong>я<br />
страница, а также методами Item — <strong>в</strong>оз<strong>в</strong>ращение страницы, Add — но<strong>в</strong>ая<br />
страница, Clear, Remove — удаление страниц.<br />
Рядом полезных с<strong>в</strong>ойст<strong>в</strong> обладает и объект Рисунок (Image).<br />
Инициализация формы, <strong>на</strong>полненной объектами, обычно <strong>в</strong>ыполняется<br />
как реакция <strong>на</strong> событие Initialize.<br />
Объект Screen предста<strong>в</strong>ляет ссылку <strong>на</strong> отдельную форму, отчет или<br />
текущий либо предыдущий акти<strong>в</strong>ный элемент упра<strong>в</strong>ления. Его с<strong>в</strong>ойст<strong>в</strong>а<br />
доступны только для чтения.<br />
Примеры<br />
Sub Надпись ()<br />
UserForm1.Label1.Caption = "Но<strong>в</strong>ая <strong>на</strong>дпись"<br />
UserForm1.Show<br />
End Sub<br />
Sub Поле ()<br />
UserForm1.Show<br />
Call UserForm1.TextBox1_Change<br />
End Sub<br />
Sub TextBox1_Change ()<br />
UserForm1. TextBox2 = UserForm1. TextBox1<br />
End Sub<br />
Sub Блокиро<strong>в</strong>каПоля ()<br />
имя = "Станисла<strong>в</strong>"<br />
With UserForm1.TextBox1<br />
.Value = имя