2.8.Создание меню
2.8.2. Отображение всех значков



Если на поверхность кнопки меню надо поместить изображение с уже су­ществующей кнопки, то удобно бы было иметь под рукой список всех уже имеющихся изображений с идентификаторами кнопок. Следую­щая процедура (листинг 2.4) решает эту задачу. В ней создается панель ин­струментов, на которую выводится вся искомая информация — значки и идентификаторы.


 

Листинг 2.4. Отображение всех встроенных значков в меню

Sub ShowFaces()

Dim x As CommandBar

Dim y As CommandBarButton

Dim i As Integer

On Error Resume Next

Application.CommandBars("AllFaces").Delete

On Error GoTo 0

Set x = Application.CommandBars.Add(Name:="AllFaces", _

 temporary:=True)

x.Visible = True

For i = 1 To 255

Set y = x.Controls.Add(Type:=msoControlButton, ID:=2950)

y.FaceId = i

y.Caption = "FacelD = " & CStr(i)

Next

x.Width = 600

End Sub



  
ПОИСК
МОЯ КНОПКА
Контакты
МБОУ "Лицей им.Атякшева"

628260 г. Югорск, ул. Ленина 24,
ХМАО-Югра, Тюменская область
Телефон: 8 (34675)2-48-30
Факс: 8 (34675)2-48-30



89222596815 nady_er@mail.ru
Карта
sample map