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.btnPdfPrint = Me.Factory.CreateRibbonButton Me.btnAvisoMail = Me.Factory.CreateRibbonButton Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton Me.btnVollmachten = Me.Factory.CreateRibbonButton Me.btnVertraege = Me.Factory.CreateRibbonButton Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton Me.Button1 = Me.Factory.CreateRibbonButton Me.Button3 = Me.Factory.CreateRibbonButton Me.Button4 = Me.Factory.CreateRibbonButton Me.Tab1.SuspendLayout() Me.VERAG.SuspendLayout() Me.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.Items.Add(Me.btnPdfPrint) Me.VERAG.Items.Add(Me.btnAvisoMail) Me.VERAG.Items.Add(Me.btnAttachFormular) Me.VERAG.Items.Add(Me.SplitButton1) 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 ' 'btnPdfPrint ' Me.btnPdfPrint.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnPdfPrint.Image = Global.VERAGAddIn.My.Resources.Resources.pdfprint Me.btnPdfPrint.Label = "Alle PDFs drucken" Me.btnPdfPrint.Name = "btnPdfPrint" Me.btnPdfPrint.ShowImage = True ' 'btnAvisoMail ' Me.btnAvisoMail.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAvisoMail.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512 Me.btnAvisoMail.Label = "Mail an Aviso anfügen" Me.btnAvisoMail.Name = "btnAvisoMail" Me.btnAvisoMail.ShowImage = True ' 'btnAttachFormular ' Me.btnAttachFormular.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAttachFormular.Image = Global.VERAGAddIn.My.Resources.Resources.pdf Me.btnAttachFormular.Items.Add(Me.btnVollmachten) Me.btnAttachFormular.Items.Add(Me.btnVertraege) Me.btnAttachFormular.Items.Add(Me.btnGestellungsgarantien) Me.btnAttachFormular.Label = "Formulare anhängen" Me.btnAttachFormular.Name = "btnAttachFormular" ' 'btnVollmachten ' Me.btnVollmachten.Label = "Vollmachten" Me.btnVollmachten.Name = "btnVollmachten" Me.btnVollmachten.ShowImage = True ' 'btnVertraege ' Me.btnVertraege.Label = "Verträge/Unterlagen" Me.btnVertraege.Name = "btnVertraege" Me.btnVertraege.ShowImage = True ' 'btnGestellungsgarantien ' Me.btnGestellungsgarantien.Label = "Gestellungsgarantien" Me.btnGestellungsgarantien.Name = "btnGestellungsgarantien" Me.btnGestellungsgarantien.ShowImage = True ' 'SplitButton1 ' Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.SplitButton1.Image = Global.VERAGAddIn.My.Resources.Resources.wheel Me.SplitButton1.Items.Add(Me.Button1) Me.SplitButton1.Items.Add(Me.Button3) Me.SplitButton1.Items.Add(Me.Button4) Me.SplitButton1.Label = "Spezielle Optionen" Me.SplitButton1.Name = "SplitButton1" ' 'Button1 ' Me.Button1.Image = Global.VERAGAddIn.My.Resources.Resources.pdf Me.Button1.Label = "EKOL PDFs auslesen" Me.Button1.Name = "Button1" Me.Button1.ShowImage = True ' 'Button3 ' Me.Button3.Image = Global.VERAGAddIn.My.Resources.Resources.pdf Me.Button3.Label = "Barsan PDFs auslesen" Me.Button3.Name = "Button3" Me.Button3.ShowImage = True ' 'Button4 ' Me.Button4.Label = "Info" Me.Button4.Name = "Button4" Me.Button4.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() Me.ResumeLayout(False) 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 Friend WithEvents btnPdfPrint As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents SplitButton1 As Microsoft.Office.Tools.Ribbon.RibbonSplitButton Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnAvisoMail As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents Button4 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnAttachFormular As Microsoft.Office.Tools.Ribbon.RibbonSplitButton Friend WithEvents btnVollmachten As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnVertraege As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnGestellungsgarantien As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents Button3 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