Объект WebListBox (издатель)

Статья
04/07/2023

Представляет элемент управления со списком веб-страниц. Объект WebListBox является членом объекта Shape .

Замечания

Используйте метод Shapes.AddWebControl для создания нового списка веб-сайта.

Используйте свойство Shape.WebListBox для доступа к фигуре элемента управления веб-списка.

Используйте метод AddItem объекта WebListBoxItems для добавления элементов в поле веб-списка.

Пример

В этом примере создается новое поле списка веб-сайтов и добавляется в него несколько элементов. Обратите внимание, что при первоначальном создании элемент управления веб-списка содержит три элемента по умолчанию. Этот пример включает подпрограмму, которая удаляет элементы списка по умолчанию перед добавлением новых элементов.

Примечание.

При создании веб-списка его начальная ширина составляет 300 точек. Однако microsoft Publisher автоматически изменяет эту ширину в зависимости от ширины элементов в списке.

Sub CreateWebListBox() 
 Dim intCount As Integer 
 With ActiveDocument.Pages(1).Shapes 
 With .AddWebControl(Type:=pbWebControlListBox, Left:=100, _ 
 Top:=150, Width:=300, Height:=72).WebListBox 
 .MultiSelect = msoFalse 
 With .ListBoxItems 
 For intCount = 1 To .Count 
 .Delete (1) 
 Next 
 .AddItem Item:="Green" 
 .AddItem Item:="Purple" 
 .AddItem Item:="Red" 
 .AddItem Item:="Black" 
 End With 
 End With 
 End With 
End Sub

Свойства

См. также

Справочник по объектной модели издателя

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через