97 lines
3.1 KiB
VB.net
97 lines
3.1 KiB
VB.net
Partial Class VERAGRibbon
|
|
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.
|
|
'Nehmen Sie keine Änderungen mit dem Code-Editor vor.
|
|
<System.Diagnostics.DebuggerStepThrough()> _
|
|
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
|
|
|
|
<System.Diagnostics.DebuggerNonUserCode()> _
|
|
Friend ReadOnly Property Ribbon1() As VERAGRibbon
|
|
Get
|
|
Return Me.GetRibbon(Of VERAGRibbon)()
|
|
End Get
|
|
End Property
|
|
End Class
|