diff --git a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb index f3f70c8..2f7e84f 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.Designer.vb +++ b/app/DD_PM_WINDREAM/frmKonfig.Designer.vb @@ -1,9 +1,9 @@ - _ + Partial Class frmKonfig Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. - _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then @@ -20,7 +20,7 @@ Partial Class frmKonfig 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. - _ + Private Sub InitializeComponent() Me.components = New System.ComponentModel.Container() Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmKonfig)) @@ -60,6 +60,7 @@ Partial Class frmKonfig Me.txtActualConnection = New System.Windows.Forms.TextBox() Me.txtServer = New System.Windows.Forms.TextBox() Me.TabPage3 = New System.Windows.Forms.TabPage() + Me.Button4 = New System.Windows.Forms.Button() Me.Label7 = New System.Windows.Forms.Label() Me.txtIntervall = New System.Windows.Forms.TextBox() Me.Label6 = New System.Windows.Forms.Label() @@ -70,16 +71,26 @@ Partial Class frmKonfig Me.Button2 = New System.Windows.Forms.Button() Me.Button1 = New System.Windows.Forms.Button() Me.btnLogMail = New System.Windows.Forms.Button() + Me.TabPage4 = New System.Windows.Forms.TabPage() + Me.GridControlLogs = New DevExpress.XtraGrid.GridControl() + Me.ContextMenuInternalLog = New System.Windows.Forms.ContextMenuStrip(Me.components) + Me.LogNachrichtenLeerenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.SpeichereLogAlsToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() + Me.gvLogs = New DevExpress.XtraGrid.Views.Grid.GridView() Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet() Me.TBPM_KONFIGURATIONBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.TBPM_KONFIGURATIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBPM_KONFIGURATIONTableAdapter() Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager() - Me.Button4 = New System.Windows.Forms.Button() + Me.SaveFileDialog1 = New System.Windows.Forms.SaveFileDialog() Me.TabControl1.SuspendLayout() Me.TabPage1.SuspendLayout() Me.GroupBox1.SuspendLayout() Me.TabPage2.SuspendLayout() Me.TabPage3.SuspendLayout() + Me.TabPage4.SuspendLayout() + CType(Me.GridControlLogs, System.ComponentModel.ISupportInitialize).BeginInit() + Me.ContextMenuInternalLog.SuspendLayout() + CType(Me.gvLogs, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() @@ -129,6 +140,7 @@ Partial Class frmKonfig Me.TabControl1.Controls.Add(Me.TabPage1) Me.TabControl1.Controls.Add(Me.TabPage2) Me.TabControl1.Controls.Add(Me.TabPage3) + Me.TabControl1.Controls.Add(Me.TabPage4) resources.ApplyResources(Me.TabControl1, "TabControl1") Me.TabControl1.Name = "TabControl1" Me.TabControl1.SelectedIndex = 0 @@ -343,6 +355,12 @@ Partial Class frmKonfig Me.TabPage3.Name = "TabPage3" Me.TabPage3.UseVisualStyleBackColor = True ' + 'Button4 + ' + resources.ApplyResources(Me.Button4, "Button4") + Me.Button4.Name = "Button4" + Me.Button4.UseVisualStyleBackColor = True + ' 'Label7 ' resources.ApplyResources(Me.Label7, "Label7") @@ -403,6 +421,47 @@ Partial Class frmKonfig Me.btnLogMail.Name = "btnLogMail" Me.btnLogMail.UseVisualStyleBackColor = True ' + 'TabPage4 + ' + Me.TabPage4.Controls.Add(Me.GridControlLogs) + resources.ApplyResources(Me.TabPage4, "TabPage4") + Me.TabPage4.Name = "TabPage4" + Me.TabPage4.UseVisualStyleBackColor = True + ' + 'GridControlLogs + ' + Me.GridControlLogs.ContextMenuStrip = Me.ContextMenuInternalLog + resources.ApplyResources(Me.GridControlLogs, "GridControlLogs") + Me.GridControlLogs.MainView = Me.gvLogs + Me.GridControlLogs.Name = "GridControlLogs" + Me.GridControlLogs.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.gvLogs}) + ' + 'ContextMenuInternalLog + ' + Me.ContextMenuInternalLog.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LogNachrichtenLeerenToolStripMenuItem, Me.SpeichereLogAlsToolStripMenuItem}) + Me.ContextMenuInternalLog.Name = "ContextMenuInternalLog" + resources.ApplyResources(Me.ContextMenuInternalLog, "ContextMenuInternalLog") + ' + 'LogNachrichtenLeerenToolStripMenuItem + ' + Me.LogNachrichtenLeerenToolStripMenuItem.Name = "LogNachrichtenLeerenToolStripMenuItem" + resources.ApplyResources(Me.LogNachrichtenLeerenToolStripMenuItem, "LogNachrichtenLeerenToolStripMenuItem") + ' + 'SpeichereLogAlsToolStripMenuItem + ' + Me.SpeichereLogAlsToolStripMenuItem.Name = "SpeichereLogAlsToolStripMenuItem" + resources.ApplyResources(Me.SpeichereLogAlsToolStripMenuItem, "SpeichereLogAlsToolStripMenuItem") + ' + 'gvLogs + ' + Me.gvLogs.Appearance.OddRow.BackColor = CType(resources.GetObject("GridView1.Appearance.OddRow.BackColor"), System.Drawing.Color) + Me.gvLogs.Appearance.OddRow.Options.UseBackColor = True + Me.gvLogs.GridControl = Me.GridControlLogs + Me.gvLogs.Name = "gvLogs" + Me.gvLogs.OptionsView.EnableAppearanceOddRow = True + Me.gvLogs.OptionsView.ShowAutoFilterRow = True + Me.gvLogs.OptionsView.ShowGroupPanel = False + ' 'DD_DMSLiteDataSet ' Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet" @@ -433,12 +492,6 @@ Partial Class frmKonfig Me.TableAdapterManager.TBPM_TYPETableAdapter = Nothing Me.TableAdapterManager.UpdateOrder = DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager.UpdateOrderOption.InsertUpdateDelete ' - 'Button4 - ' - resources.ApplyResources(Me.Button4, "Button4") - Me.Button4.Name = "Button4" - Me.Button4.UseVisualStyleBackColor = True - ' 'frmKonfig ' resources.ApplyResources(Me, "$this") @@ -455,6 +508,10 @@ Partial Class frmKonfig Me.TabPage2.PerformLayout() Me.TabPage3.ResumeLayout(False) Me.TabPage3.PerformLayout() + Me.TabPage4.ResumeLayout(False) + CType(Me.GridControlLogs, System.ComponentModel.ISupportInitialize).EndInit() + Me.ContextMenuInternalLog.ResumeLayout(False) + CType(Me.gvLogs, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.TBPM_KONFIGURATIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) @@ -511,4 +568,11 @@ Partial Class frmKonfig Friend WithEvents RadioAlternativeConnection As RadioButton Friend WithEvents RadioDefaultConnection As RadioButton Friend WithEvents Button4 As Button + Friend WithEvents TabPage4 As TabPage + Friend WithEvents GridControlLogs As DevExpress.XtraGrid.GridControl + Friend WithEvents gvLogs As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents ContextMenuInternalLog As ContextMenuStrip + Friend WithEvents LogNachrichtenLeerenToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SpeichereLogAlsToolStripMenuItem As ToolStripMenuItem + Friend WithEvents SaveFileDialog1 As SaveFileDialog End Class diff --git a/app/DD_PM_WINDREAM/frmKonfig.resx b/app/DD_PM_WINDREAM/frmKonfig.resx index d8680f5..f6cbea7 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.resx +++ b/app/DD_PM_WINDREAM/frmKonfig.resx @@ -278,6 +278,640 @@ 5 + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + + + txtUniversalViewer + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 2 + + + Verdana, 9.75pt + + + 4, 26 + + + + 3, 3, 3, 3 + + + 832, 318 + + + 0 + + + Darstellung Dateien: + + + TabPage1 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 0 + + + RadioAlternativeConnection + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 0 + + + RadioDefaultConnection + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 1 + + + chkbxUserAut + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 2 + + + Label5 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 3 + + + cmbDatenbank + + + System.Windows.Forms.ComboBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 4 + + + Label4 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 5 + + + Label1 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 6 + + + Label2 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 7 + + + Label3 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 8 + + + txtUser + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 9 + + + txtPasswort + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 10 + + + BtnConnect + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 11 + + + txtActualConnection + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 12 + + + txtServer + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage2 + + + 13 + + + 4, 26 + + + 3, 3, 3, 3 + + + 832, 318 + + + 1 + + + Datenbankverbindung: + + + TabPage2 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 1 + + + Button4 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 0 + + + Label7 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 1 + + + txtIntervall + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 2 + + + Label6 + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 3 + + + btnopenlog + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 4 + + + chkLogErrorsOnly + + + System.Windows.Forms.CheckBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 5 + + + Button3 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 6 + + + LinkLabel1 + + + System.Windows.Forms.LinkLabel, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 7 + + + Button2 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 8 + + + Button1 + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 9 + + + btnLogMail + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage3 + + + 10 + + + 4, 26 + + + 3, 3, 3, 3 + + + 832, 318 + + + 2 + + + Weiteres + + + TabPage3 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 2 + + + 1014, 17 + + + 198, 48 + + + ContextMenuInternalLog + + + System.Windows.Forms.ContextMenuStrip, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + Fill + + + Consolas, 11.25pt + + + 3, 3 + + + LightCyan + + + 826, 312 + + + 0 + + + GridControlLogs + + + DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + + + TabPage4 + + + 0 + + + 4, 26 + + + 3, 3, 3, 3 + + + 832, 318 + + + 3 + + + Log + + + TabPage4 + + + System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabControl1 + + + 3 + + + Fill + + + 0, 0 + + + 840, 348 + + + 21 + + + TabControl1 + + + System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + $this + + + 1 + + + rbPDF_internal + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 0 + + + rbSystem + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 1 + + + btnno_pdf_viewer + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 2 + + + rbSumatra + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 3 + + + rbPDFX_Change + + + System.Windows.Forms.RadioButton, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 4 + + + btnSumatra + + + System.Windows.Forms.Button, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 6 + + + txtpdfxchange + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 7 + + + txtSumatra + + + System.Windows.Forms.TextBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 8 + + + lblSumatra + + + System.Windows.Forms.Label, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + GroupBox1 + + + 10 + + + 10, 77 + + + 659, 234 + + + 25 + + + PDF-Viewer (optional) + + + GroupBox1 + + + System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + TabPage1 + + + 0 + True @@ -515,30 +1149,6 @@ 10 - - 10, 77 - - - 659, 234 - - - 25 - - - PDF-Viewer (optional) - - - GroupBox1 - - - System.Windows.Forms.GroupBox, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabPage1 - - - 0 - 10, 22 @@ -560,37 +1170,6 @@ 2 - - Verdana, 9.75pt - - - 4, 26 - - - - 3, 3, 3, 3 - - - 832, 318 - - - 0 - - - Darstellung Dateien: - - - TabPage1 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 0 - True @@ -948,33 +1527,6 @@ 13 - - 4, 26 - - - 3, 3, 3, 3 - - - 832, 318 - - - 1 - - - Datenbankverbindung: - - - TabPage2 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 1 - NoControl @@ -1263,56 +1815,17 @@ 10 - - 4, 26 + + 197, 22 - - 3, 3, 3, 3 + + Log Nachrichten leeren - - 832, 318 + + 197, 22 - - 2 - - - Weiteres - - - TabPage3 - - - System.Windows.Forms.TabPage, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - TabControl1 - - - 2 - - - Fill - - - 0, 0 - - - 840, 348 - - - 21 - - - TabControl1 - - - System.Windows.Forms.TabControl, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 - - - $this - - - 0 + + Speichere Log als... 159, 17 @@ -1326,6 +1839,9 @@ 841, 17 + + 1201, 17 + True @@ -1353,6 +1869,24 @@ System.Windows.Forms.OpenFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + LogNachrichtenLeerenToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + SpeichereLogAlsToolStripMenuItem + + + System.Windows.Forms.ToolStripMenuItem, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + gvLogs + + + DevExpress.XtraGrid.Views.Grid.GridView, DevExpress.XtraGrid.v18.1, Version=18.1.5.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a + DD_DMSLiteDataSet @@ -1377,6 +1911,12 @@ DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager, DD_DMSLiteDataSet.Designer.vb.dll, Version=0.0.0.0, Culture=neutral, PublicKeyToken=null + + SaveFileDialog1 + + + System.Windows.Forms.SaveFileDialog, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + frmKonfig diff --git a/app/DD_PM_WINDREAM/frmKonfig.vb b/app/DD_PM_WINDREAM/frmKonfig.vb index d85432e..505f70e 100644 --- a/app/DD_PM_WINDREAM/frmKonfig.vb +++ b/app/DD_PM_WINDREAM/frmKonfig.vb @@ -19,6 +19,10 @@ Public Class frmKonfig End Sub Private Sub frmKonfig_Load(sender As Object, e As System.EventArgs) Handles Me.Load Try + ' Initialize Log Grid + GridControlLogs.DataSource = LOGCONFIG.Logs + GridControlLogs.ForceInitialize() + gvLogs.Columns.First().Caption = "Log Nachricht" If VIEWER_ALL = "uviewer" Then rbuviewer.Checked = True @@ -400,4 +404,20 @@ Public Class frmKonfig MsgBox("The UserConfiguration has been set back to default!", MsgBoxStyle.OkOnly) End Sub + + Private Sub LogNachrichtenLeerenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LogNachrichtenLeerenToolStripMenuItem.Click + LOGCONFIG.ClearLogs() + GridControlLogs.DataSource = LOGCONFIG.Logs + End Sub + + Private Sub SpeichereLogAlsToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SpeichereLogAlsToolStripMenuItem.Click + Try + SaveFileDialog1.Filter = "Excel Datei|*.xls" + If SaveFileDialog1.ShowDialog() = DialogResult.OK Then + GridControlLogs.ExportToXls(SaveFileDialog1.FileName) + End If + Catch ex As Exception + MsgBox("Fehler beim Export: " & ex.Message) + End Try + End Sub End Class \ No newline at end of file