jj

EDMI_ClientSuite/frmConfigService.vb

@@ -5,6 +5,8 @@ Public Class frmConfigService
 
     Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
         _Init = New ClassInit()
+
+        txtIPAddress.Focus()
     End Sub
 
     Private Async Sub btnTest_Click(sender As Object, e As EventArgs) Handles btnTest.Click
@@ -17,8 +19,8 @@ Public Class frmConfigService
         oResult = Await _Init.TestConnectionAsync(oEndpointURL)
 
         If oResult = ConnectionTestResult.Successful Then
+            ' Save Endpoint URL
             My.Settings.ICMServiceAddress = oEndpointURL
-            'My.Settings.Save()
             lblStatus.Text = "Verbindung hergestellt."
         Else
             Select Case oResult
@@ -30,8 +32,7 @@ Public Class frmConfigService
         End If
     End Sub
 
-    Private Sub btnDelete_Click(sender As Object, e As EventArgs)
-        My.Settings.ICMServiceAddress = String.Empty
-        My.Settings.Save()
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        DialogResult = DialogResult.OK
     End Sub
 End Class