Imports System.ComponentModel

Public Class FrmAdvancedSettings

#Region "多语种信息"

    ''' <summary>
    ''' 初始化界面控件文本
    ''' </summary>
    Private Sub MultiLanguageInfo()
        Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.NetworkSettings)
        LblPort1.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.LocalPort)
        LblLongIP.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.RemoteIP)
        LbllongPort1.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.RemotePort)
        BtnNetworkConnect.Text = LanguageData.StringList(MultiLanguageDAL.StringEnum.CloseConnection)
    End Sub

#End Region

#Region "初始化"

    ''' <summary>
    ''' 初始化上一次关闭窗体前保存的配置数据
    ''' </summary>
    Private Sub InitLastTimeConfig()
        CboLongIP.Text = My.Settings.RemoteIP
        If NudLocalPort.Value = 0 Then
            NudLocalPort.Value = GetRandomPort()
        End If
        'NudLocalPort.Value = My.Settings.LocalPort
    End Sub


    '''' <summary> Ip次数 </summary>
    'Private _ipCount As Integer = 0


    '''' <summary>
    '''' 初始化网络信息
    '''' </summary>
    'Private Sub InitNetWorkInfo()
    '    _ipCount += 1
    '    FrmCSeriesConfig.CboLocalIPInfo.Items.Clear()
    '    FrmCSeriesConfig.CboLocalIPInfo.Items.AddRange(GetLocalIp().ToArray)

    '    If _ipCount > 1 Then Return
    '    If FrmCSeriesConfig.CboLocalIPInfo.Items.Count > 0 Then FrmCSeriesConfig.CboLocalIPInfo.SelectedIndex = 0
    'End Sub


    ''' <summary>
    ''' 窗体加载事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub FrmAdvancedSettings_Load(sender As Object, e As EventArgs) Handles Me.Load
        InitLastTimeConfig()
        'InitNetWorkInfo()
        MultiLanguageInfo()

    End Sub


    ''' <summary>
    ''' 点击连接
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub BtnNetworkConnect_Click(sender As Object, e As EventArgs) Handles BtnNetworkConnect.Click
        NetworkConnect()
    End Sub


    ''' <summary>
    ''' 网络连接
    ''' </summary>
    Public Sub NetworkConnect()
        _localIP = FrmCSeriesConfig.CboLocalIPInfo.Text
        _localPort = GetRandomPort()
        NudLocalPort.Value = _localPort
        If BtnNetworkConnect.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.OpenConnection)}" Then
            BtnNetworkConnect.ForeColor = Color.Red
            BtnNetworkConnect.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.CloseConnection)}"
            'FrmCSeriesConfig.NetworkConnectChange()
            'FrmCSeriesConfig.CboLocalIPInfo.Enabled = False
            NudLocalPort.Enabled = False
        ElseIf BtnNetworkConnect.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.CloseConnection)}" Then
            BtnNetworkConnect.ForeColor = Color.Green
            BtnNetworkConnect.Text = $"{LanguageData.StringList(MultiLanguageDAL.StringEnum.OpenConnection)}"
            'FrmCSeriesConfig.NetworkConnectChange()
            'FrmCSeriesConfig.CboLocalIPInfo.Enabled = True
            NudLocalPort.Enabled = True
        End If
    End Sub


    ''' <summary>
    ''' 窗体关闭事件
    ''' </summary>
    ''' <param name="sender"></param>
    ''' <param name="e"></param>
    Private Sub FrmAdvancedSettings_Closing(sender As Object, e As CancelEventArgs) Handles Me.Closing
        My.Settings.RemoteIP = CboLongIP.Text
        My.Settings.LocalPort = NudLocalPort.Value
        My.Settings.Save()
    End Sub




#End Region


End Class