114 lines
3.6 KiB
VB.net
114 lines
3.6 KiB
VB.net
|
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
|