This commit is contained in:
2023-04-12 16:58:16 +02:00
parent 2dab8149c3
commit 79c4e4e37c
6 changed files with 547 additions and 272 deletions

View File

@@ -45,9 +45,11 @@
Me.VERAG = Me.Factory.CreateRibbonGroup
Me.Button2 = Me.Factory.CreateRibbonButton
Me.btnPdfPrint = Me.Factory.CreateRibbonButton
Me.Button3 = Me.Factory.CreateRibbonButton
Me.btnAvisoMail = Me.Factory.CreateRibbonButton
Me.btnAttachFormular = Me.Factory.CreateRibbonSplitButton
Me.btnVM = Me.Factory.CreateRibbonButton
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
@@ -66,7 +68,7 @@
'
Me.VERAG.Items.Add(Me.Button2)
Me.VERAG.Items.Add(Me.btnPdfPrint)
Me.VERAG.Items.Add(Me.Button3)
Me.VERAG.Items.Add(Me.btnAvisoMail)
Me.VERAG.Items.Add(Me.btnAttachFormular)
Me.VERAG.Items.Add(Me.SplitButton1)
Me.VERAG.Label = "AVISO"
@@ -88,27 +90,41 @@
Me.btnPdfPrint.Name = "btnPdfPrint"
Me.btnPdfPrint.ShowImage = True
'
'Button3
'btnAvisoMail
'
Me.Button3.ControlSize = Microsoft.Office.Core.RibbonControlSize.RibbonControlSizeLarge
Me.Button3.Image = Global.VERAGAddIn.My.Resources.Resources._665209_email_512x512
Me.Button3.Label = "Mail an Aviso anfügen"
Me.Button3.Name = "Button3"
Me.Button3.ShowImage = True
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.btnVM)
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"
'
'btnVM
'btnVollmachten
'
Me.btnVM.Label = "Vollmacht anhängen"
Me.btnVM.Name = "btnVM"
Me.btnVM.ShowImage = True
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
'
@@ -151,10 +167,12 @@
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 Button3 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 btnVM As Microsoft.Office.Tools.Ribbon.RibbonButton
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