MS Notification

This commit is contained in:
2022-12-01 13:26:07 +01:00
parent 456a729f46
commit de08c50da6
6 changed files with 258 additions and 270 deletions

View File

@@ -101,7 +101,7 @@ Public Class frmNotification_Startup
Next
End If
If oType = "MESSAGE" Then
If oType.ToUpper = "MESSAGE" Then
RichEditControl1.Text = oMSG_STRING
RichEditControl1.Visible = True
RichEditControl1.Dock = Windows.Forms.DockStyle.Fill
@@ -159,13 +159,16 @@ Public Class frmNotification_Startup
If oSuccess = False Then
lbStatus.Caption = "Error while setting History!"
lbStatus.ItemAppearance.Normal.BackColor = Color.Red
lbStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
Else
lbStatus.Caption = "History successfully saved!"
lbStatus.ItemAppearance.Normal.BackColor = Color.Green
lbStatus.Visibility = DevExpress.XtraBars.BarItemVisibility.Always
If _NotificationsTable.Rows.Count = 1 Then
Me.Close()
End If
End If
Catch ex As Exception
Dim oMsgBox As New frmDialog(ex.Message, "Unexpected Error HistoryInsert:", frmDialog.DialogType.Error)
oMsgBox.ShowDialog()