ник: Аноним
Дизайн приложения, в частности на панелях инструментов.
Public Function qqq()
Set newItem = CommandBars("fpnlJournal").Controls.Add(Type:=14, id:=2666)
With newItem
.Caption = "qqq"
End With
End Function
С помощью подобной процедуры на панели инструментов можно создать CONTROL ,
работающий как новое меню в стиле контрола АНАЛИЗИРОВАТЬ на панели БАЗА ДАННЫХ:
т.е. в заголовке отображается не надпись, а значок последнего запущенного пункта в созданном списке пунктов меню.
И для случая "стандартных" значков (их .FaceId <>0) все работает просто отлично.
Но стоит отредактировать значок либо создать свой, как сразу же их .FaceId =0
и значок не отображается в "заголовке нашего меню".
Такая вот неувязка, которую хотелось бы обойти.