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.EnableVisualStyles = true
Me.SaveMySettingsOnExit = true
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterAllFormsClose
Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses
End Sub
<Global.System.Diagnostics.DebuggerStepThroughAttribute()> _

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

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

15
app/DD_PM_WINDREAM/frmMain.vb
View File

@ -2614,8 +2614,7 @@ Public Class frmMain
GridViewWFItems.ViewCaption = "Overview"
End If
GridViewWFItems.ViewCaption += $"|{objectCount_Descr}"
' tslblObjectCount.Text = objectCount_Descr
'tslblObjectCount.ForeColor = Color.DarkOrange
SaveGridLayout()
Catch ex As Exception
LOGGER.Error(ex.Message)
@ -2623,7 +2622,7 @@ Public Class frmMain
End Sub
Sub Grid_Export()
XtraSaveFileDialog1.FileName = "OverviewProcessManager.xlsx"
XtraSaveFileDialog1.FileName = "Overview.xlsx"
XtraSaveFileDialog1.DefaultExt = ".xlsx"
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
Try
If File.Exists(bbtniCW.Tag) Then
Dim MyProcess As New Process()
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
GridLayout_Changed()
End Sub
Sub GridLayout_Changed()
Private Sub GridLayout_Changed()
If FormShown = False Then
Exit Sub
End If
@ -2951,7 +2949,14 @@ Public Class frmMain
Catch ex As Exception
LOGGER.Error(ex)
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 Class