187 lines
7.1 KiB
VB.net
187 lines
7.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.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.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.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
|
|
'
|
|
'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
|
|
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
|