|
Den richtigen Tritt hast du eigentlich schon lange erhalten - es steht doch alles in der Dokumentation. Man muss nur lesen.
Ich kann es dir hier zwar nun vorkauen, ich seh dich aber in wenigen Tagen wieder irgendwo im Forum etwas in die gleiche Richtung fragen... und das kann ich absolut nicht leiden.
Es wäre etwas komplett anderes gewesen, wenn du mit einer konkreten Fragestellung gekommen wärst, mit Verweis auf die entsprechende unklare Stelle in der Doku. Die Doku ist immer der erste Anlaufpunkt bei einem Problem, nich das Forum!
<customUI xmlns="http://schemas.microsoft.com/office/2009/07/customui" onLoad="OnRibbonLoad">
<ribbon>
<tabs>
<tab id="Menue" label="Intern">
<group id="Group" label="Gruppe">
<button id="Kunden" label="Zur Kunden eingabe" image="Master" size="large" getVisible="IsButtonVisible" onAction="KEingabe" enabled="true"/>
<dropDown id="dropDown" label="Einstellungen" onAction="OnPressedAction">
<button id="info" label="Info..." imageMso="Info" onAction="ProgInfo"/>
</dropDown>
</group>
</tab>
</tabs>
</ribbon>
</customUI>
Option Explicit
Private m_objRibbonUI As IRibbonUI
Private m_blnCustomerBtnVisible As Boolean
Sub OnRibbonLoad(Ribbon As IRibbonUI)
Set m_objRibbonUI = Ribbon
End Sub
Sub IsButtonVisible(Control As IRibbonControl, ByRef Visible)
Select Case Control.ID
Case "Kunden"
Visible = m_blnCustomerBtnVisible
End Select
End Sub
Sub ShowButton()
m_blnCustomerBtnVisible = True
Call m_objRibbonUI.InvalidateControl("Kunden")
End Sub
Sub HideButton()
m_blnCustomerBtnVisible = False
Call m_objRibbonUI.InvalidateControl("Kunden")
End Sub
|