28 lines
1.2 KiB
VB.net
28 lines
1.2 KiB
VB.net
Imports DigitalData.Modules.Config
|
|
|
|
Public Class frmConfig
|
|
Public Property ConfigManager As ConfigManager(Of MultiTool.Shared.Config)
|
|
|
|
Private ReadOnly Property Config As MultiTool.Shared.Config
|
|
Get
|
|
Return ConfigManager?.Config
|
|
End Get
|
|
End Property
|
|
|
|
Private Sub frmConfig_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
txtBaseURL.EditValue = Config.Webservice.BaseUrl
|
|
txtUsername.EditValue = Config.Webservice.Username
|
|
txtPassword.EditValue = Config.Webservice.Password
|
|
txtImportBasePath.EditValue = Config.Webservice.ImportBasePath
|
|
txtImportRelativePath.EditValue = Config.Webservice.ImportRelativePath
|
|
End Sub
|
|
|
|
Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
|
|
Config.Webservice.BaseUrl = txtBaseURL.EditValue
|
|
Config.Webservice.Username = txtUsername.EditValue
|
|
Config.Webservice.Password = txtPassword.EditValue
|
|
Config.Webservice.ImportBasePath = txtImportBasePath.EditValue
|
|
Config.Webservice.ImportRelativePath = txtImportRelativePath.EditValue
|
|
ConfigManager.Save()
|
|
End Sub
|
|
End Class |