AppStd/ClipboardWatcher
AppStd/ClipboardWatcher
8
1
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add error handling via baseribbonform

Browse Source
This commit is contained in:
Jonathan Jenne 2019-10-24 16:36:36 +02:00
parent 0824593591
commit c93008c3ed
2 changed files with 11 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_Clipboard_Searcher/frmAdministration.Designer.vb generated
View File

@ -1,6 +1,6 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> <Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class frmAdministration Partial Class frmAdministration
Inherits DevExpress.XtraBars.Ribbon.RibbonForm Inherits DigitalData.GUIs.Common.Base.BaseRibbonForm
'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> <System.Diagnostics.DebuggerNonUserCode()>

14
app/DD_Clipboard_Searcher/frmAdministration.vb
View File

@ -1,4 +1,4 @@
Imports DD_LIB_Standards Imports DigitalData.Modules.Database
Public Class frmAdministration Public Class frmAdministration
Private SelectedProcessName As String Private SelectedProcessName As String
@ -15,6 +15,12 @@ Public Class frmAdministration
End Function End Function
End Class End Class
Public Sub New()
MyBase.New(LogConfig)
' Dieser Aufruf ist für den Designer erforderlich.
InitializeComponent()
End Sub
Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
' Select first tab to prevent profile textbox from being empty ' Select first tab to prevent profile textbox from being empty
XtraTabControl3.SelectedTabPageIndex = 0 XtraTabControl3.SelectedTabPageIndex = 0
@ -82,6 +88,7 @@ Public Class frmAdministration
Sub Save_Profile() Sub Save_Profile()
Try Try
Throw New Exception("LOL")
Me.TBCW_PROFILESBindingSource.EndEdit() Me.TBCW_PROFILESBindingSource.EndEdit()
If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
Me.CHANGEDWHOTextBox.Text = Environment.UserName Me.CHANGEDWHOTextBox.Text = Environment.UserName
@ -92,7 +99,8 @@ Public Class frmAdministration
Status_Changed("Keine Änderung") Status_Changed("Keine Änderung")
End If End If
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) ShowErrorMessage(ex)
'MsgBox("Unerwarteter Fehler beim Speichern des Profils: " & vbNewLine & ex.Message, MsgBoxStyle.Critical, Text)
End Try End Try
End Sub End Sub
@ -626,8 +634,6 @@ Public Class frmAdministration
TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text) TBCW_PROF_DATA_SEARCHTableAdapter.Fill(MyDataset.TBCW_PROF_DATA_SEARCH, PROFILE_IDTextBox.Text)
Status_Changed("Daten-Suche gespeichert") Status_Changed("Daten-Suche gespeichert")
End If End If
Catch ex As NoNullAllowedException
MsgBox("Ein oder mehrere Felder wurden nicht ausgefüllt:" & vbNewLine & ex.Message, MsgBoxStyle.Exclamation, Text)
Catch ex As Exception Catch ex As Exception
MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical) MsgBox("Unexpected Error while saving Data Search: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try End Try