初始化

BLV_Studio/Control/FrmAdvancedSettings.vb

@@ -0,0 +1,114 @@
+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