Хукнуть или сабклассить

[Денис]

Ниже прикреплен скрин.
Кто сможет повторить мой, безусловно гениальный, код

[Nord777]

А в чём гениальность то ?

[Денис]

Nord777
в простоте.

[Antonariy]

1. Получить hwnd панели.
2. Сделать SetParent комбобоксу
3. Остальное - мелочи.
Все.

[alibek]

Можно проще. Фотошопнуть.

[keks-n]

Ага. Можно ещё банальную объектную модель, предоставляемую плагинам заюзать.

[Antonariy]

Ага. Можно ещё банальную объектную модель, предоставляемую плагинам заюзать.

Это сложнее

[Nord777]

Кто сможет повторить мой, безусловно гениальный, код

Может я чего не понимаю?...
А где же твой код?
Как же мы оценим его " безусловную гениальность" если ты его не выложил
Или ты ударение делал на слово повторить? Если так, то примеры тебе привели.

[Денис]

Nord777
Если я, , выложу код здесь, то повторить его можно будет, , копипастом!!!

А примеры пока что не те. не повтор.

[Nord777]

Не томи народ, видишь, уже все сдались, и готовы провозгласить тебя гением
Ты всего в двух шагах от славы. Не упусти шанс

[keks-n]

Я не знаю, в чём состоит гениальность кода.
Создаём Add-In, настраиваем его в дизайнере под VB. Удаляем сгенерированною форму. Вместо кода в дизайнере вставляем это:

Код: Выделить всё

Option Explicit
Public VBInstance             As VBIDE.VBE
Dim br As CommandBar


Private Sub AddinInstance_OnConnection(ByVal Application As Object, ByVal ConnectMode As AddInDesignerObjects.ext_ConnectMode, ByVal AddInInst As Object, custom() As Variant)
    Set VBInstance = Application
    Set br = VBInstance.CommandBars.Add("011ad5b0-63ed-4cb6-aa5e-444e5409df3e. UUID поставил потому что захотелось ", msoBarTop, Temporary:=False)
    Dim combo As CommandBarComboBox
    br.Enabled = True
    br.Visible = True
    Set combo = br.Controls.Add(msoControlComboBox)
    combo.Width = Screen.TwipsPerPixelX * 200
    combo.AddItem "И где гениальность?"
    combo.ListIndex = 1
End Sub


Private Sub AddinInstance_OnDisconnection(ByVal RemoveMode As AddInDesignerObjects.ext_DisconnectMode, custom() As Variant)
    On Error Resume Next
br.Delete

End Sub

Private Sub IDTExtensibility_OnStartupComplete(custom() As Variant)

End Sub


Компилим плагин, подключаем к IDE