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.components = New System.ComponentModel.Container() Me.Tab1 = Me.Factory.CreateRibbonTab Me.Group1 = Me.Factory.CreateRibbonGroup Me.Button1 = Me.Factory.CreateRibbonButton Me.Button2 = Me.Factory.CreateRibbonButton Me.btnInfo = Me.Factory.CreateRibbonButton Me.btnUnsichtbar = Me.Factory.CreateRibbonButton Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components) 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.Button2) 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 ' 'Button2 ' Me.Button2.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge Me.Button2.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512 Me.Button2.Label = "Mail an Aviso anfügen" Me.Button2.Name = "Button2" Me.Button2.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 Button2 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 End Class Partial Class ThisRibbonCollection _ Friend ReadOnly Property rbnMailItem() As rbnMailItem Get Return Me.GetRibbon(Of rbnMailItem)() End Get End Property End Class