Hi
Does anyone know how to stay connected to the server and at the same time i can pass the string to and from the module to the form.....
What I want:
I put the connection at the module.....
1)I can pass the string from the form to the module...
(Because there is send and receiveInfo method from the server so i put both methods to the module)
2)I receive that string from the module and pass it to the form...
3)The form will show that string to the textbox...
But now step 3 can't work...
It receive nothing from the module..
Any idea how to use and correct it..... or i implement wrongly...
Now i can only display the contents at the Start of a new form through the module as MessageBox when i receive from the server...
But can't display it to the textbox in the form because can't pass the string from the module to the form...
Thanks
--------------------------------------------------------------------
My Codes:
In the previous form....
Private Sub btnNextActivity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNextActivity.Click
Dim s As String
Dim dd As New form2
dd.Show()
Connect()
Name = "Apple"
s = "<Fruit Type=" & """" & Name & """" & "></Fruit>"
send(s)
receiveInfo()
Me.Hide()
End Sub
-------------------------------------------------------------------
In the Module....
Public Name As String
Public Sub send(ByVal s As String)
Dim ascii As Encoding = Encoding.ASCII
Dim networkStream As NetworkStream
Try
networkStream = tcpC.GetStream()
Dim sendBytes As Byte()
sendBytes = ascii.GetBytes(s)
networkStream.Write(sendBytes, 0, sendBytes.Length)
Catch ex As Exception
Console.WriteLine("Sorry. This NetWorkStream is not connect to the server.")
End Try
End Sub
------------------------------------------------------------------------------
Public Sub receiveInfo()
Dim ascii As Encoding = Encoding.ASCII
Dim networkStream As NetworkStream
Try
networkStream = tcpC.GetStream()
Dim bytes(tcpC.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpC.ReceiveBufferSize))
Dim ret As String = ascii.GetString(bytes)
MessageBox.Show(ret)
Catch
Console.WriteLine("Sorry. This NetWorkStream is not connect to the server.")
End Try
End Sub
Does anyone know how to stay connected to the server and at the same time i can pass the string to and from the module to the form.....
What I want:
I put the connection at the module.....
1)I can pass the string from the form to the module...
(Because there is send and receiveInfo method from the server so i put both methods to the module)
2)I receive that string from the module and pass it to the form...
3)The form will show that string to the textbox...
But now step 3 can't work...
It receive nothing from the module..
Any idea how to use and correct it..... or i implement wrongly...
Now i can only display the contents at the Start of a new form through the module as MessageBox when i receive from the server...
But can't display it to the textbox in the form because can't pass the string from the module to the form...
Thanks
--------------------------------------------------------------------
My Codes:
In the previous form....
Private Sub btnNextActivity_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnNextActivity.Click
Dim s As String
Dim dd As New form2
dd.Show()
Connect()
Name = "Apple"
s = "<Fruit Type=" & """" & Name & """" & "></Fruit>"
send(s)
receiveInfo()
Me.Hide()
End Sub
-------------------------------------------------------------------
In the Module....
Public Name As String
Public Sub send(ByVal s As String)
Dim ascii As Encoding = Encoding.ASCII
Dim networkStream As NetworkStream
Try
networkStream = tcpC.GetStream()
Dim sendBytes As Byte()
sendBytes = ascii.GetBytes(s)
networkStream.Write(sendBytes, 0, sendBytes.Length)
Catch ex As Exception
Console.WriteLine("Sorry. This NetWorkStream is not connect to the server.")
End Try
End Sub
------------------------------------------------------------------------------
Public Sub receiveInfo()
Dim ascii As Encoding = Encoding.ASCII
Dim networkStream As NetworkStream
Try
networkStream = tcpC.GetStream()
Dim bytes(tcpC.ReceiveBufferSize) As Byte
networkStream.Read(bytes, 0, CInt(tcpC.ReceiveBufferSize))
Dim ret As String = ascii.GetString(bytes)
MessageBox.Show(ret)
Catch
Console.WriteLine("Sorry. This NetWorkStream is not connect to the server.")
End Try
End Sub