22 lines
550 B
VB.net
22 lines
550 B
VB.net
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
|