Designs über start.ini

Gastro/cListe.vb

@@ -11,6 +11,8 @@
 
     Public Shared Debug As Boolean = False
 
+    Public Shared Hintergrund As New List(Of String())
+
     Public Shared Function selectDBConnection(connection As String)
 
         Select Case connection

Gastro/frmMain.vb

@@ -29,6 +29,8 @@
         Dim lines = IO.File.ReadAllLines(sAppPath & "\start.ini")
         Dim colCount = lines.First.Split(";"c).Length
 
+        Dim HintergrundBild(4) As String
+
         For Each line In lines
             Dim objFields = From field In line.Split(";"c)
 
@@ -37,6 +39,10 @@
                     cListe.selectDBConnection(objFields(1).ToString)
                 Case "PDFUploadPath"
                     cListe.PDFUploadPath = objFields(1).ToString
+
+                Case "Design"
+                    HintergrundBild = {objFields(1).ToString, objFields(2).ToString, objFields(3).ToString, objFields(4).ToString}
+                    cListe.Hintergrund.Add(HintergrundBild)
             End Select
 
         Next

Gastro/frmMenu.vb

@@ -10,11 +10,21 @@ Public Class frmMenu
     Private Sub frmMenu_Load(sender As Object, e As EventArgs) Handles Me.Load
         '    If menu IsNot Nothing Then FillBoxes()
         panDebug.Visible = cListe.Debug
+        FillDesigns()
         FillBoxes()
         Dim usrcntrl As New usrcntlSpeisen : usrcntrl.Dock = DockStyle.Fill : PanSpeise.Controls.Add(usrcntrl)
 
     End Sub
 
+    Function FillDesigns()
+        coboMenuArt.Items.Clear()
+        coboMenuArt.Items.Add("Standard")
+        For Each meh As String() In cListe.Hintergrund
+            'MsgBox(meh(0))
+            coboMenuArt.Items.Add(meh(0))
+        Next
+    End Function
+
     Function FillBoxes(Optional ByVal FillDate As Boolean = True)
         txtMenuTitel.Text = menu.MenuTitel
         If FillDate = False Then txtMenuTitel.Text &= cTools.DateToWeek(dtpbis.Value)

Gastro/rptMittagsMenue.vb

@@ -9,40 +9,55 @@ Public Class rptMittagsMenue
     Private Sub rptMittagsMenue_ReportStart(sender As Object, e As EventArgs) Handles Me.ReportStart
         DataSource = dt
 
+        Try
             Select Case SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value)
                 Case ""
 
-            Case "Frühling"
+                Case Else
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackFrühling.jpg")
+                    For Each meh As String() In cListe.Hintergrund
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                        If meh(0) = SQLTools.DBNull2emptyString(Fields.Item("MenuArt").Value) Then
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+                            Me.Watermark = Image.FromFile(Application.StartupPath & meh(1))     ' rel. Pfad zur Bilddatei
+                            Picture1.Image = Image.FromFile(Application.StartupPath & meh(2))   ' Banner oben
+                            Picture2.Image = Image.FromFile(Application.StartupPath & meh(3))   ' Banner unten
+                        End If
 
-            Case "Sommer"
+                    Next
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackSommer.jpg")
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
 
-            Case "Herbst"
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackHerbst.jpg")
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
 
-            Case "Winter"
+                    'Case "Frühling"
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWinter.jpg")
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackFrühling.jpg")
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
 
-            Case "Ostern"
+                    'Case "Sommer"
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackOstern.jpg")
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackSommer.jpg")
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
 
-            Case "Weihnachten"
+                    'Case "Herbst"
-                Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWeihnachten.jpg")
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackHerbst.jpg")
-                Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
-                Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+
+                    'Case "Winter"
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWinter.jpg")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+
+                    'Case "Ostern"
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackOstern.jpg")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
+
+                    'Case "Weihnachten"
+                    '    Me.Watermark = Image.FromFile(Application.StartupPath & "\Images\BackWeihnachten.jpg")
+                    '    Picture1.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_TOP_Speisekarte2.png")
+                    '    Picture2.Image = Image.FromFile(Application.StartupPath & "\Images\Banner_BOTTOM_Speisekarte.png")
 
             End Select
+        Catch ex As Exception
+            MsgBox("Eingestellter Hintergrund konnte im Dateisystem nicht gefunden werden.")
+        End Try
     End Sub