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

TryCatch NavigationPane

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2019-02-21 21:52:27 +01:00
parent 72788c84bd
commit 39ae902929
9 changed files with 126 additions and 117 deletions
Download Patch File Download Diff File Expand all files Collapse all files

43
EDMI_ClientSuite/frmConfigService.vb
View File

@@ -13,28 +13,33 @@
End Sub
Private Async Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
Dim oIPAddress = txtIPAddress.Text
Dim oPort = txtPort.Text
Dim oEndpointURL = $"net.tcp://{oIPAddress}:{oPort}/DigitalData/Services/Main"
Dim oResult As ClassService.ConnectionTestResult
Try
Dim oIPAddress = txtIPAddress.Text
Dim oPort = txtPort.Text
Dim oEndpointURL = $"net.tcp://{oIPAddress}:{oPort}/DigitalData/Services/Main"
Dim oResult As ClassService.ConnectionTestResult
My.SysConfig.ServiceIP = oIPAddress
My.SysConfig.ServicePort = Integer.Parse(oPort)
My.SysConfig.ServiceIP = oIPAddress
My.SysConfig.ServicePort = Integer.Parse(oPort)
lblStatus.Text = "Verbindung wird hergestellt..."
oResult = Await _Service.TestConnectionAsync()
lblStatus.Text = "Verbindung wird hergestellt..."
oResult = Await _Service.TestConnectionAsync()
If oResult = ClassService.ConnectionTestResult.Successful Then
My.SystemConfigManager.Save()
lblStatus.Text = "Verbindung hergestellt."
Else
Select Case oResult
Case ClassService.ConnectionTestResult.NotFound
lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
Case Else
lblStatus.Text = "Unbekannter Fehler."
End Select
End If
Catch ex As Exception
MsgBox(ex.Message, MsgBoxStyle.Critical)
End Try
If oResult = ClassService.ConnectionTestResult.Successful Then
My.SystemConfigManager.Save()
lblStatus.Text = "Verbindung hergestellt."
Else
Select Case oResult
Case ClassService.ConnectionTestResult.NotFound
lblStatus.Text = "Dienst konnte nicht gefunden werden. Bitte überprüfen sie Addresse und Port."
Case Else
lblStatus.Text = "Unbekannter Fehler."
End Select
End If
End Sub
Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click