?? clsbringdata.cls
字號:
VERSION 1.0 CLASS
BEGIN
MultiUse = -1 'True
Persistable = 0 'NotPersistable
DataBindingBehavior = 0 'vbNone
DataSourceBehavior = 0 'vbNone
MTSTransactionMode = 0 'NotAnMTSObject
END
Attribute VB_Name = "clsBringData"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Public strDisplay As String
Public strNewIP As String
Public strNewPort As String
Public strNewNatIP As String
Public strNewNatPort As String
Public strOldIP As String
Public strOldPort As String
Public strOldNatIP As String
Public strOldNatPort As String
'由于WinSock控件的SendData和GetData不能接收對象,故需要將數據轉換成字符串傳輸
Public Function DataFieldToString() As String
Dim strTemp As String
strTemp = strDisplay
strTemp = strTemp + "#" + strNewIP
strTemp = strTemp + "#" & strNewPort
strTemp = strTemp + "#" + strNewNatIP
strTemp = strTemp + "#" & strNewNatPort
strTemp = strTemp + "#" + strOldIP
strTemp = strTemp + "#" & strOldPort
strTemp = strTemp + "#" + strOldNatIP
strTemp = strTemp + "#" & strOldNatPort
DataFieldToString = strTemp
End Function
Public Sub StringToDataField(strToChange As String)
Dim strTemp() As String
strTemp = Split(strToChange, "#")
strDisplay = strTemp(0)
strNewIP = strTemp(1)
strNewPort = strTemp(2)
strNewNatIP = strTemp(3)
strNewNatPort = strTemp(4)
strOldIP = strTemp(5)
strOldPort = strTemp(6)
strOldNatIP = strTemp(7)
strOldNatPort = strTemp(8)
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -