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

Load Dynamic Form for frmEdit, Save Application Skin, add UIConfig

Browse Source
This commit is contained in:
Jonathan Jenne
2019-02-21 16:53:27 +01:00
parent 08e3ca9dd3
commit 72788c84bd
18 changed files with 366 additions and 94 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
EDMI_ClientSuite/frmConfigService.vb
View File

@@ -4,9 +4,9 @@
Private Sub frmServiceConfig_Load(sender As Object, e As EventArgs) Handles Me.Load
_Service = New ClassService(My.LogConfig)
If My.ConfigManager.Config.ServiceConnection <> String.Empty Then
txtIPAddress.Text = My.ConfigManager.Config.ServiceIP
txtPort.Text = My.ConfigManager.Config.ServicePort
If My.SystemConfigManager.Config.ServiceConnection <> String.Empty Then
txtIPAddress.Text = My.SystemConfigManager.Config.ServiceIP
txtPort.Text = My.SystemConfigManager.Config.ServicePort
End If
txtIPAddress.Focus()
@@ -18,14 +18,14 @@
Dim oEndpointURL = $"net.tcp://{oIPAddress}:{oPort}/DigitalData/Services/Main"
Dim oResult As ClassService.ConnectionTestResult
My.Config.ServiceIP = oIPAddress
My.Config.ServicePort = Integer.Parse(oPort)
My.SysConfig.ServiceIP = oIPAddress
My.SysConfig.ServicePort = Integer.Parse(oPort)
lblStatus.Text = "Verbindung wird hergestellt..."
oResult = Await _Service.TestConnectionAsync()
If oResult = ClassService.ConnectionTestResult.Successful Then
My.ConfigManager.Save()
My.SystemConfigManager.Save()
lblStatus.Text = "Verbindung hergestellt."
Else
Select Case oResult