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

MS

Browse Source
This commit is contained in:
SchreiberM 2022-06-14 15:47:14 +02:00
parent 80d19d496f
commit ff80b48521
3 changed files with 12 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
app/DD_PM_WINDREAM/My Project/Application.Designer.vb generated
View File

@ -27,7 +27,7 @@ Namespace My
Me.IsSingleInstance = false Me.IsSingleInstance = false
Me.EnableVisualStyles = true Me.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _ <Global.System.Diagnostics.DebuggerStepThroughAttribute()> _

2
app/DD_PM_WINDREAM/My Project/Application.myapp
View File

@ -3,7 +3,7 @@
<MySubMain>true</MySubMain> <MySubMain>true</MySubMain>
<MainForm>frmMain</MainForm> <MainForm>frmMain</MainForm>
<SingleInstance>false</SingleInstance> <SingleInstance>false</SingleInstance>
<ShutdownMode>1</ShutdownMode> <ShutdownMode>0</ShutdownMode>
<EnableVisualStyles>true</EnableVisualStyles> <EnableVisualStyles>true</EnableVisualStyles>
<AuthenticationMode>0</AuthenticationMode> <AuthenticationMode>0</AuthenticationMode>
<SaveMySettingsOnExit>true</SaveMySettingsOnExit> <SaveMySettingsOnExit>true</SaveMySettingsOnExit>

15
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -2614,8 +2614,7 @@ Public Class frmMain
GridViewWFItems.ViewCaption = "Overview" GridViewWFItems.ViewCaption = "Overview"
End If End If
GridViewWFItems.ViewCaption += $"|{objectCount_Descr}" GridViewWFItems.ViewCaption += $"|{objectCount_Descr}"
' tslblObjectCount.Text = objectCount_Descr
'tslblObjectCount.ForeColor = Color.DarkOrange
SaveGridLayout() SaveGridLayout()
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex.Message) LOGGER.Error(ex.Message)
@ -2623,7 +2622,7 @@ Public Class frmMain
End Sub End Sub
Sub Grid_Export() Sub Grid_Export()
XtraSaveFileDialog1.FileName = "OverviewProcessManager.xlsx" XtraSaveFileDialog1.FileName = "Overview.xlsx"
XtraSaveFileDialog1.DefaultExt = ".xlsx" XtraSaveFileDialog1.DefaultExt = ".xlsx"
If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then If XtraSaveFileDialog1.ShowDialog() = Windows.Forms.DialogResult.OK Then
@ -2707,7 +2706,6 @@ Public Class frmMain
Private Sub bbtniCW_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniCW.ItemClick Private Sub bbtniCW_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles bbtniCW.ItemClick
Try Try
If File.Exists(bbtniCW.Tag) Then If File.Exists(bbtniCW.Tag) Then
Dim MyProcess As New Process() Dim MyProcess As New Process()
MyProcess.StartInfo.FileName = bbtniCW.Tag MyProcess.StartInfo.FileName = bbtniCW.Tag
@ -2725,7 +2723,7 @@ Public Class frmMain
Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged Private Sub GridView_Docs_ColumnPositionChanged(sender As Object, e As EventArgs) Handles GridViewWFItems.ColumnPositionChanged
GridLayout_Changed() GridLayout_Changed()
End Sub End Sub
Sub GridLayout_Changed() Private Sub GridLayout_Changed()
If FormShown = False Then If FormShown = False Then
Exit Sub Exit Sub
End If End If
@ -2951,7 +2949,14 @@ Public Class frmMain
Catch ex As Exception Catch ex As Exception
LOGGER.Error(ex) LOGGER.Error(ex)
End Try End Try
End Sub
Private Sub frmMain_FormClosed(sender As Object, e As FormClosedEventArgs) Handles Me.FormClosed
Try
'System.Diagnostics.Process.GetCurrentProcess().Kill()
Catch ex As Exception
End Try
End Sub End Sub
End Class End Class