137 lines
4.8 KiB
VB.net
137 lines
4.8 KiB
VB.net
Partial Class rbnMailItem
|
|
Inherits Microsoft.Office.Tools.Ribbon.RibbonBase
|
|
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
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.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
Private Sub InitializeComponent()
|
|
Me.components = New System.ComponentModel.Container()
|
|
Me.Tab1 = Me.Factory.CreateRibbonTab
|
|
Me.Group1 = Me.Factory.CreateRibbonGroup
|
|
Me.NotifyIcon1 = New System.Windows.Forms.NotifyIcon(Me.components)
|
|
Me.Button1 = Me.Factory.CreateRibbonButton
|
|
Me.btnAvisoMail2 = Me.Factory.CreateRibbonButton
|
|
Me.btnInfo = Me.Factory.CreateRibbonButton
|
|
Me.btnUnsichtbar = Me.Factory.CreateRibbonButton
|
|
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.btnInfo)
|
|
Me.Group1.Items.Add(Me.btnUnsichtbar)
|
|
Me.Group1.Label = "AVISO"
|
|
Me.Group1.Name = "Group1"
|
|
'
|
|
'NotifyIcon1
|
|
'
|
|
Me.NotifyIcon1.Text = "NotifyIcon1"
|
|
Me.NotifyIcon1.Visible = True
|
|
'
|
|
'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
|
|
'
|
|
'btnInfo
|
|
'
|
|
Me.btnInfo.Label = "?"
|
|
Me.btnInfo.Name = "btnInfo"
|
|
'
|
|
'btnUnsichtbar
|
|
'
|
|
Me.btnUnsichtbar.Label = "i"
|
|
Me.btnUnsichtbar.Name = "btnUnsichtbar"
|
|
Me.btnUnsichtbar.Visible = False
|
|
'
|
|
'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
|
|
End Class
|
|
|
|
Partial Class ThisRibbonCollection
|
|
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Friend ReadOnly Property rbnMailItem() As rbnMailItem
|
|
Get
|
|
Return Me.GetRibbon(Of rbnMailItem)()
|
|
End Get
|
|
End Property
|
|
End Class
|