用vb将pc和c2000连接，是通过tcp和c2000返回的connectid连接起来，目前创建一界面可以实现连接，但在后面调用过程中，无法获去conneid？

Question

用vb将pc和c2000连接，是通过tcp和c2000返回的connectid连接起来，目前创建一界面可以实现连接，但在后面调用过程中，无法获去conneid？
代码如下：
Private Sub cmdListen_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdListen.Click
        cmdllisten()
    End Sub
    Public Sub cmdllisten()
        EdSock.StopListen()
        If curConnectID <> 0 Then EdSock.CloseConnect(curConnectID)
        EdSock.LocalPort = CShort(txtLocalPort.Text)
        EdSock.Listen()
    End Sub
    Public Sub cmdConnect_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles cmdConnect.Click
        cmdconect()
    End Sub
    Public Sub cmdconect()
        Dim strIP As String
        Dim Port As Integer
        EdSock.StopListen()
        If curConnectID <> 0 Then EdSock.CloseConnect(curConnectID)
        strIP = txtPeerIP.Text
        Port = CShort(txtPeerPort.Text)
        EdSock.Connect(strIP, Port)
    End Sub
 Public Sub On_Accept(ByVal e As AxEDSOCKSERVERLib._DEDSockServerEvents_OnAcceptEvent)
        If (curConnectID = 0) Then
            connid = e.connectID
            curConnectID = connid
            lblStatus.Text = "连接中"
        Else
            EdSock.CloseConnect(e.connectID)
        End If
    End Sub程序是这样运行的，当运行玩完 cmdConnect_Click_1事件后，会自动调用事件On_Accept，这时connectID= 1，之前是为0的。可是我在后面的类中去调用connectID则为0，希望大虾都帮帮忙 谢谢。困惑我许久了！

Answer 1

把这个变量curConnectID 的声明放在模块里 public curConnectID as string 这样写 试试。如果还是不行，就一步步调式下