Partial Class rbnMailItem 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. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. Private Sub InitializeComponent() Me.Tab1 = Me.Factory.CreateRibbonTab Me.Group1 = Me.Factory.CreateRibbonGroup Me.Button1 = Me.Factory.CreateRibbonButton Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton Me.SplitButton1 = Me.Factory.CreateRibbonSplitButton Me.btnVollmachten = Me.Factory.CreateRibbonButton Me.btnVertraege = Me.Factory.CreateRibbonButton Me.btnGestellungsgarantien = Me.Factory.CreateRibbonButton Me.btnInfo = Me.Factory.CreateRibbonButton Me.btnUnsichtbar = Me.Factory.CreateRibbonButton Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon() Me.Tab1.SuspendLayout() Me.Group1.SuspendLayout() Me.SuspendLayout() ' 'Tab1 ' Me.Tab1.ControlId.ControlIdType = Microsoft.Office.Tools.Ribbon.RibbonControlIdType.Office Me.Tab1.Groups.Add(Me.Group1) Me.Tab1.Label = "VERAG" Me.Tab1.Name = "Tab1" ' 'Group1 ' Me.Group1.Items.Add(Me.Button1) Me.Group1.Items.Add(Me.btnAvisoMail2) Me.Group1.Items.Add(Me.SplitButton1) Me.Group1.Items.Add(Me.btnInfo) Me.Group1.Items.Add(Me.btnUnsichtbar) Me.Group1.Label = "AVISO" Me.Group1.Name = "Group1" ' 'Button1 ' Me.Button1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.Button1.Image = Global.VERAGAddIn.My.Resources.Resources.Aviso Me.Button1.Label = "Neues Aviso" Me.Button1.Name = "Button1" Me.Button1.ShowImage = True ' 'btnAvisoMail2 ' Me.btnAvisoMail2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.btnAvisoMail2.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512 Me.btnAvisoMail2.Label = "Mail an Aviso anfügen" Me.btnAvisoMail2.Name = "btnAvisoMail2" Me.btnAvisoMail2.ShowImage = True ' 'SplitButton1 ' Me.SplitButton1.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.SplitButton1.Image = Global.VERAGAddIn.My.Resources.Resources.pdf Me.SplitButton1.Items.Add(Me.btnVollmachten) Me.SplitButton1.Items.Add(Me.btnVertraege) Me.SplitButton1.Items.Add(Me.btnGestellungsgarantien) Me.SplitButton1.Label = "Formulare anhängen" Me.SplitButton1.Name = "SplitButton1" ' '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 ' 'btnInfo ' Me.btnInfo.Label = "?" Me.btnInfo.Name = "btnInfo" ' 'btnUnsichtbar ' Me.btnUnsichtbar.Label = "i" Me.btnUnsichtbar.Name = "btnUnsichtbar" Me.btnUnsichtbar.Visible = False ' 'NotifyIcon1 ' Me.NotifyIcon1.Text = "NotifyIcon1" Me.NotifyIcon1.Visible = True ' 'rbnMailItem ' Me.Name = "rbnMailItem" Me.RibbonType = "Microsoft.Outlook.Mail.Compose, Microsoft.Outlook.Mail.Read, Microsoft.Outlook.Me" & "etingRequest.Read, Microsoft.Outlook.MeetingRequest.Send, Microsoft.Outlook.Post" & ".Compose, Microsoft.Outlook.Post.Read" Me.Tabs.Add(Me.Tab1) Me.Tab1.ResumeLayout(False) Me.Tab1.PerformLayout() Me.Group1.ResumeLayout(False) Me.Group1.PerformLayout() Me.ResumeLayout(False) End Sub Friend WithEvents Tab1 As Microsoft.Office.Tools.Ribbon.RibbonTab Friend WithEvents Group1 As Microsoft.Office.Tools.Ribbon.RibbonGroup Friend WithEvents Button1 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnAvisoMail2 As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents btnInfo As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents NotifyIcon1 As Windows.Forms.NotifyIcon Friend WithEvents btnUnsichtbar As Microsoft.Office.Tools.Ribbon.RibbonButton Friend WithEvents SplitButton1 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 End Class Partial Class ThisRibbonCollection _ Friend ReadOnly Property rbnMailItem() As rbnMailItem Get Return Me.GetRibbon(Of rbnMailItem)() End Get End Property End Class