shu/DPM2016
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Update Test Git-Server

Browse Source
This commit is contained in:
Stefan Hutter
2021-12-18 10:28:43 +01:00
parent 3ef1971def
commit 7e79695c18
2 changed files with 5 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

BIN
.vs/DPM2016/v16/.suo
View File

Binary file not shown.

9
DPM2016/frmMain.vb
View File

@@ -54,6 +54,7 @@ Public Class frmMain
Next Next
End Sub End Sub
Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString
Dim args As String() = Environment.GetCommandLineArgs() Dim args As String() = Environment.GetCommandLineArgs()
Try Try
@@ -121,11 +122,11 @@ Public Class frmMain
If f.DialogResult = DialogResult.Abort Then If f.DialogResult = DialogResult.Abort Then
Application.Exit() Application.Exit()
Me.Close() Me.Close()
Exit Sub Exit Sub
End If
PatientToolStripMenuItem_Click(sender, e)
End If End If
Else PatientToolStripMenuItem_Click(sender, e)
End If
Else
MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", vbExclamation) MsgBox("Die Datenbank konnte nicht gefunden werden. Die Anwendung wird geschlossen.", vbExclamation)
Application.Exit() Application.Exit()
End End