Partial Class VERAGRibbon Inherits Microsoft.Office.Tools.Ribbon.RibbonBase _ Public Sub New(ByVal container As System.ComponentModel.IContainer) MyClass.New() 'Erforderlich für die Unterstützung des Windows.Forms-Klassenkompositions-Designers If (container IsNot Nothing) Then container.Add(Me) End If End Sub _ Public Sub New() MyBase.New(Globals.Factory.GetRibbonFactory()) 'Dieser Aufruf ist für den Komponenten-Designer erforderlich. InitializeComponent() End Sub 'Die Komponente überschreibt den Löschvorgang zum Bereinigen der Komponentenliste. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Komponenten-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Komponenten-Designer erforderlich. 'Das Bearbeiten ist mit dem Komponenten-Designer möglich. 'Nehmen Sie keine Änderungen mit dem Code-Editor vor. _ Private Sub InitializeComponent() Me.Tab1 = Me.Factory.CreateRibbonTab Me.VERAG = Me.Factory.CreateRibbonGroup Me.Button2 = Me.Factory.CreateRibbonButton Me.Tab1.SuspendLayout() Me.VERAG.SuspendLayout() ' 'Tab1 ' Me.Tab1.ControlId.ControlIdType = Microsoft.Office.Tools.Ribbon.RibbonControlIdType.Office Me.Tab1.Groups.Add(Me.VERAG) Me.Tab1.Label = "VERAG" Me.Tab1.Name = "Tab1" ' 'VERAG ' Me.VERAG.Items.Add(Me.Button2) Me.VERAG.Label = "AVISO" Me.VERAG.Name = "VERAG" ' 'Button2 ' Me.Button2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.Button2.Image = Global.VERAGAddIn.My.Resources.Resources.Aviso1 Me.Button2.Label = "Neues Aviso" Me.Button2.Name = "Button2" Me.Button2.ShowImage = True ' 'VERAGRibbon ' Me.Name = "VERAGRibbon" Me.RibbonType = "Microsoft.Outlook.Explorer" Me.Tabs.Add(Me.Tab1) Me.Tab1.ResumeLayout(False) Me.Tab1.PerformLayout() Me.VERAG.ResumeLayout(False) Me.VERAG.PerformLayout() End Sub Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab Friend WithEvents VERAG As Microsoft.Office.Tools.Ribbon.RibbonGroup Friend WithEvents Button2 As Microsoft.Office.Tools.Ribbon.RibbonButton End Class Partial Class ThisRibbonCollection _ Friend ReadOnly Property Ribbon1() As VERAGRibbon Get Return Me.GetRibbon(Of VERAGRibbon)() End Get End Property End Class