Update 20240102

DPM2016/Utils/ToastMessage.vb

@@ -0,0 +1,21 @@
+Imports kp.Toaster
+
+Public Class ToastMessage
+
+
+    Public Sub ShowToastMessage(o As Object, title As String, message As String, type As ToastType, duration As ToastDuration)
+        If My.Settings.ShowToast = True Then
+            Toast.show(o, title, message, type, duration)
+        End If
+    End Sub
+
+    Public Sub ShowSaveMesasge(o As Object)
+
+        If My.Settings.ShowToast = "True" Then
+            Toast.show(o, "Speichern", "Daten erfolgreich gespeichert", ToastType.INFO, ToastDuration.SHORT)
+        End If
+    End Sub
+
+
+
+End Class