From 5dc6ec54bdc857dcb35f0250d476983c4215db5b Mon Sep 17 00:00:00 2001 From: Andreas Luxbauer Date: Fri, 9 Aug 2019 09:42:50 +0200 Subject: [PATCH] NEU2 --- VERAGAddIn.sln | 68 ++++ VERAGAddIn/My Project/AssemblyInfo.vb | 45 +++ VERAGAddIn/My Project/Resources.Designer.vb | 83 +++++ VERAGAddIn/My Project/Resources.resx | 127 +++++++ VERAGAddIn/My Project/Settings.Designer.vb | 71 ++++ VERAGAddIn/My Project/Settings.settings | 7 + VERAGAddIn/Resources/Aviso.png | Bin 0 -> 15312 bytes VERAGAddIn/Resources/Aviso1.png | Bin 0 -> 15312 bytes VERAGAddIn/Ribbon1.Designer.vb | 96 ++++++ VERAGAddIn/Ribbon1.resx | 120 +++++++ VERAGAddIn/Ribbon1.vb | 91 +++++ VERAGAddIn/ThisAddIn.Designer.vb | 285 ++++++++++++++++ VERAGAddIn/ThisAddIn.Designer.xml | 4 + VERAGAddIn/ThisAddIn.vb | 56 ++++ VERAGAddIn/VERAGAddIn.vbproj | 354 ++++++++++++++++++++ VERAGAddIn/app.config | 15 + 16 files changed, 1422 insertions(+) create mode 100644 VERAGAddIn.sln create mode 100644 VERAGAddIn/My Project/AssemblyInfo.vb create mode 100644 VERAGAddIn/My Project/Resources.Designer.vb create mode 100644 VERAGAddIn/My Project/Resources.resx create mode 100644 VERAGAddIn/My Project/Settings.Designer.vb create mode 100644 VERAGAddIn/My Project/Settings.settings create mode 100644 VERAGAddIn/Resources/Aviso.png create mode 100644 VERAGAddIn/Resources/Aviso1.png create mode 100644 VERAGAddIn/Ribbon1.Designer.vb create mode 100644 VERAGAddIn/Ribbon1.resx create mode 100644 VERAGAddIn/Ribbon1.vb create mode 100644 VERAGAddIn/ThisAddIn.Designer.vb create mode 100644 VERAGAddIn/ThisAddIn.Designer.xml create mode 100644 VERAGAddIn/ThisAddIn.vb create mode 100644 VERAGAddIn/VERAGAddIn.vbproj create mode 100644 VERAGAddIn/app.config diff --git a/VERAGAddIn.sln b/VERAGAddIn.sln new file mode 100644 index 0000000..58d67db --- /dev/null +++ b/VERAGAddIn.sln @@ -0,0 +1,68 @@ + +Microsoft Visual Studio Solution File, Format Version 12.00 +# Visual Studio 2013 +VisualStudioVersion = 12.0.40629.0 +MinimumVisualStudioVersion = 10.0.40219.1 +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAGAddIn", "VERAGAddIn\VERAGAddIn.vbproj", "{D579F7A6-7D29-4295-B382-DA5F7EFB4528}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "VERAG_PROG_ALLGEMEIN", "..\..\SDL\SDL\VERAG_PROG_ALLGEMEIN\VERAG_PROG_ALLGEMEIN.vbproj", "{A3B497BD-842C-4A2B-B398-ED1976849DF1}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Gemeinsames", "..\..\AVISO\Aviso\Gemeinsames\Gemeinsames.vbproj", "{110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}" +EndProject +Project("{F184B08F-C81C-45F6-A57F-5ABD9991F28F}") = "Aviso", "..\..\AVISO\Aviso\Aviso\Aviso.vbproj", "{7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}" +EndProject +Global + GlobalSection(SolutionConfigurationPlatforms) = preSolution + Debug|Any CPU = Debug|Any CPU + Debug|Mixed Platforms = Debug|Mixed Platforms + Debug|x86 = Debug|x86 + Release|Any CPU = Release|Any CPU + Release|Mixed Platforms = Release|Mixed Platforms + Release|x86 = Release|x86 + EndGlobalSection + GlobalSection(ProjectConfigurationPlatforms) = postSolution + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Any CPU.Build.0 = Debug|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Debug|x86.ActiveCfg = Debug|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.ActiveCfg = Release|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Any CPU.Build.0 = Release|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528}.Release|x86.ActiveCfg = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.ActiveCfg = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Any CPU.Build.0 = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.ActiveCfg = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|Mixed Platforms.Build.0 = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Debug|x86.ActiveCfg = Debug|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.ActiveCfg = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Any CPU.Build.0 = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.ActiveCfg = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|Mixed Platforms.Build.0 = Release|Any CPU + {A3B497BD-842C-4A2B-B398-ED1976849DF1}.Release|x86.ActiveCfg = Release|Any CPU + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Any CPU.ActiveCfg = Debug|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|Mixed Platforms.Build.0 = Debug|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.ActiveCfg = Debug|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Debug|x86.Build.0 = Debug|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Any CPU.ActiveCfg = Release|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.ActiveCfg = Release|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|Mixed Platforms.Build.0 = Release|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.ActiveCfg = Release|x86 + {110C923B-CB02-4FD0-AF24-95E0F0EEEFF5}.Release|x86.Build.0 = Release|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Any CPU.ActiveCfg = Debug|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.ActiveCfg = Debug|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|Mixed Platforms.Build.0 = Debug|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.ActiveCfg = Debug|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Debug|x86.Build.0 = Debug|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Any CPU.ActiveCfg = Release|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.ActiveCfg = Release|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|Mixed Platforms.Build.0 = Release|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.ActiveCfg = Release|x86 + {7BDD8C2F-2C9E-49F1-A365-3B1DA1C84991}.Release|x86.Build.0 = Release|x86 + EndGlobalSection + GlobalSection(SolutionProperties) = preSolution + HideSolutionNode = FALSE + EndGlobalSection +EndGlobal diff --git a/VERAGAddIn/My Project/AssemblyInfo.vb b/VERAGAddIn/My Project/AssemblyInfo.vb new file mode 100644 index 0000000..7db10bd --- /dev/null +++ b/VERAGAddIn/My Project/AssemblyInfo.vb @@ -0,0 +1,45 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices +Imports System.Security + +' Allgemeine Informationen über eine Assembly werden über die folgende +' Attributgruppe gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die mit einer Assembly verknüpft sind. + +' Die Werte der Assemblyattribute überprüfen + + + + + + + + +' Durch Festlegen von ComVisible auf "false" werden die Typen in dieser Assembly unsichtbar +' für COM-Komponenten. Wenn Sie auf einen Zugriffstyp in dieser Assembly aus +' COM zugreifen müssen, legen Sie das ComVisible-Attribut für diesen Typ auf "true" fest. + + +'Die folgende GUID ist für die ID der typelib, wenn dieses Projekt für COM verfügbar gemacht wird + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder die standardmäßigen Build- und Revisionsnummern +' übernehmen, indem Sie "*" eingeben: +' + + + + +Friend Module DesignTimeConstants + Public Const RibbonTypeSerializer As String = "Microsoft.VisualStudio.Tools.Office.Ribbon.Serialization.RibbonTypeCodeDomSerializer, Microsoft.VisualStudio.Tools.Office.Designer, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" + Public Const RibbonBaseTypeSerializer As String = "System.ComponentModel.Design.Serialization.TypeCodeDomSerializer, System.Design" + Public Const RibbonDesigner As String = "Microsoft.VisualStudio.Tools.Office.Ribbon.Design.RibbonDesigner, Microsoft.VisualStudio.Tools.Office.Designer, Version=10.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a" +End Module diff --git a/VERAGAddIn/My Project/Resources.Designer.vb b/VERAGAddIn/My Project/Resources.Designer.vb new file mode 100644 index 0000000..9c1fd98 --- /dev/null +++ b/VERAGAddIn/My Project/Resources.Designer.vb @@ -0,0 +1,83 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + +Imports System + +Namespace My.Resources + + 'Diese Klasse wurde von der StronglyTypedResourceBuilder automatisch generiert + '-Klasse über ein Tool wie ResGen oder Visual Studio automatisch generiert. + 'Um einen Member hinzuzufügen oder zu entfernen, bearbeiten Sie die .ResX-Datei und führen dann ResGen + 'mit der /str-Option erneut aus, oder Sie erstellen Ihr VS-Projekt neu. + ''' + ''' Eine stark typisierte Ressourcenklasse zum Suchen von lokalisierten Zeichenfolgen usw. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Gibt die zwischengespeicherte ResourceManager-Instanz zurück, die von dieser Klasse verwendet wird. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("VERAGAddIn.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Überschreibt die CurrentUICulture-Eigenschaft des aktuellen Threads für alle + ''' Ressourcenzuordnungen, die diese stark typisierte Ressourcenklasse verwenden. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set + resourceCulture = value + End Set + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Aviso() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Aviso", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + Friend ReadOnly Property Aviso1() As System.Drawing.Bitmap + Get + Dim obj As Object = ResourceManager.GetObject("Aviso1", resourceCulture) + Return CType(obj,System.Drawing.Bitmap) + End Get + End Property + End Module +End Namespace diff --git a/VERAGAddIn/My Project/Resources.resx b/VERAGAddIn/My Project/Resources.resx new file mode 100644 index 0000000..b8ac63e --- /dev/null +++ b/VERAGAddIn/My Project/Resources.resx @@ -0,0 +1,127 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + ..\Resources\Aviso.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + + ..\Resources\Aviso1.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + \ No newline at end of file diff --git a/VERAGAddIn/My Project/Settings.Designer.vb b/VERAGAddIn/My Project/Settings.Designer.vb new file mode 100644 index 0000000..6a9c0e5 --- /dev/null +++ b/VERAGAddIn/My Project/Settings.Designer.vb @@ -0,0 +1,71 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + + + _ +Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings()),MySettings) + +#Region "Funktion zum automatischen Speichern von My.Settings" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property +End Class + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.VERAGAddIn.MySettings + Get + Return Global.VERAGAddIn.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/VERAGAddIn/My Project/Settings.settings b/VERAGAddIn/My Project/Settings.settings new file mode 100644 index 0000000..85b890b --- /dev/null +++ b/VERAGAddIn/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/VERAGAddIn/Resources/Aviso.png b/VERAGAddIn/Resources/Aviso.png new file mode 100644 index 0000000000000000000000000000000000000000..30638a1afa17062da301d32fd0b6b3883de97c39 GIT binary patch literal 15312 zcmch8)ms!^)b-3T^iV?$ATV@Fi*$E`fTRo!(v9TMEh#D8A)tgbLkTKKOT!=?64L$s z-tX@H2j25MXP=vMbI!%ud#|;2oQ{?<0Uk9T001CRRZ-CU??nF3#=-h84oF%41OUXd zR25|P{TKfRV`n^@%{j7|eHY-Vl?zY$qe8974E(~3krw+V?bNDaj3Yoz32>16Af{@s=>)WMCZZ4u)s{*6(l(2P-!AG!n&RF!%<+w#5IQ$LJtfU=v>m?8u#|!i0(EuT7xH z1Iqjh(xM`ak1pHH#D&UXFMu)>!xR~y=@rTL{@?mt#m9#It(*q*q*M09@v5(f` zk4?*T8s*=FiZRza#RG72J@;Fk!JaH?*8 zO$Lci1(O(OK_ePmD8ahW6o#CkgE*26&`5_QA-OYey(Cl3CO)}UICJt6?=`*(vO`)L z#IEdGr37%|!!aRLL#y!_;W{VSEnr#B20cG0H`9Xe$%)yn1af>4t+{IZm=Fw3DS8#o zZcB{D(?jxLp{3FCPIR<-l%N7`Gl1sPcZtTb1D(OZs9`4SR?Vrbe87)lr-YoKnETpE z0Sbn;w+dSDbXzARey>Zc)-Vix`!h@EnXDn>QomKHEB&Y8{*J%*J|ZM&wM~(Lgt?!h zif16_D>#q5J{vk_N4g5Ax%NR6ec$b^%Y5xg0{7m$^-gr=XC&fImzM=EHdA|{KRPrf zJ#)5(%*Sz?8oiHhBeW6ymsZTG43_CN#t?mL-P}88`tpv$9HsR8kPhH}32ejCm*!cH zw_EoFYp7x$R8ywh9#t56ivX)vMsy9J>+x8(t60|aV7cdtl}%N?L9YWFY9Il(yj9lyAZ z>v%VYmMbo4lOv5osoQPyh}{yXtDR(q6?UkrI^IKeJZC0eg7b3>`bzFMmmpl)5+ag{!~ z4t`&kDU|q3V2EUHvZeT)zMy^#v=ndq!jj{+2I%!Mvl@pqLKG~(o*+iJ;T)wp5s zMk(!Ys%7`u;T5NWG=zg3hkfFyxfBfcyy1%N;n_SBeiY?aV39D%nd)0l#ke?NWcXkk z-GiHg@spxaNdMpOD)2p(5-(glKPovYUUJYmeaFqx0>@((BL+(esWm0_Iog`?@I^y# z%n&*TstpN9_J~M~1bA`ssNmq&f7-iVqzGOJNK5HuE&3ixmP5?`7*yKGzM-I8c#6wiz)~ zF~Ap}Cp!LB1J!EDh0h<#q(Rf=!!@U()scYbosZi~ERM9i`Mv0f0!!&@jJNzlZ`0sR zvpBv@U=9j1cNe8Aw-U6)I=Qf7B_Kc#2ZT1!l7aZ(yoiR$p07)di(qDe`>e>?h>5(X z;Jn-7jM0;I!Q4-UiD12;c-Rg!l17HIvG_EB0Yxeu%DJ*bH}Yd#_{vPA0C^+e}>-efIg> zNG`Ii102+Lojx~Z{XJFVcGwf>akmGWvEh-;1>iDseD^!woG6be1BAxI(8|dVW`x%g z34a}PxIPYG)Cze0%QSZ3@T#NW!ulnfc&EfLdnmU-15WOw5AO-lM@#8|FcAESR+KgE zO%P5FhyY(>9K;TTL_Sy(FZBassTEu`g^Z(Zg%RH>l8Hxwm^qd6I>@FrG>_b7{V7tnWn6kSw_jq#5M=PnS% z*nV0z03ocP(BL5U)+eY<#R)t9+%&549-@yY&WdXo5nf2b-;c;RA4EIVjNUwSSiT89 zryGi7_6+4$P}x3XU@fN^=p9zN)qU3+5(s(;FUD_c-J2#w_t8Jtw=84^LT+04>|HXQ2cb*8g*d9!o_r(NywSQEJ z)q+fPqIR6I3u{Tkj|lmq?uZ@e@18Tg#%Bz}?fZ(h60A`unlm=U^wi@!0n^FrK!{J2 zv4cHq5f82WID8eG+ByWRa-eP>C#k}82I1@Jo}c9CML|k!wzk5&&Y zFIQyEpPgGGUT9UT4fIFHSSk{)P6gVh$3+9UmK*WJ>ts_-E0iDKc&= zx`xt*5=DNP0vxNXd(j?b=swLSldhnJsn)HZnN-{qf+nA32_{Zt`ecZo@w|kHo1xu1 zQem#GzKpUGboBHq`k!>qwj@TF5@v=0)Ds@RN3FrjOAaX;$oDDnogj$@K3|!&A`G#P zJ4^R@D)Y(8;1e&*-dBqkOxdXc!0lpCS*|}EMv1|k`jGJbhO|8*F7ZJ5=1PGXM&yiH zvLdHZfigqg41%v8iRhZ=@}+!CUEi#JkoHH1^|qLdoqY9MBOoUy=d=C>Y0dcXp{a!` zt}om{D!%epEM6Z@P2_Y`LLk}J9EL0NP}MNLRC6OAxx=P|6;26^Anp(N2bn$y7NrK8 z4Tjt^#waNjb-Ka&=;9eLX=Z+2eZnD`%RmjSoudpe@s&{0=)yz+l!bQAx; z=)wgrD$#PLf{@D#xv@V(?ib%0`iP-|4R;(yh=z#vn`KP&JB|?gijVvGuT>8uog=(c z!`3RPmM23A`Rv|S`Vj>*D!Rx{ae+Be1Y@UQ|HGWu#|@GpyO##FhEfQ@=(V2x+SkUd z!Pim}=M(ZNnVEQf2%NikiWVzMIVZxXa7Y^V_4Q%4fW>uTdq zO!#*N*M}_`xg-j~#KcVb@PU9eo#Z{eG$C)#J&nU#dgOgUB|-{{D0mNG=%qA(R~gt` zD5zxa4`aUDpa|wEsi(JH5m1=>=aVDL7?nmENlJNtXWr_b#Gru z$;`!5R8-V4GlLAVl<(^OD5`rF7q0%+#AJq_JS5!Jo8{PLt@5!#tBFja&;)#sI{G`Y z<^_yg z1_Svc#B*oa;;{cqf=?zU-eAw)DC-ZGNosPFj;9SAt4-A z2_?cuS1n&*roqLAH<)MJzamz{80LM@u#awU2g~W~ewhQh&1oA$cVZCQpXDrd`OC`Y z^`SrBqG}!sQd2$W>djA9dY_c}Y%&lK8L&taIHiRf9_gVrK|ggXmN6l-GwM8@4bw7o?nf|j#UnD@7zh=g}`Y*uE2>PdbFZE>Z%)eZ}NtPDj~R5aC* zk}G0LKYI^W4EV`*^8M=7FpWDu4Y4gO zoGhta&u?mNVi1*l3 z(j*1%Z>4lybHS6OYje_c`y88G6@@{|A}XQUd`T~?<(skI@WpRl6B9F|IPQLbjdQ0Gb@q)&3yl*4>lA!U7n`boQ#}_>fwg;WpuZhNz*cL9s!hjBg&9htH#Wc8l z0+Dh+icTHCZA)((748W+`z|A;J05P4J7_}V2tY%kRRP#g4duQjf$o~im8eJychIx7 zsBhv~)rL9m2MLg;I8L*QrsDf=+V?KjfxG>lSJ#K<7zj@Ah3hoAGn84)Xi?BZ^w@4- zvEVc+AT!(+OIYb?`78d3ZBLS_gp0k`xpzbR3=No{{XJ@KZ*LCAph! z`)Sz!zB>lt?jM=YX3PEpzs6YgcCcEkO4{qGa!rXj6CyvYXPr>J_ODCJ@+Oi%V9L~Y^c}l4GaEMXoB^TeOdtWgV8{**in!rhQ zEE(Rl2rh_w3{nKuFG)LP)=lDnFzI%b zXI~Jx36*vQH!vH5Idbr1f>K6~(?zDK{2eaWd>+*0K+au9(PPPv*QcG%hWKRUo8jbr zE^clyq-^g8PB(_#gQ3(kG{r5Sk}!RgMlXV4F7~!NCFGa<&`nAT{-5+dqQ%vp3BNRX z6*=E(jEw&1``bS?3@ZHbFXa0AK^nzd5RysmyBcuC#Ca)TwONsaSXuPpOYC{Halr_> z?hE9c2!q!uO^Ly9s_;8L^@WA(%9pH$K0OeB*;2$wQRheI{(@fbvOp`sDDgx3jR44` zw6`4U%M*W%NV*`_SU$K0@M!L5_qx5HK*VzHI zmuO{_>#dN0gRCQ4LQO-1HOp`7;rFt^@=VP_U&BeHwKdi4BO8mi0#lzQwXiK1g_Gjy z8o!|V!D$C4NsFLYIKg1wSXzBY`gpx6?9L>1?6&slqKq8Wxc`r90Wp1(X(;0DE)A9W z5CX~{5fqvyqWv_Ml9i50^SfbK##2(rk4Vn`m{{W=7;8KCy^Ie}2cYTg5o|*M%8U;h zR(tr?96)=myC7=@=4Hd;nd~9e3sX@d{^sIF_pk3DPE)O@-< z5q}x{H#5nx+E*CDh2?qv!gKY7b5XR4rQ$^OKjlr4>3L-8JKASr-Z;Nreub;<7gttN ze(^d(nA~{7sHmbBymkb)5FGSu09t(TwG)do4?Vv%Eb0bdV!O8`2zH23-DA01A7U&j|Q~bx< zwCV)|kS^qWcxkSo*Y%U+5SA4k;1x*qIXG$_t`kdy73J@a^O1dDG$%#G(3_!*Y*Xzc zjP#=%rRVLrqe!%CS$8S^EmjPicDkqkkE04o*}S0_eP? zwX0N{`#rsa*|hWACgRnAJjO2PYPb|cYG*tTbI!Gk5Ko<}sJoUZ;5Me{B8ar+1F7EB zR8bq8#+gb{=l6d+A?8RjF_H|mMJo zEa9&V=u*_Sd@++(G!2DM zM8WYp?lr>sZ|%N1RQrh4+@*6dlow?)4%u1m1Rpt*&de4>zpB*g&uQ98g;DB|Xk;6d zS?%XULqq7^JQS|U+4~Va6Y(^Agr;in6mGxFLw{jx8dv|-$*#SW5r zWWwnFnjkxaTaIoFDeM?b4_MS)3eKC+*=mHm6X!_dXK)X3oQkCbF&nuxp&sp*Bdo;d z`}=RH7<%rKpJ)~rc~PmPl``Exqj0~FJFW_;r<3uku%9#&GCPePXtI$X8rWG&KQGIZ z@032KWEB8yF;2lSsyIVr!lzqJqg(5Zu(A-z)Mc(*i(^04lUrS?H_Db0-gHLNzj6fg z$PanU+EAQ@VaQy(>D;e$W(6oF$!O(&EX*it=?CMpnxC&M6*u}9a%nh(a7Sp z2ToJTspZE%2N(ZqdwX^yS2=)JF+_2roITLT;Moc>R@?n#1=j!owGX%=~AI% z>`&dOY^Tvf*}NFQ?tP-ITXM%p*0zy))(}14oJ63U5X1LbRYCxY0DB4w6n!K^`3q?Q zm6X2u0Sh^<0gI&=X%ueWM13bB4OdTo zh}1>dv13t^31fg_Iqgd;fP4>$O`K z$)HGAe;=iS&h;k5I0hljDdQR-mO&&zqYThjR|;2{d{n@fro`{*11C`Suyz~k=(sJV{wHP6YRZ~-wk*=0BB@+gDlG+9H zT^UGJRCHo$s-Lq-XmWdq(!$0AkcJlN=pWi3MORlYQSzGWzLn4UaAWZ5nU18rm^Jjq z=ihNRY-k!L`N6(=O6j*owRMOqVU^!Wl?}q_2U#106p=Q_mWtHbjlIX`s??@pIO+5u zuonVN6urj|8|n9#ouUht>tz}yk=<_byiFWgPG&7g&m<&|7-!K3F!mYUJhG`>eFLr) z1!}CX3zK$*jN~YkH+84?QUcWM#B-c+=N3s=$yvgZB@Hc50zaM$}SmQ~tJ{=_4OEf3MH@I^= zxfrt){h2cG7Taio<=c7F33F`w=J<;&R**U)kO+(1x0eoB-Ut=^DaAY+Kr{YP7W#3^ z1Jn*6vRQIT%>JWl_NPEDDuM_91$wxQjt<4ni~YRX>f|O84;lQi5pZsdBw9vY-08&5 z95welDJPvQZBRJSZ3aiq$u`x0j~~w$uO#gBD&)BrGZqJGYzRF(Jh-2Yy_9!S7gVow z48bbjDWlepS!i{k32q>`$`51KJMn=fSHq>CR^5<>fE5p*IaSTEf()$-^Ck!TFur!xE?O)O(`HL%*%h<88gov==01+(Izzp5`gJYsDZ(+%`Kq>l_r7f&Ojk8aB2FYaT ze?NKc4YiU=f?UTmY*jI1ag2?P-7jWeN08nLNeYtY=H{X=m)z{@k#^qGMuchGFH1{H ziLBQAQy_2dpQ~YDTuZ@7!HmEfN`WVJJeja(KKGvoun{wVZSWt62{1`Tgw(R5rE_yL zaers%YfS1b7$K8hgB;5y!r%6Tq^Q*qOPY(>py2Jn-6wr>Qkx>5ntWET7drF#vKRK$ z#jTHt|20zYf?ya%#&~77cMgo~a+eGC(AOX^Rj4uxfCKee1oQvDSi#nU_kgh|{pJn; zLzmeLKl2!io?bOh$;laDUDR8Nm}$J62a2@a4OA7mE;c(tL_jwk2ldvRGOre6XUZU* ze#dsMVN!*nUaU(>VB>aAmIM;^eTyy!lI6tslf$O*{*7emUnAke{xH=OlE+M%(BZfP zT?s4$sV-a`orrgBx*yCQPwMRpuC-N$Vg)Im7uHEXm&BlYi`116eVG=%fAZ%WAs*Dl~EffAr2E3DG_WXvsuwAJm7_{YeL+?n)Ig>sg;MxO)2R&7;PTzvzB z&)G;R)5y%wo2^>(;X>2NfyEQn;^Lyw6VtWnit82dONay{Ok1B`2IBZPmI)=njEo}% z_&a!RqNIe?hyQw_1wdMvLR`y#e9BNt3L|4<%8gA_vJPb_Dzg6+_8|F0*kis9ZZ1u+*dSAb6S9l}2rNlB1@^3RegEr$b5 zTkzO8SgP5#{=J5$NUp5#5n*&!H0>DeEB6%CJ>~nYTB7v!l@;MG;XJOTMLMtV8RR8m zI2$oT2L{MdePQ${7x^~rW{?hr3=eYCoCUcUH~w(wAv`ON&mu{x&CJ_N?7SNze=RSB zF|y^&S4$aLq?n&k{T^m#WAnv3g*Aql1IH-0OO$pxAAYNrd#nte2P_s7zZge;5iLH9;Ue=0jjW7bz*TFkai27ds< zhk&()pR8UG-CE-PIqEpzp`dYIY>qQ-i^Z)XR^UgD5T4s222078&SLxcF7wk(rA-^P zpS95&e`bpYj0<8S&Mu?yQ3W9`KSP_swVQ{yoZrI6o_@+AnkGV1H>bd(6r-x*Cxdr) zcg@EsL`>f+U#K$i2MqYUMDjB8qXh-0gc_TzNNW1}29y^Di74pZK{f)ID(JHt`Viu` z45xoEJ{f@Ki=8(KjBJ;HAB<52LQ0=1m04uDfg@A2>_*2zl`{E2*_Y#y3$tfbXdxHZ zs!%`&kN3d0BnwRGwBVvp*t6~d|L0UGyRy{Y6ZMxAuwB=vwTD}BVQW>PGEY_?`X8=w>nYt!EYHn-tt>6wAON@1 zOP3;&xeLRk*)BiR^h(Ds1zk%KD7@f=i{?+jQ!j|<2) zl}uRak4}u15W>;jLG&gWPcPiQa`%23R>}6we&Iwh^ZU2JESbx~7u!Y1;ZL5kK|RU zekfaV!1NbUUvf*j_>|ACHr*P%VcR|5S)-1kQw^T+n8FP(HB1op1jL)nT{ zR}~>LB$7iw#;Q^c#CkvG;cCpwwV?D1$_tj;>w#?AL&gIZzSB+{U7ntlndFpmuY^ie z^44Qp1)3{%UI&OHO~|#ZbPo2Ht$w33u!EuWNH)dAD>YyiM#I}mpq(2onwu&=T9J_w zFaP1g^n$rU#v;Ll!f4N%-6Jc<*lnzN|M2l~JIbxi&Azd(p%`_J#wmsQ-(3~0nTW(F zWpI~!BCx4|k!51{oWQ|}JseJu@w@0T$ctGo%dLMyheu4*O-1WA)Zv#UOGO+u=iv0= zkbAzMlOy{1&jK!htZ@L}M)9K&e#%QPAh&T7Fv4im=;Y%RzeCwf3#H%(;>V+@EqqJ= z!Kiu{;>*KjeDzG;sH2_`kvV^?y4^+QTG|Rq@`yivU+EW`x-VxwN4S)fPU^X2cLZZv z7YY0`PyjK?@Ks5nuRC5Tn0IcV)A`rr^ikCK`t|ObW@qW6o`g@13Z6w z61hZM1)!oJJ)11UGL)F(J|CuOF!|}}dYNr>1noLxAd@}8y5B9BQQO*(ek6gSlRb{w zt2`;VjUtTWR`A-h`?t1=xqki}GGfVJv1;{OBN^S9p10uf5L;;so#V;=ieNY=By5V& z*|e!B73YE+hn%&1GXJ!5tFRCE*yg-1A%QS$-?6l1tm`Ef*+JVFN#UwHJ!ZjLpsT-a z7NP3uKfSIyvP@gkdC6wlMXteOBm>%b40W_$qxK{+c5@{E(@O7qurr+8%<#gx-l3@p z_zTsbx1So;27OzMT-dj44|_ra0AR@$Yn)H{+}%Vz`eYH2H1H2aGBI`l?L5Qywdb~e z=N0qL?D;$+9PD8!&e1jh^je@JucR+py;`Ds{holrefq)s2@s}7Vkj#10G`cXHQIOl z$vhadwlMvP6;t5kJNv#+3mhVIlPh0Z~EN^ zPX=GpvzX!JvK4<~%9{djLMOohCl@!Wh8zM+r(*O?kLlD@QIoLniPs& zpLNQ(qwAvMKATWu!9S0g8)#qkZacf|Mc7(c{+;O$N|bIW0z6n?PP~#~k3IEYP9)B! z6f@dVOOXvq&ep_CZf^FT_n&q_sE>#5*X(iEU`g>YJ4MJs4;Q}D|9bJVRxot;2L?l9 zNdg|CEGw)JoyMZhz$F-wBu#wXT(R~qvBUCicxnB?Z!PS$V_HJ`QvOT*^)C$Renewo zK87u`f=c`)hfI0(o}?s(yTh<=c0$p#i#_ew4*Ew!o!!gs=6tt(2`~TSKCg=wN$W8B z=@~K8%~q#N9qYpZGRVH#33Z(cfU@AqV-)L`9&Xm_e>mQn+a84~<`!wtANNL@;tNj4 z_Xo#2`64H~>eB5r2w(h=@KoPrD<6iG-6mmSma1}Fnh3rtYWV6tKfa7>L>gfKt z;!R~&E4T@u_MmdRwEt3FQG-f4-)#t31w?9^9U?$XBN7S2mF#-3f-vDd)o@Axu*-&OBHa> zgzC*Z9c4!oeH~>mym~mKRIDfFm=|d;klaw70F;gg(DXd4Aa)j52jY!c8m%0KN4eeQ z#vp=`Th2!A4+$yJ`NsMh&^N$^U8m~#$)%O=C7~v6mPA%}0aWM!_Vq~O^d;X??o z#J|#~;UjQ~enJ7h41Y|3SMBX6!}@E*ExqPWdVieocpw(PZTU_7A(qjlGlm9l1l~_~ zPkuUfP9D6EqVJm52UpE21H~4V^k=Clud}6}jIt+}PABf6xMxkByJs z9|yNxZivbJCN$fY#y#->Uyr?C!Asivn$qCp7?CQA4Y72$HVk+FgW{1w7n_LZalYp% zZmh!j)csNNS5%!H*@Kv>^q8qvr@1bkYyysJm7z}LI_cS%`goSA+)Dn`L%EZ+UOR^4?L#b#)r zVNR5{$;T&-kk{AN!5GBL+?W!?bns8t>wkYKY~(lQlVTBHm_;VX+5wo*Bz;Y;9G>54 zKw0#NDH7Kn(>!YCt-4>Pk9S)YS{VF?B-_xWzb0wZYWJ!-Tdv94p+};fuERFz$d-&J ztUiWDkH}X{Q&K7`Kg;cTeYS3FVNBm`cm6~)dMuukZsws67u>td{c-$Qcp7WLSLRC4b?U}$HI`Qo7m7X; zY*{yOZ1d|Y_8dwUlSQp4TC<>(B9p6kz`|HShG~U%2H>+M@gId?Cg>lsk2NkbQ4Z0K zZe)ot<%yC9T^v;_z_Rb~*ZEHyA%67Bo)_GWITJc&ZfA~D9K>1+fSu4r%#38|@VTAw zh`xmvhaA?%H|2}%#1iyfpQFlC!Q6^B`mZZbJ^8_!#sC7TxSCBZ=?QLlKs^yJmnAmL|N6g^2{{ zY8?D-G++KS31?E04?KLZzdm1$C8BFeMEm@C5u5>1MQFzYSiAn|COg@z#&^58Ug7lG z>gxpvA^}3=Bw;%YmFmmR@dm+t&im{V@uTgYgYzUY4)+!ok0F=7{b9*ZsCx;;d$R7( z1JkweCQVHhEZ#DNiCU9$)eohlpu5_Jo*F+4Q-9+NE4?kNzfDRf{mEUwq0zJF9&E(m^)~9BY7g=1m#m`)YsR9}>7i%w)lo8> z_SLsS9t&&?uT11n0j}eo@uEla@e&q>B<*Mi$9`q;OcXu^YPCCXo{XadKW7>AT{@qs zdNA|3sSpUhUf8aZLwT(DC{-{jE=o1Bm`?CxH~E3h1@}Kl34J0;qc3m1>&G0}V^U5G z?v~tMz7Nm%IrqslH9zaC-BxZ(?H5l^Cml>@$?Sg@R+V=1&M6TBU4YV)A@$5bTCcO? zRj_yx_^ls7^*G?@fL=zYqo}(y9W%?fmfTZtN`|oA(l>|p3*kq(sq=x;Dba~Ng8mZB zgrcstY})h!{F85)Y{q@cGoyR$N}F#THOwd4umA!L; zfSA+Yb%!RWy-V%%%JH+n69}CIxBc69VjiAIS)WNA5VHRk{pIa2sn!sFiH>B_8&j9o z^C2$7U%Yuz!BX}1A2MENnsD1WnV!Adb#}FzZur+EU@3aL5rt2wL<%o!Y{yzhz~t1j zlc*ZS<0s?uwI~Cl0ZAx=qNj?#hug1A@n{mVqx!7*v(7RFE7$+dh2k0r+JCuH0OT@i zk_wFUPk#8E(?a&lb-pod2t!-q6wCxHRP!OkJ+TCVcEjd=2Bk#sOo@yw%F-ql&siOs zk4OZwT`T^$S0sV6Nf(lD{%89VoSKQIOjpGZ$%tbs3~QKIqPAs@qrbQ< z!V`@B(-m}Ld3&>erY&QyOp_)s9RgW{c zqFW(dRo)BR6@aSBDq6 zEa3&*AV%^3i3CXgeWi?qM1Up72;4W(bW)<^*pSyT+n{2vZA~a)0j_~A2cz*s`WRBKEO1uOWva?& zM92#WAz@$VaW{70<>4f%a#Bcxz@iwPNK`ZUqYIWX`E4~Sv~sETUTA-Cx-Ee!u$Rnq z>Rj2dl!6rd!y|~@Sp2#0vTI*5CQwfVC?t?_H^C9{h8D^Jj-3H?VB4U0!kfRetu1-*%)26+6HGN=1Fz+uOJPQ$1}d5{6jKkN`TbhrZU<)~_+q(OP?U({ICQ zc_%wOEN(SuGWwisUm$rqN0VoHash|xVmH$y;WJ^sH+gLG#j+iMgaYHw&Lbykqu>gR zJ}L^}sKS_58+-d51_m`zTnyOXmrN%FRsgKFp|dN-+$%j3oWisDyYhJ{5};L{|8lJV zSTfg!a9m}E97E!~Mwk2G9}q1An96D;YJ@v7FqS2}$6a2~cF>uIWSL)D+tyfu=w+d! zyh3b;Wq5LT%p;k6W0u~X1`e^`#3o*GJ0zE0JFFZY`ODU*{U`hclO&s(IMwE&ub+{X zWT$~Xf^zQ}rt2XVUd`~d(|!Hxr$`7|V4Tfd0}o}rv?GU{rzj<6^t6wJ3rsjIYbn6L z_L*U&hTD8>zyv0K1So|Zg+sytHe(_2i;f_cq%+d_bLt4W#b1o?zIdy-vnKraMUTwj zSeI~OeqcHC2w?g66(o$RGL@TtZ93Nq|B~u2S3=&?>^CxGmhXdq&}Tc*&Z?gSS#1ty z@0xid0k;)bUjyWHG?5ruoU;C@YC2{NUg(QG#up$%{R<<>0#DyB-q(W3o6?$h{kX(S zRv3J=97uc0j6aSZilcK>Xt2aRmHyr%+26GP%>Nb14ChO5Iml;Yny@^L)cZYoz32>16Af{@s=>)WMCZZ4u)s{*6(l(2P-!AG!n&RF!%<+w#5IQ$LJtfU=v>m?8u#|!i0(EuT7xH z1Iqjh(xM`ak1pHH#D&UXFMu)>!xR~y=@rTL{@?mt#m9#It(*q*q*M09@v5(f` zk4?*T8s*=FiZRza#RG72J@;Fk!JaH?*8 zO$Lci1(O(OK_ePmD8ahW6o#CkgE*26&`5_QA-OYey(Cl3CO)}UICJt6?=`*(vO`)L z#IEdGr37%|!!aRLL#y!_;W{VSEnr#B20cG0H`9Xe$%)yn1af>4t+{IZm=Fw3DS8#o zZcB{D(?jxLp{3FCPIR<-l%N7`Gl1sPcZtTb1D(OZs9`4SR?Vrbe87)lr-YoKnETpE z0Sbn;w+dSDbXzARey>Zc)-Vix`!h@EnXDn>QomKHEB&Y8{*J%*J|ZM&wM~(Lgt?!h zif16_D>#q5J{vk_N4g5Ax%NR6ec$b^%Y5xg0{7m$^-gr=XC&fImzM=EHdA|{KRPrf zJ#)5(%*Sz?8oiHhBeW6ymsZTG43_CN#t?mL-P}88`tpv$9HsR8kPhH}32ejCm*!cH zw_EoFYp7x$R8ywh9#t56ivX)vMsy9J>+x8(t60|aV7cdtl}%N?L9YWFY9Il(yj9lyAZ z>v%VYmMbo4lOv5osoQPyh}{yXtDR(q6?UkrI^IKeJZC0eg7b3>`bzFMmmpl)5+ag{!~ z4t`&kDU|q3V2EUHvZeT)zMy^#v=ndq!jj{+2I%!Mvl@pqLKG~(o*+iJ;T)wp5s zMk(!Ys%7`u;T5NWG=zg3hkfFyxfBfcyy1%N;n_SBeiY?aV39D%nd)0l#ke?NWcXkk z-GiHg@spxaNdMpOD)2p(5-(glKPovYUUJYmeaFqx0>@((BL+(esWm0_Iog`?@I^y# z%n&*TstpN9_J~M~1bA`ssNmq&f7-iVqzGOJNK5HuE&3ixmP5?`7*yKGzM-I8c#6wiz)~ zF~Ap}Cp!LB1J!EDh0h<#q(Rf=!!@U()scYbosZi~ERM9i`Mv0f0!!&@jJNzlZ`0sR zvpBv@U=9j1cNe8Aw-U6)I=Qf7B_Kc#2ZT1!l7aZ(yoiR$p07)di(qDe`>e>?h>5(X z;Jn-7jM0;I!Q4-UiD12;c-Rg!l17HIvG_EB0Yxeu%DJ*bH}Yd#_{vPA0C^+e}>-efIg> zNG`Ii102+Lojx~Z{XJFVcGwf>akmGWvEh-;1>iDseD^!woG6be1BAxI(8|dVW`x%g z34a}PxIPYG)Cze0%QSZ3@T#NW!ulnfc&EfLdnmU-15WOw5AO-lM@#8|FcAESR+KgE zO%P5FhyY(>9K;TTL_Sy(FZBassTEu`g^Z(Zg%RH>l8Hxwm^qd6I>@FrG>_b7{V7tnWn6kSw_jq#5M=PnS% z*nV0z03ocP(BL5U)+eY<#R)t9+%&549-@yY&WdXo5nf2b-;c;RA4EIVjNUwSSiT89 zryGi7_6+4$P}x3XU@fN^=p9zN)qU3+5(s(;FUD_c-J2#w_t8Jtw=84^LT+04>|HXQ2cb*8g*d9!o_r(NywSQEJ z)q+fPqIR6I3u{Tkj|lmq?uZ@e@18Tg#%Bz}?fZ(h60A`unlm=U^wi@!0n^FrK!{J2 zv4cHq5f82WID8eG+ByWRa-eP>C#k}82I1@Jo}c9CML|k!wzk5&&Y zFIQyEpPgGGUT9UT4fIFHSSk{)P6gVh$3+9UmK*WJ>ts_-E0iDKc&= zx`xt*5=DNP0vxNXd(j?b=swLSldhnJsn)HZnN-{qf+nA32_{Zt`ecZo@w|kHo1xu1 zQem#GzKpUGboBHq`k!>qwj@TF5@v=0)Ds@RN3FrjOAaX;$oDDnogj$@K3|!&A`G#P zJ4^R@D)Y(8;1e&*-dBqkOxdXc!0lpCS*|}EMv1|k`jGJbhO|8*F7ZJ5=1PGXM&yiH zvLdHZfigqg41%v8iRhZ=@}+!CUEi#JkoHH1^|qLdoqY9MBOoUy=d=C>Y0dcXp{a!` zt}om{D!%epEM6Z@P2_Y`LLk}J9EL0NP}MNLRC6OAxx=P|6;26^Anp(N2bn$y7NrK8 z4Tjt^#waNjb-Ka&=;9eLX=Z+2eZnD`%RmjSoudpe@s&{0=)yz+l!bQAx; z=)wgrD$#PLf{@D#xv@V(?ib%0`iP-|4R;(yh=z#vn`KP&JB|?gijVvGuT>8uog=(c z!`3RPmM23A`Rv|S`Vj>*D!Rx{ae+Be1Y@UQ|HGWu#|@GpyO##FhEfQ@=(V2x+SkUd z!Pim}=M(ZNnVEQf2%NikiWVzMIVZxXa7Y^V_4Q%4fW>uTdq zO!#*N*M}_`xg-j~#KcVb@PU9eo#Z{eG$C)#J&nU#dgOgUB|-{{D0mNG=%qA(R~gt` zD5zxa4`aUDpa|wEsi(JH5m1=>=aVDL7?nmENlJNtXWr_b#Gru z$;`!5R8-V4GlLAVl<(^OD5`rF7q0%+#AJq_JS5!Jo8{PLt@5!#tBFja&;)#sI{G`Y z<^_yg z1_Svc#B*oa;;{cqf=?zU-eAw)DC-ZGNosPFj;9SAt4-A z2_?cuS1n&*roqLAH<)MJzamz{80LM@u#awU2g~W~ewhQh&1oA$cVZCQpXDrd`OC`Y z^`SrBqG}!sQd2$W>djA9dY_c}Y%&lK8L&taIHiRf9_gVrK|ggXmN6l-GwM8@4bw7o?nf|j#UnD@7zh=g}`Y*uE2>PdbFZE>Z%)eZ}NtPDj~R5aC* zk}G0LKYI^W4EV`*^8M=7FpWDu4Y4gO zoGhta&u?mNVi1*l3 z(j*1%Z>4lybHS6OYje_c`y88G6@@{|A}XQUd`T~?<(skI@WpRl6B9F|IPQLbjdQ0Gb@q)&3yl*4>lA!U7n`boQ#}_>fwg;WpuZhNz*cL9s!hjBg&9htH#Wc8l z0+Dh+icTHCZA)((748W+`z|A;J05P4J7_}V2tY%kRRP#g4duQjf$o~im8eJychIx7 zsBhv~)rL9m2MLg;I8L*QrsDf=+V?KjfxG>lSJ#K<7zj@Ah3hoAGn84)Xi?BZ^w@4- zvEVc+AT!(+OIYb?`78d3ZBLS_gp0k`xpzbR3=No{{XJ@KZ*LCAph! z`)Sz!zB>lt?jM=YX3PEpzs6YgcCcEkO4{qGa!rXj6CyvYXPr>J_ODCJ@+Oi%V9L~Y^c}l4GaEMXoB^TeOdtWgV8{**in!rhQ zEE(Rl2rh_w3{nKuFG)LP)=lDnFzI%b zXI~Jx36*vQH!vH5Idbr1f>K6~(?zDK{2eaWd>+*0K+au9(PPPv*QcG%hWKRUo8jbr zE^clyq-^g8PB(_#gQ3(kG{r5Sk}!RgMlXV4F7~!NCFGa<&`nAT{-5+dqQ%vp3BNRX z6*=E(jEw&1``bS?3@ZHbFXa0AK^nzd5RysmyBcuC#Ca)TwONsaSXuPpOYC{Halr_> z?hE9c2!q!uO^Ly9s_;8L^@WA(%9pH$K0OeB*;2$wQRheI{(@fbvOp`sDDgx3jR44` zw6`4U%M*W%NV*`_SU$K0@M!L5_qx5HK*VzHI zmuO{_>#dN0gRCQ4LQO-1HOp`7;rFt^@=VP_U&BeHwKdi4BO8mi0#lzQwXiK1g_Gjy z8o!|V!D$C4NsFLYIKg1wSXzBY`gpx6?9L>1?6&slqKq8Wxc`r90Wp1(X(;0DE)A9W z5CX~{5fqvyqWv_Ml9i50^SfbK##2(rk4Vn`m{{W=7;8KCy^Ie}2cYTg5o|*M%8U;h zR(tr?96)=myC7=@=4Hd;nd~9e3sX@d{^sIF_pk3DPE)O@-< z5q}x{H#5nx+E*CDh2?qv!gKY7b5XR4rQ$^OKjlr4>3L-8JKASr-Z;Nreub;<7gttN ze(^d(nA~{7sHmbBymkb)5FGSu09t(TwG)do4?Vv%Eb0bdV!O8`2zH23-DA01A7U&j|Q~bx< zwCV)|kS^qWcxkSo*Y%U+5SA4k;1x*qIXG$_t`kdy73J@a^O1dDG$%#G(3_!*Y*Xzc zjP#=%rRVLrqe!%CS$8S^EmjPicDkqkkE04o*}S0_eP? zwX0N{`#rsa*|hWACgRnAJjO2PYPb|cYG*tTbI!Gk5Ko<}sJoUZ;5Me{B8ar+1F7EB zR8bq8#+gb{=l6d+A?8RjF_H|mMJo zEa9&V=u*_Sd@++(G!2DM zM8WYp?lr>sZ|%N1RQrh4+@*6dlow?)4%u1m1Rpt*&de4>zpB*g&uQ98g;DB|Xk;6d zS?%XULqq7^JQS|U+4~Va6Y(^Agr;in6mGxFLw{jx8dv|-$*#SW5r zWWwnFnjkxaTaIoFDeM?b4_MS)3eKC+*=mHm6X!_dXK)X3oQkCbF&nuxp&sp*Bdo;d z`}=RH7<%rKpJ)~rc~PmPl``Exqj0~FJFW_;r<3uku%9#&GCPePXtI$X8rWG&KQGIZ z@032KWEB8yF;2lSsyIVr!lzqJqg(5Zu(A-z)Mc(*i(^04lUrS?H_Db0-gHLNzj6fg z$PanU+EAQ@VaQy(>D;e$W(6oF$!O(&EX*it=?CMpnxC&M6*u}9a%nh(a7Sp z2ToJTspZE%2N(ZqdwX^yS2=)JF+_2roITLT;Moc>R@?n#1=j!owGX%=~AI% z>`&dOY^Tvf*}NFQ?tP-ITXM%p*0zy))(}14oJ63U5X1LbRYCxY0DB4w6n!K^`3q?Q zm6X2u0Sh^<0gI&=X%ueWM13bB4OdTo zh}1>dv13t^31fg_Iqgd;fP4>$O`K z$)HGAe;=iS&h;k5I0hljDdQR-mO&&zqYThjR|;2{d{n@fro`{*11C`Suyz~k=(sJV{wHP6YRZ~-wk*=0BB@+gDlG+9H zT^UGJRCHo$s-Lq-XmWdq(!$0AkcJlN=pWi3MORlYQSzGWzLn4UaAWZ5nU18rm^Jjq z=ihNRY-k!L`N6(=O6j*owRMOqVU^!Wl?}q_2U#106p=Q_mWtHbjlIX`s??@pIO+5u zuonVN6urj|8|n9#ouUht>tz}yk=<_byiFWgPG&7g&m<&|7-!K3F!mYUJhG`>eFLr) z1!}CX3zK$*jN~YkH+84?QUcWM#B-c+=N3s=$yvgZB@Hc50zaM$}SmQ~tJ{=_4OEf3MH@I^= zxfrt){h2cG7Taio<=c7F33F`w=J<;&R**U)kO+(1x0eoB-Ut=^DaAY+Kr{YP7W#3^ z1Jn*6vRQIT%>JWl_NPEDDuM_91$wxQjt<4ni~YRX>f|O84;lQi5pZsdBw9vY-08&5 z95welDJPvQZBRJSZ3aiq$u`x0j~~w$uO#gBD&)BrGZqJGYzRF(Jh-2Yy_9!S7gVow z48bbjDWlepS!i{k32q>`$`51KJMn=fSHq>CR^5<>fE5p*IaSTEf()$-^Ck!TFur!xE?O)O(`HL%*%h<88gov==01+(Izzp5`gJYsDZ(+%`Kq>l_r7f&Ojk8aB2FYaT ze?NKc4YiU=f?UTmY*jI1ag2?P-7jWeN08nLNeYtY=H{X=m)z{@k#^qGMuchGFH1{H ziLBQAQy_2dpQ~YDTuZ@7!HmEfN`WVJJeja(KKGvoun{wVZSWt62{1`Tgw(R5rE_yL zaers%YfS1b7$K8hgB;5y!r%6Tq^Q*qOPY(>py2Jn-6wr>Qkx>5ntWET7drF#vKRK$ z#jTHt|20zYf?ya%#&~77cMgo~a+eGC(AOX^Rj4uxfCKee1oQvDSi#nU_kgh|{pJn; zLzmeLKl2!io?bOh$;laDUDR8Nm}$J62a2@a4OA7mE;c(tL_jwk2ldvRGOre6XUZU* ze#dsMVN!*nUaU(>VB>aAmIM;^eTyy!lI6tslf$O*{*7emUnAke{xH=OlE+M%(BZfP zT?s4$sV-a`orrgBx*yCQPwMRpuC-N$Vg)Im7uHEXm&BlYi`116eVG=%fAZ%WAs*Dl~EffAr2E3DG_WXvsuwAJm7_{YeL+?n)Ig>sg;MxO)2R&7;PTzvzB z&)G;R)5y%wo2^>(;X>2NfyEQn;^Lyw6VtWnit82dONay{Ok1B`2IBZPmI)=njEo}% z_&a!RqNIe?hyQw_1wdMvLR`y#e9BNt3L|4<%8gA_vJPb_Dzg6+_8|F0*kis9ZZ1u+*dSAb6S9l}2rNlB1@^3RegEr$b5 zTkzO8SgP5#{=J5$NUp5#5n*&!H0>DeEB6%CJ>~nYTB7v!l@;MG;XJOTMLMtV8RR8m zI2$oT2L{MdePQ${7x^~rW{?hr3=eYCoCUcUH~w(wAv`ON&mu{x&CJ_N?7SNze=RSB zF|y^&S4$aLq?n&k{T^m#WAnv3g*Aql1IH-0OO$pxAAYNrd#nte2P_s7zZge;5iLH9;Ue=0jjW7bz*TFkai27ds< zhk&()pR8UG-CE-PIqEpzp`dYIY>qQ-i^Z)XR^UgD5T4s222078&SLxcF7wk(rA-^P zpS95&e`bpYj0<8S&Mu?yQ3W9`KSP_swVQ{yoZrI6o_@+AnkGV1H>bd(6r-x*Cxdr) zcg@EsL`>f+U#K$i2MqYUMDjB8qXh-0gc_TzNNW1}29y^Di74pZK{f)ID(JHt`Viu` z45xoEJ{f@Ki=8(KjBJ;HAB<52LQ0=1m04uDfg@A2>_*2zl`{E2*_Y#y3$tfbXdxHZ zs!%`&kN3d0BnwRGwBVvp*t6~d|L0UGyRy{Y6ZMxAuwB=vwTD}BVQW>PGEY_?`X8=w>nYt!EYHn-tt>6wAON@1 zOP3;&xeLRk*)BiR^h(Ds1zk%KD7@f=i{?+jQ!j|<2) zl}uRak4}u15W>;jLG&gWPcPiQa`%23R>}6we&Iwh^ZU2JESbx~7u!Y1;ZL5kK|RU zekfaV!1NbUUvf*j_>|ACHr*P%VcR|5S)-1kQw^T+n8FP(HB1op1jL)nT{ zR}~>LB$7iw#;Q^c#CkvG;cCpwwV?D1$_tj;>w#?AL&gIZzSB+{U7ntlndFpmuY^ie z^44Qp1)3{%UI&OHO~|#ZbPo2Ht$w33u!EuWNH)dAD>YyiM#I}mpq(2onwu&=T9J_w zFaP1g^n$rU#v;Ll!f4N%-6Jc<*lnzN|M2l~JIbxi&Azd(p%`_J#wmsQ-(3~0nTW(F zWpI~!BCx4|k!51{oWQ|}JseJu@w@0T$ctGo%dLMyheu4*O-1WA)Zv#UOGO+u=iv0= zkbAzMlOy{1&jK!htZ@L}M)9K&e#%QPAh&T7Fv4im=;Y%RzeCwf3#H%(;>V+@EqqJ= z!Kiu{;>*KjeDzG;sH2_`kvV^?y4^+QTG|Rq@`yivU+EW`x-VxwN4S)fPU^X2cLZZv z7YY0`PyjK?@Ks5nuRC5Tn0IcV)A`rr^ikCK`t|ObW@qW6o`g@13Z6w z61hZM1)!oJJ)11UGL)F(J|CuOF!|}}dYNr>1noLxAd@}8y5B9BQQO*(ek6gSlRb{w zt2`;VjUtTWR`A-h`?t1=xqki}GGfVJv1;{OBN^S9p10uf5L;;so#V;=ieNY=By5V& z*|e!B73YE+hn%&1GXJ!5tFRCE*yg-1A%QS$-?6l1tm`Ef*+JVFN#UwHJ!ZjLpsT-a z7NP3uKfSIyvP@gkdC6wlMXteOBm>%b40W_$qxK{+c5@{E(@O7qurr+8%<#gx-l3@p z_zTsbx1So;27OzMT-dj44|_ra0AR@$Yn)H{+}%Vz`eYH2H1H2aGBI`l?L5Qywdb~e z=N0qL?D;$+9PD8!&e1jh^je@JucR+py;`Ds{holrefq)s2@s}7Vkj#10G`cXHQIOl z$vhadwlMvP6;t5kJNv#+3mhVIlPh0Z~EN^ zPX=GpvzX!JvK4<~%9{djLMOohCl@!Wh8zM+r(*O?kLlD@QIoLniPs& zpLNQ(qwAvMKATWu!9S0g8)#qkZacf|Mc7(c{+;O$N|bIW0z6n?PP~#~k3IEYP9)B! z6f@dVOOXvq&ep_CZf^FT_n&q_sE>#5*X(iEU`g>YJ4MJs4;Q}D|9bJVRxot;2L?l9 zNdg|CEGw)JoyMZhz$F-wBu#wXT(R~qvBUCicxnB?Z!PS$V_HJ`QvOT*^)C$Renewo zK87u`f=c`)hfI0(o}?s(yTh<=c0$p#i#_ew4*Ew!o!!gs=6tt(2`~TSKCg=wN$W8B z=@~K8%~q#N9qYpZGRVH#33Z(cfU@AqV-)L`9&Xm_e>mQn+a84~<`!wtANNL@;tNj4 z_Xo#2`64H~>eB5r2w(h=@KoPrD<6iG-6mmSma1}Fnh3rtYWV6tKfa7>L>gfKt z;!R~&E4T@u_MmdRwEt3FQG-f4-)#t31w?9^9U?$XBN7S2mF#-3f-vDd)o@Axu*-&OBHa> zgzC*Z9c4!oeH~>mym~mKRIDfFm=|d;klaw70F;gg(DXd4Aa)j52jY!c8m%0KN4eeQ z#vp=`Th2!A4+$yJ`NsMh&^N$^U8m~#$)%O=C7~v6mPA%}0aWM!_Vq~O^d;X??o z#J|#~;UjQ~enJ7h41Y|3SMBX6!}@E*ExqPWdVieocpw(PZTU_7A(qjlGlm9l1l~_~ zPkuUfP9D6EqVJm52UpE21H~4V^k=Clud}6}jIt+}PABf6xMxkByJs z9|yNxZivbJCN$fY#y#->Uyr?C!Asivn$qCp7?CQA4Y72$HVk+FgW{1w7n_LZalYp% zZmh!j)csNNS5%!H*@Kv>^q8qvr@1bkYyysJm7z}LI_cS%`goSA+)Dn`L%EZ+UOR^4?L#b#)r zVNR5{$;T&-kk{AN!5GBL+?W!?bns8t>wkYKY~(lQlVTBHm_;VX+5wo*Bz;Y;9G>54 zKw0#NDH7Kn(>!YCt-4>Pk9S)YS{VF?B-_xWzb0wZYWJ!-Tdv94p+};fuERFz$d-&J ztUiWDkH}X{Q&K7`Kg;cTeYS3FVNBm`cm6~)dMuukZsws67u>td{c-$Qcp7WLSLRC4b?U}$HI`Qo7m7X; zY*{yOZ1d|Y_8dwUlSQp4TC<>(B9p6kz`|HShG~U%2H>+M@gId?Cg>lsk2NkbQ4Z0K zZe)ot<%yC9T^v;_z_Rb~*ZEHyA%67Bo)_GWITJc&ZfA~D9K>1+fSu4r%#38|@VTAw zh`xmvhaA?%H|2}%#1iyfpQFlC!Q6^B`mZZbJ^8_!#sC7TxSCBZ=?QLlKs^yJmnAmL|N6g^2{{ zY8?D-G++KS31?E04?KLZzdm1$C8BFeMEm@C5u5>1MQFzYSiAn|COg@z#&^58Ug7lG z>gxpvA^}3=Bw;%YmFmmR@dm+t&im{V@uTgYgYzUY4)+!ok0F=7{b9*ZsCx;;d$R7( z1JkweCQVHhEZ#DNiCU9$)eohlpu5_Jo*F+4Q-9+NE4?kNzfDRf{mEUwq0zJF9&E(m^)~9BY7g=1m#m`)YsR9}>7i%w)lo8> z_SLsS9t&&?uT11n0j}eo@uEla@e&q>B<*Mi$9`q;OcXu^YPCCXo{XadKW7>AT{@qs zdNA|3sSpUhUf8aZLwT(DC{-{jE=o1Bm`?CxH~E3h1@}Kl34J0;qc3m1>&G0}V^U5G z?v~tMz7Nm%IrqslH9zaC-BxZ(?H5l^Cml>@$?Sg@R+V=1&M6TBU4YV)A@$5bTCcO? zRj_yx_^ls7^*G?@fL=zYqo}(y9W%?fmfTZtN`|oA(l>|p3*kq(sq=x;Dba~Ng8mZB zgrcstY})h!{F85)Y{q@cGoyR$N}F#THOwd4umA!L; zfSA+Yb%!RWy-V%%%JH+n69}CIxBc69VjiAIS)WNA5VHRk{pIa2sn!sFiH>B_8&j9o z^C2$7U%Yuz!BX}1A2MENnsD1WnV!Adb#}FzZur+EU@3aL5rt2wL<%o!Y{yzhz~t1j zlc*ZS<0s?uwI~Cl0ZAx=qNj?#hug1A@n{mVqx!7*v(7RFE7$+dh2k0r+JCuH0OT@i zk_wFUPk#8E(?a&lb-pod2t!-q6wCxHRP!OkJ+TCVcEjd=2Bk#sOo@yw%F-ql&siOs zk4OZwT`T^$S0sV6Nf(lD{%89VoSKQIOjpGZ$%tbs3~QKIqPAs@qrbQ< z!V`@B(-m}Ld3&>erY&QyOp_)s9RgW{c zqFW(dRo)BR6@aSBDq6 zEa3&*AV%^3i3CXgeWi?qM1Up72;4W(bW)<^*pSyT+n{2vZA~a)0j_~A2cz*s`WRBKEO1uOWva?& zM92#WAz@$VaW{70<>4f%a#Bcxz@iwPNK`ZUqYIWX`E4~Sv~sETUTA-Cx-Ee!u$Rnq z>Rj2dl!6rd!y|~@Sp2#0vTI*5CQwfVC?t?_H^C9{h8D^Jj-3H?VB4U0!kfRetu1-*%)26+6HGN=1Fz+uOJPQ$1}d5{6jKkN`TbhrZU<)~_+q(OP?U({ICQ zc_%wOEN(SuGWwisUm$rqN0VoHash|xVmH$y;WJ^sH+gLG#j+iMgaYHw&Lbykqu>gR zJ}L^}sKS_58+-d51_m`zTnyOXmrN%FRsgKFp|dN-+$%j3oWisDyYhJ{5};L{|8lJV zSTfg!a9m}E97E!~Mwk2G9}q1An96D;YJ@v7FqS2}$6a2~cF>uIWSL)D+tyfu=w+d! zyh3b;Wq5LT%p;k6W0u~X1`e^`#3o*GJ0zE0JFFZY`ODU*{U`hclO&s(IMwE&ub+{X zWT$~Xf^zQ}rt2XVUd`~d(|!Hxr$`7|V4Tfd0}o}rv?GU{rzj<6^t6wJ3rsjIYbn6L z_L*U&hTD8>zyv0K1So|Zg+sytHe(_2i;f_cq%+d_bLt4W#b1o?zIdy-vnKraMUTwj zSeI~OeqcHC2w?g66(o$RGL@TtZ93Nq|B~u2S3=&?>^CxGmhXdq&}Tc*&Z?gSS#1ty z@0xid0k;)bUjyWHG?5ruoU;C@YC2{NUg(QG#up$%{R<<>0#DyB-q(W3o6?$h{kX(S zRv3J=97uc0j6aSZilcK>Xt2aRmHyr%+26GP%>Nb14ChO5Iml;Yny@^L)cZ _ + 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. + 'Nehmen Sie keine Änderungen mit dem Code-Editor vor. + _ + 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 + + _ + Friend ReadOnly Property Ribbon1() As VERAGRibbon + Get + Return Me.GetRibbon(Of VERAGRibbon)() + End Get + End Property +End Class diff --git a/VERAGAddIn/Ribbon1.resx b/VERAGAddIn/Ribbon1.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/VERAGAddIn/Ribbon1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/VERAGAddIn/Ribbon1.vb b/VERAGAddIn/Ribbon1.vb new file mode 100644 index 0000000..9cc8dd9 --- /dev/null +++ b/VERAGAddIn/Ribbon1.vb @@ -0,0 +1,91 @@ +Option Explicit On + +Imports VERAG_PROG_ALLGEMEIN +Imports Microsoft.Office.Tools.Ribbon +Imports System.Windows.Forms +Imports Microsoft.Office.Interop +Imports VERAGAddIn.ThisAddIn + +Public Class VERAGRibbon + Dim LOGIN_OK = False + Public Shared Event bla() + Private Sub CustomerRibbon_Load(ByVal sender As System.Object, ByVal e As Microsoft.Office.Tools.Ribbon.RibbonUIEventArgs) Handles MyBase.Load + + + End Sub + Private Function CreateRibbonDropDownItem() As RibbonDropDownItem + Return Me.Factory.CreateRibbonDropDownItem() + End Function + + Private Function CreateRibbonMenu() As RibbonMenu + Return Me.Factory.CreateRibbonMenu() + End Function + + Private Function CreateRibbonButton() As RibbonButton + Dim button As RibbonButton = Me.Factory.CreateRibbonButton() + ' AddHandler (button.Click), AddressOf Button_Click + Return button + End Function + + Private Sub Ribbon1_Load(ByVal sender As System.Object, ByVal e As RibbonUIEventArgs) Handles MyBase.Load + VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False + Dim ADMIN As New cADMIN + LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", "VERAG") + ' LOGIN_OK = ADMIN.checkLogin("MAIL_USER", "VERAG_MAIL_USER_2017", "ATILLA") + + End Sub + + Private Sub Button1_Click(sender As Object, e As RibbonControlEventArgs) + 'MsgBox("HI") + ' Dim ThisAddIn As New ThisAddIn + Dim s As String = "" + 'Dim app = ThisAddIn.getapp() + ' ThisAddIn.PrintAPageFromEmail() + RaiseEvent bla() + + End Sub + + + + + Private Sub Button2_Click(sender As Object, e As RibbonControlEventArgs) Handles Button2.Click + If LOGIN_OK Then + ' For Each ft As Form In My.Application.OpenForms + 'If ft.GetType.ToString = "AVISO.frmEintragAviso" Then + 'ft.BringToFront() + ' Exit Sub + ' End If + ' Next + + + + Dim EingangsDatum As Date = CDate("01.01.1990") + Try + Dim explorer As Outlook.Explorer = Globals.ThisAddIn.Application.ActiveExplorer + Dim selection As Outlook.Selection = explorer.Selection + If selection.Count > 0 Then + Dim selectedItem = selection(1) + Dim mailItem As Outlook.MailItem = selectedItem + If mailItem IsNot Nothing Then + EingangsDatum = mailItem.ReceivedTime + End If + End If + Catch ex As Exception + MsgBox(ex.Message) + End Try + + + VERAG_PROG_ALLGEMEIN.cGlobal.Aktive_ID = 0 + Dim mainForm As New AVISO.frmEintragAviso + If EingangsDatum > CDate("01.01.1990") Then + mainForm.EingangsDatum = EingangsDatum + End If + mainForm.TopMost = True + mainForm.StartFromOUTLOOK = True + mainForm.Show() + Else + MsgBox("Fehler beim Login!") + End If + + End Sub +End Class diff --git a/VERAGAddIn/ThisAddIn.Designer.vb b/VERAGAddIn/ThisAddIn.Designer.vb new file mode 100644 index 0000000..3c29eba --- /dev/null +++ b/VERAGAddIn/ThisAddIn.Designer.vb @@ -0,0 +1,285 @@ +'------------------------------------------------------------------------------ +' +' Dieser Code wurde von einem Tool generiert. +' Laufzeitversion:4.0.30319.42000 +' +' Änderungen an dieser Datei können falsches Verhalten verursachen und gehen verloren, wenn +' der Code erneut generiert wird. +' +'------------------------------------------------------------------------------ + +Option Strict Off +Option Explicit On + + + +''' + _ +Partial Public NotInheritable Class ThisAddIn + Inherits Microsoft.Office.Tools.Outlook.OutlookAddInBase + + Friend WithEvents CustomTaskPanes As Microsoft.Office.Tools.CustomTaskPaneCollection + + _ + Friend WithEvents Application As Microsoft.Office.Interop.Outlook.Application + + ''' + _ + Public Sub New(ByVal factory As Global.Microsoft.Office.Tools.Outlook.Factory, ByVal serviceProvider As Global.System.IServiceProvider) + MyBase.New(factory, serviceProvider, "AddIn", "ThisAddIn") + Globals.Factory = factory + End Sub + + ''' + _ + Protected Overrides Sub Initialize() + MyBase.Initialize() + Me.Application = Me.GetHostItem(Of Microsoft.Office.Interop.Outlook.Application)(GetType(Microsoft.Office.Interop.Outlook.Application), "Application") + Globals.ThisAddIn = Me + Global.System.Windows.Forms.Application.EnableVisualStyles() + Me.InitializeCachedData() + Me.InitializeControls() + Me.InitializeComponents() + Me.InitializeData() + End Sub + + ''' + _ + Protected Overrides Sub FinishInitialization() + Me.OnStartup() + End Sub + + ''' + _ + Protected Overrides Sub InitializeDataBindings() + Me.BeginInitialization() + Me.BindToData() + Me.EndInitialization() + End Sub + + ''' + _ + Private Sub InitializeCachedData() + If (Me.DataHost Is Nothing) Then + Return + End If + If Me.DataHost.IsCacheInitialized Then + Me.DataHost.FillCachedData(Me) + End If + End Sub + + ''' + _ + Private Sub InitializeData() + End Sub + + ''' + _ + Private Sub BindToData() + End Sub + + ''' + _ + Private Sub StartCaching(ByVal MemberName As String) + Me.DataHost.StartCaching(Me, MemberName) + End Sub + + ''' + _ + Private Sub StopCaching(ByVal MemberName As String) + Me.DataHost.StopCaching(Me, MemberName) + End Sub + + ''' + _ + Private Function IsCached(ByVal MemberName As String) As Boolean + Return Me.DataHost.IsCached(Me, MemberName) + End Function + + ''' + _ + Private Sub BeginInitialization() + Me.BeginInit() + Me.CustomTaskPanes.BeginInit() + End Sub + + ''' + _ + Private Sub EndInitialization() + Me.CustomTaskPanes.EndInit() + Me.EndInit() + End Sub + + ''' + _ + Private Sub InitializeControls() + Me.CustomTaskPanes = Globals.Factory.CreateCustomTaskPaneCollection(Nothing, Nothing, "CustomTaskPanes", "CustomTaskPanes", Me) + End Sub + + ''' + _ + Private Sub InitializeComponents() + End Sub + + ''' + _ + Private Function NeedsFill(ByVal MemberName As String) As Boolean + Return Me.DataHost.NeedsFill(Me, MemberName) + End Function + + ''' + _ + Protected Overrides Sub OnShutdown() + Me.CustomTaskPanes.Dispose() + MyBase.OnShutdown() + End Sub +End Class + +''' + _ +Partial Friend NotInheritable Class Globals + + ''' + Private Sub New() + MyBase.New() + End Sub + + Private Shared _ThisAddIn As ThisAddIn + + Private Shared _factory As Global.Microsoft.Office.Tools.Outlook.Factory + + Private Shared _ThisRibbonCollection As ThisRibbonCollection + + Private Shared _ThisFormRegionCollection As ThisFormRegionCollection + + Friend Shared Property ThisAddIn() As ThisAddIn + Get + Return _ThisAddIn + End Get + Set(value As ThisAddIn) + If (_ThisAddIn Is Nothing) Then + _ThisAddIn = value + Else + Throw New System.NotSupportedException() + End If + End Set + End Property + + Friend Shared Property Factory() As Global.Microsoft.Office.Tools.Outlook.Factory + Get + Return _factory + End Get + Set(value As Global.Microsoft.Office.Tools.Outlook.Factory) + If (_factory Is Nothing) Then + _factory = value + Else + Throw New System.NotSupportedException() + End If + End Set + End Property + + Friend Shared ReadOnly Property Ribbons() As ThisRibbonCollection + Get + If (_ThisRibbonCollection Is Nothing) Then + _ThisRibbonCollection = New ThisRibbonCollection(_factory.GetRibbonFactory) + End If + Return _ThisRibbonCollection + End Get + End Property + + Friend Shared ReadOnly Property FormRegions() As ThisFormRegionCollection + Get + If (_ThisFormRegionCollection Is Nothing) Then + _ThisFormRegionCollection = New ThisFormRegionCollection(Globals.ThisAddIn.GetFormRegions) + End If + Return _ThisFormRegionCollection + End Get + End Property +End Class + +''' + _ +Partial Friend NotInheritable Class ThisRibbonCollection + Inherits Microsoft.Office.Tools.Ribbon.RibbonCollectionBase + + ''' + Friend Sub New(ByVal factory As Global.Microsoft.Office.Tools.Ribbon.RibbonFactory) + MyBase.New(factory) + End Sub + + Default Friend Overloads ReadOnly Property Item(ByVal inspector As Microsoft.Office.Interop.Outlook.Inspector) As ThisRibbonCollection + Get + Return Me.GetRibbonContextCollection(Of ThisRibbonCollection)(inspector) + End Get + End Property + + Default Friend Overloads ReadOnly Property Item(ByVal explorer As Microsoft.Office.Interop.Outlook.Explorer) As ThisRibbonCollection + Get + Return Me.GetRibbonContextCollection(Of ThisRibbonCollection)(explorer) + End Get + End Property +End Class + +''' + _ +Partial Friend NotInheritable Class ThisFormRegionCollection + Inherits Microsoft.Office.Tools.Outlook.FormRegionCollectionBase + + ''' + Public Sub New(ByVal list As System.Collections.Generic.IList(Of Microsoft.Office.Tools.Outlook.IFormRegion)) + MyBase.New(list) + End Sub + + Default Friend Overloads ReadOnly Property Item(ByVal explorer As Microsoft.Office.Interop.Outlook.Explorer) As WindowFormRegionCollection + Get + Return CType(Globals.ThisAddIn.GetFormRegions(explorer, GetType(WindowFormRegionCollection)), WindowFormRegionCollection) + End Get + End Property + + Default Friend Overloads ReadOnly Property Item(ByVal inspector As Microsoft.Office.Interop.Outlook.Inspector) As WindowFormRegionCollection + Get + Return CType(Globals.ThisAddIn.GetFormRegions(inspector, GetType(WindowFormRegionCollection)), WindowFormRegionCollection) + End Get + End Property +End Class + +''' + _ +Partial Friend NotInheritable Class WindowFormRegionCollection + Inherits Microsoft.Office.Tools.Outlook.FormRegionCollectionBase + + ''' + Public Sub New(ByVal list As System.Collections.Generic.IList(Of Microsoft.Office.Tools.Outlook.IFormRegion)) + MyBase.New(list) + End Sub +End Class diff --git a/VERAGAddIn/ThisAddIn.Designer.xml b/VERAGAddIn/ThisAddIn.Designer.xml new file mode 100644 index 0000000..8f25102 --- /dev/null +++ b/VERAGAddIn/ThisAddIn.Designer.xml @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/VERAGAddIn/ThisAddIn.vb b/VERAGAddIn/ThisAddIn.vb new file mode 100644 index 0000000..9f552d0 --- /dev/null +++ b/VERAGAddIn/ThisAddIn.vb @@ -0,0 +1,56 @@ +Option Explicit On + +Imports Microsoft.Office.Interop +Imports System.Windows.Forms +Imports Microsoft.Office.Core +Imports Microsoft.Office.Tools.Ribbon + +'Option Private Module +'Imports Microsoft.Office.Core + +Public Class ThisAddIn + Private WithEvents inspectors As Outlook.Inspectors + + Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup + inspectors = Me.Application.Inspectors + + AddHandler VERAGRibbon.bla, Sub() + ' MsgBox("JOAS") + TestPrintFirstPage() + End Sub + End Sub + Private APP = Me.Application + + + + Public Sub TestPrintFirstPage() + Dim Mail As Outlook.MailItem + Mail = Application.ActiveExplorer.Selection(1) + PrintFirstPage2(Mail) + End Sub + + Public Sub PrintFirstPage2(Mail As Outlook.MailItem) + ' Dim wdApp As Word.Application + ' Dim wdDoc As Word.Document + ' Dim olDoc As Word.Document + + ' wdApp = CreateObject("Word.Application") + ' wdDoc = wdApp.Documents.Add(Visible:=True) + + '' olDoc = Mail.GetInspector.WordEditor + ' olDoc.Range.Copy() + ' wdDoc.Range.Paste() + + ' wdDoc.PrintOut(Range:="wdPrintFromTo", From:="1", To:="1") + + 'DoEvents() + ' wdDoc.Close(False) + ' wdApp.Quit() + End Sub + + + + +End Class + + diff --git a/VERAGAddIn/VERAGAddIn.vbproj b/VERAGAddIn/VERAGAddIn.vbproj new file mode 100644 index 0000000..a0b9f54 --- /dev/null +++ b/VERAGAddIn/VERAGAddIn.vbproj @@ -0,0 +1,354 @@ + + + + + + {BAA0C2D2-18E2-41B9-852F-F413020CAA33};{F184B08F-C81C-45F6-A57F-5ABD9991F28F} + Debug + AnyCPU + {D579F7A6-7D29-4295-B382-DA5F7EFB4528} + Library + VERAGAddIn + VERAGAddIn + v4.5 + VSTO40 + + + + False + true + D:\Andreas\Programmierung\VB\OutlookAddIN\BEREITSTELLUNG\ + + de + 1.0.0.27 + true + true + 7 + days + VERAGAddIn + + + VERAGAddIn + + 3 + + + + False + Microsoft .NET Framework 4.5 %28x86 and x64%29 + true + + + False + .NET Framework 3.5 SP1 Client Profile + false + + + False + .NET Framework 3.5 SP1 + false + + + False + Microsoft Visual Studio 2010-Tools für Office-Laufzeit %28x86 und x64%29 + true + + + False + Windows Installer 4.5 + true + + + + + Outlook + + + On + + + + $(DefineConstants) + true + true + full + true + false + bin\Debug\ + VERAGAddIn.xml + false + false + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + + + + false + true + pdbonly + true + bin\Release\ + VERAGAddIn.xml + false + false + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + + + + + + + + + + + + + + + + + + + + + + True + + + + + False + true + + + False + true + + + False + + + + + + + + + + + + + + + + + + Ribbon1.vb + + + Component + + + Code + + + Ribbon1.vb + + + + ThisAddIn.vb + + + ThisAddIn.Designer.xml + + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + True + True + Resources.resx + + + SettingsSingleFileGenerator + Settings.Designer.vb + + + True + Settings.settings + True + + + + + + + {AC2DE821-36A2-11CF-8053-00AA006009FA} + 2 + 0 + 0 + tlbimp + False + True + + + {00020430-0000-0000-C000-000000000046} + 2 + 0 + 0 + primary + False + True + + + {00020430-0000-0000-C000-000000000046} + 2 + 0 + 0 + primary + False + True + + + {0002E157-0000-0000-C000-000000000046} + 5 + 3 + 0 + primary + False + True + + + + + {7bdd8c2f-2c9e-49f1-a365-3b1da1c84991} + Aviso + + + {110c923b-cb02-4fd0-af24-95e0f0eeeff5} + Gemeinsames + + + {a3b497bd-842c-4a2b-b398-ed1976849df1} + VERAG_PROG_ALLGEMEIN + + + + + + + + + + 10.0 + $(MSBuildExtensionsPath32)\Microsoft\VisualStudio\v$(VisualStudioVersion) + + + On + + + Binary + + + Off + + + true + + + + + + + D08413FBDF065D4AB51DA9E7705AC1B0DA0041F2 + + + false + + + false + + + + + + + + + + + + + + + + + \ No newline at end of file diff --git a/VERAGAddIn/app.config b/VERAGAddIn/app.config new file mode 100644 index 0000000..a029089 --- /dev/null +++ b/VERAGAddIn/app.config @@ -0,0 +1,15 @@ + + + + + + + + + + + + + + + \ No newline at end of file