' BtnAdd
' *******
' add a button to a panel (by its name), in a tab (by its name) as a RibbonButton
'yac.Rib.TabAdd("Yasser", True)
'yac.Rib.PanelAdd("Nana", "Yasser")
'yac.Rib.BtnAdd("Load dll", "Nana", "Yasser", "NetLoad ")
Public Shared Function BtnAdd(BtnName As String, PanelName As String, TabName As String, cmd As String,
Optional Img16 As String = "", Optional Img32 As String = "") As RibbonButton
Dim ribCntrl As RibbonControl = ComponentManager.Ribbon
Dim ribTab As RibbonTab = ribCntrl.FindTab(TabName)
Dim ribPanel As RibbonPanel
Dim ribSourcePanel As RibbonPanelSource
ribPanel = ribTab.FindPanel(PanelName)
ribSourcePanel = ribPanel.Source
Dim btn As RibbonButton = New RibbonButton
btn.Text = BtnName
btn.ShowText = True
btn.CommandParameter = cmd ' "NETLOAD " for example
btn.Id = BtnName
If Img16 <> "" Then
btn.Size = RibbonItemSize.Standard
End If
If Img32 <> "" Then
btn.Size = RibbonItemSize.Large
End If
ribSourcePanel.Items.Add(btn)
Return btn
End Function
End Class
End Namespace