GUI-Änderung Gesamtsicherheiten, Essensbestellungen

Aviso/frmEssensbestellungen.vb

@@ -1,5 +1,4 @@
 
-Imports Therefore.API
 Imports VERAG_PROG_ALLGEMEIN
 
 Public Class frmEssensbestellungen
@@ -7,6 +6,7 @@ Public Class frmEssensbestellungen
     Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
     Dim essen As New cEssensbestellung()
     Dim dt As New DataTable
+    Dim ttMontag, ttDienstag, ttMittwoch, ttDonnerstag, ttFreitag As New ToolTip()
 
 
 
@@ -112,6 +112,12 @@ Public Class frmEssensbestellungen
             lblBestellungBis.Text = ""
             loadDGVBestellungen()
             btnSave.Enabled = False
+            For Each comp As System.ComponentModel.Component In Me.components.Components
+                If TypeOf comp Is ToolTip Then
+                    Dim tip = DirectCast(comp, ToolTip)
+                    tip.RemoveAll()
+                End If
+            Next
             Exit Sub
         End If
 
@@ -313,8 +319,7 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenMo") IsNot Nothing Then
             pbMontag.Visible = True
-            Dim ttMontag As New ToolTip()
-            ttMontag.RemoveAll()
+
             ttMontag.SetToolTip(pbMontag, dt.Rows(0).Item("MenuEssenMo").ToString)
         Else
             pbMontag.Visible = False
@@ -323,7 +328,7 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenDi") IsNot Nothing Then
             pbDienstag.Visible = True
-            Dim ttDienstag As New ToolTip()
+
             ttDienstag.SetToolTip(pbDienstag, dt.Rows(0).Item("MenuEssenDi").ToString)
         Else
             pbDienstag.Visible = False
@@ -332,7 +337,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenMi") IsNot Nothing Then
             pbMittwoch.Visible = True
-            Dim ttMittwoch As New ToolTip()
             ttMittwoch.SetToolTip(pbMittwoch, dt.Rows(0).Item("MenuEssenMi").ToString)
         Else
             pbMittwoch.Visible = False
@@ -340,7 +344,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenDo") IsNot Nothing Then
             pbDonnerstag.Visible = True
-            Dim ttDonnerstag As New ToolTip()
             ttDonnerstag.SetToolTip(pbDonnerstag, dt.Rows(0).Item("MenuEssenDo").ToString)
         Else
             pbDonnerstag.Visible = False
@@ -348,7 +351,6 @@ Public Class frmEssensbestellungen
 
         If dt.Rows(0).Item("MenuEssenFr") IsNot Nothing Then
             pbFreitag.Visible = True
-            Dim ttFreitag As New ToolTip()
             ttFreitag.SetToolTip(pbFreitag, dt.Rows(0).Item("MenuEssenFr").ToString)
         Else
             pbFreitag.Visible = False