VB.NET:Loading XML string to the Start of a new form after receiving from the module

toytoy

Well-known member
Joined
Jul 16, 2004
Messages
46
Programming Experience
1-3
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
 

Matrixmatrix

Member
Joined
Sep 30, 2004
Messages
7
Programming Experience
1-3
Hi

There are two ways:

First one:
You make a public variable in your form....Public msg as string
after that you pass the string to your form in your module
dim xy as new form1
xy.msg = returned Value....

Second way:
You make a function and return the value....
 
Top Bottom